diff options
Diffstat (limited to 'www/dailysrc.pl')
-rwxr-xr-x | www/dailysrc.pl | 14 |
1 files changed, 4 insertions, 10 deletions
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"; | ||