www/rockbox.pm

   1
   2 # short name to image mapping
   3 %model=("player" => "/docs/newplayer_t.jpg",
   4         "recorder" => "/docs/recorder_t.jpg",
   5         "fmrecorder" => "/docs/fmrecorder_t.jpg",
   6         "recorderv2" => "/docs/fmrecorder_t.jpg",
   7         "recorder8mb" => "/docs/recorder_t.jpg",
   8         "fmrecorder8mb" => "/docs/fmrecorder_t.jpg",
   9         'ondiosp' => "/docs/ondiosp_t.jpg",
  10         'ondiofm' => "/docs/ondiofm_t.jpg",
  11         'h100' => "/docs/h100_t.jpg",
  12         'h120' => "/docs/h100_t.jpg",
  13         'h300' => "/docs/h300-60x80.jpg",
  14         'ipodcolor' => "/docs/color_t.jpg",
  15         'ipodnano' => "/docs/nano_t.jpg",
  16         'ipod4gray' => "/docs/ipod4g2pp_t.jpg",
  17         'ipodvideo' => "/docs/ipodvideo_t.jpg",
  18         'ipod3g' => "/docs/ipod4g2pp_t.jpg",
  19         'iaudiox5' => "/docs/iaudiox5_t.jpg",
  20         "install" => "/docs/install.png",
  21         "source" => "/rockbox100.png");
  22
  23 # short name to long name mapping
  24 %longname=("player" => "Archos Player/Studio",
  25            "recorder" => "Archos Recorder v1",
  26            "fmrecorder" => "Archos FM Recorder",
  27            "recorderv2" => "Archos Recorder v2",
  28            "recorder8mb" => "Archos Recorder 8MB",
  29            "fmrecorder8mb" => "Archos FM Recorder 8MB",
  30            'ondiosp' => "Archos Ondio SP",
  31            'ondiofm' => "Archos Ondio FM",
  32            'h100' => "iriver H100",
  33            'h120' => "iriver H120",
  34            'h300' => 'iriver H300',
  35            'ipodcolor' => 'iPod color/Photo',
  36            'ipodnano' => 'iPod Nano',
  37            'ipod4gray' => 'iPod 4G Grayscale',
  38            'ipodvideo' => 'iPod Video',
  39            'ipod3g' => 'iPod 3G',
  40            'iaudiox5' => 'iAudio X5',
  41            "install" => "Windows Installer",
  42            "source" => "Source Archive");
  43
  44 sub header {
  45     my ($t) = @_;
  46     print "Content-Type: text/html\n\n";
  47     open (HEAD, "/home/bjst/rockbox_html/head.html");
  48     while(<HEAD>) {
  49         $_ =~ s:^<title>Rockbox<\/title>:<title>$t<\/title>:;
  50         $_ =~ s:^<h1>_PAGE_<\/h1>:<h1>$t<\/h1>:;
  51         print $_;
  52     }
  53     close(HEAD);
  54 }
  55
  56 sub footer {
  57     open (FOOT, "/home/bjst/rockbox_html/foot.html");
  58     while(<FOOT>) {
  59         print $_;
  60     }
  61     close(FOOT);
  62 }
  63
  64 1;