diff options
author | Björn Stenberg <bjorn@haxx.se> | 2007-01-08 23:52:01 +0000 |
---|---|---|
committer | Björn Stenberg <bjorn@haxx.se> | 2007-01-08 23:52:01 +0000 |
commit | 6d4c19707ef95942e323cbdc89fbbfdbe45e7cc5 (patch) | |
tree | d11bbebc69df06d60970d05b4816e13d93602f2d /www/dailymod.pl | |
parent | 8cece5a745f30234bfced4becfd9dfe4ca1047d4 (diff) | |
download | rockbox-6d4c19707ef95942e323cbdc89fbbfdbe45e7cc5.tar.gz rockbox-6d4c19707ef95942e323cbdc89fbbfdbe45e7cc5.zip |
Splitting out www
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@11952 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'www/dailymod.pl')
-rwxr-xr-x | www/dailymod.pl | 89 |
1 files changed, 0 insertions, 89 deletions
diff --git a/www/dailymod.pl b/www/dailymod.pl deleted file mode 100755 index 8e1a48d281..0000000000 --- a/www/dailymod.pl +++ /dev/null | |||
@@ -1,89 +0,0 @@ | |||
1 | #!/usr/bin/perl | ||
2 | |||
3 | require "rockbox.pm"; | ||
4 | |||
5 | my $basedir = "/home/dast/rockbox-build/daily-build"; | ||
6 | |||
7 | my @list=("player", | ||
8 | "recorder", "recorder8mb", | ||
9 | "fmrecorder", "fmrecorder8mb", | ||
10 | "recorderv2", | ||
11 | "ondiofm", "ondiosp", | ||
12 | "h100", "h120", "h300", | ||
13 | |||
14 | "ipodcolor", "ipodnano", "ipod4gray", "ipodvideo", | ||
15 | "ipod3g", "iaudiox5", | ||
16 | |||
17 | # install and source are special cases | ||
18 | #"install", | ||
19 | "source"); | ||
20 | |||
21 | for(@list) { | ||
22 | my $dir = $_; | ||
23 | opendir(DIR, "$basedir/$dir") or next; | ||
24 | my @files = sort grep { /^rockbox/ } readdir(DIR); | ||
25 | closedir DIR; | ||
26 | |||
27 | for(@files) { | ||
28 | /(20\d+)/; | ||
29 | $date{$1}=$1; | ||
30 | } | ||
31 | } | ||
32 | |||
33 | for(reverse sort keys %date) { | ||
34 | my $d = $_; | ||
35 | my $nice = $d; | ||
36 | if($d =~ /(\d\d\d\d)(\d\d)(\d\d)/) { | ||
37 | $nice = "$1-$2-$3"; | ||
38 | } | ||
39 | print "<table class=rockbox cellpadding=\"0\"><tr valign=top>\n"; | ||
40 | |||
41 | $color1 -= 0x18; | ||
42 | $color2 -= 0x18; | ||
43 | $color3 -= 0x18; | ||
44 | |||
45 | my $count = 0; | ||
46 | my $split = int((scalar @list) / 2); | ||
47 | my $x = 0; | ||
48 | my @head; | ||
49 | |||
50 | foreach $t (@list) { | ||
51 | my $show = $t; | ||
52 | $show =~ s/recorder/rec/; | ||
53 | # Remove the comment below to get long names | ||
54 | $show = $longname{$t}; | ||
55 | $head[$x] .= "<th>$show</th>\n"; | ||
56 | $count++; | ||
57 | if ($count == $split) { | ||
58 | $x++; | ||
59 | } | ||
60 | } | ||
61 | print "$head[0]</tr><tr>\n"; | ||
62 | |||
63 | $count = 0; | ||
64 | for(@list) { | ||
65 | my $m = $_; | ||
66 | printf "<td><img alt=\"$m\" src=\"$model{$m}\"><br>"; | ||
67 | # new-style full zip: | ||
68 | my $file = "rockbox-${m}-${d}.zip"; | ||
69 | if($m eq "source") { | ||
70 | $file = "rockbox-daily-${d}.tar.gz"; | ||
71 | } | ||
72 | elsif($m eq "install") { | ||
73 | $file = "Rockbox-${d}-install.exe"; | ||
74 | } | ||
75 | if( -f "$basedir/$m/$file") { | ||
76 | printf "<a href=\"http://download.rockbox.org/daily/$_/$file\">latest</a>", | ||
77 | } | ||
78 | print "<p><a href=\"/dl.cgi?bin=$_\">older</a></td>\n"; | ||
79 | |||
80 | $count++; | ||
81 | if ($count == $split) { | ||
82 | print "</tr><tr>$head[1]</tr><tr>\n"; | ||
83 | } | ||
84 | } | ||
85 | print "</tr>\n"; | ||
86 | last; | ||
87 | } | ||
88 | print "</table>\n"; | ||
89 | |||