summaryrefslogtreecommitdiff
path: root/www/rockbox.pm
diff options
context:
space:
mode:
Diffstat (limited to 'www/rockbox.pm')
-rw-r--r--www/rockbox.pm64
1 files changed, 64 insertions, 0 deletions
diff --git a/www/rockbox.pm b/www/rockbox.pm
new file mode 100644
index 0000000000..56895e13bc
--- /dev/null
+++ b/www/rockbox.pm
@@ -0,0 +1,64 @@
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
44sub 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
56sub footer {
57 open (FOOT, "/home/bjst/rockbox_html/foot.html");
58 while(<FOOT>) {
59 print $_;
60 }
61 close(FOOT);
62}
63
641;