# short name to image mapping %model=("player" => "/docs/newplayer_t.jpg", "recorder" => "/docs/recorder_t.jpg", "fmrecorder" => "/docs/fmrecorder_t.jpg", "recorderv2" => "/docs/fmrecorder_t.jpg", "recorder8mb" => "/docs/recorder_t.jpg", "fmrecorder8mb" => "/docs/fmrecorder_t.jpg", 'ondiosp' => "/docs/ondiosp_t.jpg", 'ondiofm' => "/docs/ondiofm_t.jpg", 'h100' => "/docs/h100_t.jpg", 'h120' => "/docs/h100_t.jpg", 'h300' => "/docs/h300-60x80.jpg", 'ipodcolor' => "/docs/color_t.jpg", 'ipodnano' => "/docs/nano_t.jpg", 'ipod4gray' => "/docs/ipod4g2pp_t.jpg", 'ipodvideo' => "/docs/ipodvideo_t.jpg", 'ipod3g' => "/docs/ipod4g2pp_t.jpg", 'iaudiox5' => "/docs/iaudiox5_t.jpg", "install" => "/docs/install.png", "source" => "/rockbox100.png"); # short name to long name mapping %longname=("player" => "Archos Player/Studio", "recorder" => "Archos Recorder v1", "fmrecorder" => "Archos FM Recorder", "recorderv2" => "Archos Recorder v2", "recorder8mb" => "Archos Recorder 8MB", "fmrecorder8mb" => "Archos FM Recorder 8MB", 'ondiosp' => "Archos Ondio SP", 'ondiofm' => "Archos Ondio FM", 'h100' => "iriver H100", 'h120' => "iriver H120", 'h300' => 'iriver H300', 'ipodcolor' => 'iPod color/Photo', 'ipodnano' => 'iPod Nano', 'ipod4gray' => 'iPod 4G Grayscale', 'ipodvideo' => 'iPod Video', 'ipod3g' => 'iPod 3G', 'iaudiox5' => 'iAudio X5', "install" => "Windows Installer", "source" => "Source Archive"); sub header { my ($t) = @_; print "Content-Type: text/html\n\n"; open (HEAD, "/home/bjst/rockbox_html/head.html"); while(
) { $_ =~ s:^