diff options
author | Björn Stenberg <bjorn@haxx.se> | 2006-01-30 09:56:08 +0000 |
---|---|---|
committer | Björn Stenberg <bjorn@haxx.se> | 2006-01-30 09:56:08 +0000 |
commit | 733c14d60ee0f16681b10bf230e78089ccd51ec9 (patch) | |
tree | 424dc992589ed604702d194db36341c203d8d069 /www | |
parent | 5f3b122eddbd32e88c7c62559b96b00aea85636b (diff) | |
download | rockbox-733c14d60ee0f16681b10bf230e78089ccd51ec9.tar.gz rockbox-733c14d60ee0f16681b10bf230e78089ccd51ec9.zip |
changed ages ago
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@8493 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'www')
-rwxr-xr-x | www/dailymod.pl | 68 | ||||
-rwxr-xr-x | www/dailysrc.pl | 14 |
2 files changed, 49 insertions, 33 deletions
diff --git a/www/dailymod.pl b/www/dailymod.pl index 318149b975..9e3d118ba2 100755 --- a/www/dailymod.pl +++ b/www/dailymod.pl | |||
@@ -4,8 +4,15 @@ require "rockbox.pm"; | |||
4 | 4 | ||
5 | my $basedir = "/home/dast/rockbox-build/daily-build"; | 5 | my $basedir = "/home/dast/rockbox-build/daily-build"; |
6 | 6 | ||
7 | my @list=("player", "recorder", "fmrecorder", "recorderv2", | 7 | my @list=("player", |
8 | "recorder8mb", "fmrecorder8mb", "ondiofm", "ondiosp"); | 8 | "recorder", "recorder8mb", |
9 | "fmrecorder", "fmrecorder8mb", | ||
10 | "recorderv2", | ||
11 | "ondiofm", "ondiosp", | ||
12 | "h100", "h120", "h300", "ipodcolor", "ipodnano", | ||
13 | |||
14 | # install and source are special cases | ||
15 | "install", "source"); | ||
9 | 16 | ||
10 | for(@list) { | 17 | for(@list) { |
11 | my $dir = $_; | 18 | my $dir = $_; |
@@ -19,44 +26,59 @@ for(@list) { | |||
19 | } | 26 | } |
20 | } | 27 | } |
21 | 28 | ||
22 | $color1 = 0xc6; | ||
23 | $color2 = 0xd6; | ||
24 | $color3 = 0xf5; | ||
25 | $font1 = "<b>"; | ||
26 | $font2 = "</b>"; | ||
27 | |||
28 | for(reverse sort keys %date) { | 29 | for(reverse sort keys %date) { |
29 | my $d = $_; | 30 | my $d = $_; |
30 | my $nice = $d; | 31 | my $nice = $d; |
31 | if($d =~ /(\d\d\d\d)(\d\d)(\d\d)/) { | 32 | if($d =~ /(\d\d\d\d)(\d\d)(\d\d)/) { |
32 | $nice = "$1-$2-$3"; | 33 | $nice = "$1-$2-$3"; |
33 | } | 34 | } |
34 | $col = sprintf("style=\"background-color: #%02x%02x%02x\"", | 35 | print "<table class=rockbox cellpadding=\"0\"><tr valign=top>\n"; |
35 | $color1, $color2, $color3); | ||
36 | print "<h2>Download daily build</h2>\n"; | ||
37 | print "<table class=rockbox><tr valign=top>\n"; | ||
38 | 36 | ||
39 | $color1 -= 0x18; | 37 | $color1 -= 0x18; |
40 | $color2 -= 0x18; | 38 | $color2 -= 0x18; |
41 | $color3 -= 0x18; | 39 | $color3 -= 0x18; |
42 | 40 | ||
41 | my $count = 0; | ||
42 | my $split = int((scalar @list) / 2); | ||
43 | my $x = 0; | ||
44 | my @head; | ||
45 | |||
46 | foreach $t (@list) { | ||
47 | my $show = $t; | ||
48 | $show =~ s/recorder/rec/; | ||
49 | # Remove the comment below to get long names | ||
50 | # $show = $longname{$t}; | ||
51 | $head[$x] .= "<th>$show</th>\n"; | ||
52 | $count++; | ||
53 | if ($count == $split) { | ||
54 | $x++; | ||
55 | } | ||
56 | } | ||
57 | print "$head[0]</tr><tr>\n"; | ||
58 | |||
59 | $count = 0; | ||
43 | for(@list) { | 60 | for(@list) { |
44 | my $n=0; | ||
45 | my $m = $_; | 61 | my $m = $_; |
46 | printf "<td $col>$font1$m$font2<br><img src=\"$model{$m}\"><br>"; | 62 | printf "<td><img alt=\"$m\" src=\"$model{$m}\"><br>"; |
47 | # new-style full zip: | 63 | # new-style full zip: |
48 | if( -f "daily/$m/rockbox-${m}-${d}.zip") { | 64 | my $file = "rockbox-${m}-${d}.zip"; |
49 | printf "%s<a href=\"daily/$_/rockbox-${m}-${d}.zip\">latest</a>", | 65 | if($m eq "source") { |
50 | $n?", ":""; | 66 | $file = "rockbox-daily-${d}.tar.gz"; |
51 | $n++; | 67 | } |
68 | elsif($m eq "install") { | ||
69 | $file = "Rockbox-${d}-install.exe"; | ||
52 | } | 70 | } |
53 | print "$font2 <p><a href=\"dl.cgi?bin=$_\">old versions</a></td>\n"; | 71 | if( -f "$basedir/$m/$file") { |
72 | printf "<a href=\"/daily/$_/$file\">latest</a>", | ||
73 | } | ||
74 | print "<p><a href=\"/dl.cgi?bin=$_\">older</a></td>\n"; | ||
75 | |||
76 | $count++; | ||
77 | if ($count == $split) { | ||
78 | print "</tr><tr>$head[1]</tr><tr>\n"; | ||
79 | } | ||
54 | } | 80 | } |
55 | printf "<td $col>${font1}windows installer$font2<br><img src=\"$model{install}\"><br>"; | ||
56 | print "<a href=\"daily/Rockbox-${d}-install.exe\">latest</a>", | ||
57 | "<p><a href=\"dl.cgi?bin=install\">old versions</a></td>"; | ||
58 | print "</tr>\n"; | 81 | print "</tr>\n"; |
59 | $font1 = $font2 = ""; | ||
60 | last; | 82 | last; |
61 | } | 83 | } |
62 | print "</table>\n"; | 84 | print "</table>\n"; |
diff --git a/www/dailysrc.pl b/www/dailysrc.pl index 1fa1f8ac22..0143909c39 100755 --- a/www/dailysrc.pl +++ b/www/dailysrc.pl | |||
@@ -7,21 +7,15 @@ opendir(DIR, $basedir) or | |||
7 | @tarballs = sort grep { /^rockbox-daily-/ } readdir(DIR); | 7 | @tarballs = sort grep { /^rockbox-daily-/ } readdir(DIR); |
8 | closedir DIR; | 8 | closedir DIR; |
9 | 9 | ||
10 | print "<ul>\n"; | 10 | for ( sort {$b cmp $a} @tarballs ) { |
11 | |||
12 | for ( sort {$b <=> $a} @tarballs ) { | ||
13 | $size = (stat("$basedir/$_"))[7]; | 11 | $size = (stat("$basedir/$_"))[7]; |
14 | $log = ""; | 12 | $log = ""; |
15 | if (/-(\d+)/) { | 13 | if (/-(\d+)/) { |
16 | $date = $1; | 14 | $date = $1; |
17 | if ( -f "$basedir/changes-$date.txt") { | 15 | if ( -f "$basedir/changes-$date.html") { |
18 | $lines = `grep "Number of changes:" $basedir/changes-$date.txt | cut "-d " -f4` + 0; | 16 | $log = "<a href=\"daily/changes-$date.html\">Changes done $date</a>"; |
19 | $log = "<a href=\"daily/changes-$date.html\">Changelog</a> <small>($lines changes)</small>"; | ||
20 | } | 17 | } |
21 | } | 18 | } |
22 | print "<li><a href=\"daily/$_\">$_</a> <small>($size bytes)</small> $log\n"; | 19 | print "$log\n"; |
23 | print "<li><a href=\"dl.cgi?bin=source\">old versions</a>\n"; | ||
24 | last; | 20 | last; |
25 | } | 21 | } |
26 | |||
27 | print "</ul>\n"; | ||