65 lines
2.1 KiB
Perl
65 lines
2.1 KiB
Perl
|
|
||
|
|
# 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(<HEAD>) {
|
||
|
|
$_ =~ s:^<title>Rockbox<\/title>:<title>$t<\/title>:;
|
||
|
|
$_ =~ s:^<h1>_PAGE_<\/h1>:<h1>$t<\/h1>:;
|
||
|
|
print $_;
|
||
|
|
}
|
||
|
|
close(HEAD);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub footer {
|
||
|
|
open (FOOT, "/home/bjst/rockbox_html/foot.html");
|
||
|
|
while(<FOOT>) {
|
||
|
|
print $_;
|
||
|
|
}
|
||
|
|
close(FOOT);
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|