diff options
author | Björn Stenberg <bjorn@haxx.se> | 2003-07-25 08:13:16 +0000 |
---|---|---|
committer | Björn Stenberg <bjorn@haxx.se> | 2003-07-25 08:13:16 +0000 |
commit | 577a11ed1d83601a6587ed9943f2b81573446fbd (patch) | |
tree | 58962c0e6e422fb91de8a2b21b1e56d3704e78c9 /www | |
parent | e43bb6250f6c4dc09b6e70920f7f4e926998e829 (diff) | |
download | rockbox-577a11ed1d83601a6587ed9943f2b81573446fbd.tar.gz rockbox-577a11ed1d83601a6587ed9943f2b81573446fbd.zip |
new table for the daily target builds
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@3884 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'www')
-rwxr-xr-x | www/dailymod.pl | 73 |
1 files changed, 53 insertions, 20 deletions
diff --git a/www/dailymod.pl b/www/dailymod.pl index 92a98bc7e4..4ddcf7e55b 100755 --- a/www/dailymod.pl +++ b/www/dailymod.pl | |||
@@ -1,33 +1,66 @@ | |||
1 | #!/usr/bin/perl | 1 | #!/usr/bin/perl |
2 | 2 | ||
3 | $basedir = "/home/dast/rockbox-build/daily-build"; | 3 | my $basedir = "/home/dast/rockbox-build/daily-build"; |
4 | 4 | ||
5 | sub list { | 5 | my @list=("player", "recorder", "fmrecorder", "recorder8mb"); |
6 | $dir = shift @_; | ||
7 | 6 | ||
7 | for(@list) { | ||
8 | my $dir = $_; | ||
8 | opendir(DIR, "$basedir/$dir") or | 9 | opendir(DIR, "$basedir/$dir") or |
9 | die "Can't opendir($basedir/$dir)"; | 10 | die "Can't opendir($basedir/$dir)"; |
10 | @tarballs = sort grep { /^a/ } readdir(DIR); | 11 | my @files = sort grep { /^rockbox2/ } readdir(DIR); |
11 | closedir DIR; | 12 | closedir DIR; |
12 | 13 | ||
13 | print "<ul>\n"; | 14 | for(@files) { |
14 | for ( @tarballs ) { | 15 | /(\d+)/; |
15 | print "<li><a href=\"daily/$dir/$_\">$_</a>\n"; | 16 | $date{$1}=$1; |
16 | } | 17 | } |
17 | print "</ul>\n"; | ||
18 | } | 18 | } |
19 | 19 | ||
20 | print "<table class=rockbox><tr><th>player</th><th>recorder</th><th>fm recorder</th><th>8MB recorder</th></tr>\n"; | 20 | print "<table class=rockbox><tr><th>date</th>"; |
21 | print "<tr><td>\n"; | ||
22 | &list("player"); | ||
23 | 21 | ||
24 | print "</td><td>\n"; | 22 | for(@list) { |
25 | &list("recorder"); | 23 | print "<th>$_</th>"; |
26 | 24 | } | |
27 | print "</td><td>\n"; | ||
28 | &list("fmrecorder"); | ||
29 | 25 | ||
30 | print "</td><td>\n"; | 26 | for(reverse sort keys %date) { |
31 | &list("recorder8mb"); | 27 | my $d = $_; |
28 | my $nice = $d; | ||
29 | if($d =~ /(\d\d\d\d)(\d\d)(\d\d)/) { | ||
30 | $nice = "$1-$2-$3"; | ||
31 | } | ||
32 | print "</tr>\n<tr><td>$nice</td>"; | ||
33 | |||
34 | for(@list) { | ||
35 | my $n=0; | ||
36 | print "<td> "; | ||
37 | if( -f "daily/$_/rockbox${d}.mod") { | ||
38 | print "<a href=\"daily/$_/rockbox${d}.mod\">mod</a>"; | ||
39 | $n++; | ||
40 | } | ||
41 | if( -f "daily/$_/rockbox${d}.ajz") { | ||
42 | printf "%s<a href=\"daily/$_/rockbox${d}.ajz\">ajz</a>", | ||
43 | $n?", ":""; | ||
44 | $n++; | ||
45 | } | ||
46 | if( -f "daily/$_/rocks${d}.zip") { | ||
47 | printf "%s<a href=\"daily/$_/rocks${d}.zip\">rocks</a>", | ||
48 | $n?", ":""; | ||
49 | $n++; | ||
50 | } | ||
51 | if( -f "daily/$_/rockbox-${d}.zip") { | ||
52 | printf "%s<a href=\"daily/$_/rockbox-${d}.zip\">full</a>", | ||
53 | $n?", ":""; | ||
54 | $n++; | ||
55 | } | ||
56 | if( -f "daily/$_/rockbox${d}.ucl") { | ||
57 | printf "%s<a href=\"daily/$_/rockbox${d}.ucl\">ucl</a>", | ||
58 | $n?", ":""; | ||
59 | $n++; | ||
60 | } | ||
61 | print "</td>"; | ||
62 | } | ||
63 | print "</tr>\n" | ||
64 | } | ||
65 | print "</table>\n"; | ||
32 | 66 | ||
33 | print "</td></tr></table>\n"; | ||