2be8696289
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@4108 a1c6a512-1295-4272-9138-f99709370657
25 lines
718 B
Perl
Executable file
25 lines
718 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
$basedir = "/home/dast/rockbox-build/daily-build/";
|
|
|
|
opendir(DIR, $basedir) or
|
|
die "Can't opendir($basedir)";
|
|
@tarballs = sort grep { /^rockbox-daily-/ } readdir(DIR);
|
|
closedir DIR;
|
|
|
|
print "<ul>\n";
|
|
|
|
for ( sort {$b <=> $a} @tarballs ) {
|
|
$size = (stat("$basedir/$_"))[7];
|
|
$log = "";
|
|
if (/-(\d+)/) {
|
|
$date = $1;
|
|
if ( -f "$basedir/changes-$date.txt") {
|
|
$lines = `grep "Number of changes:" $basedir/changes-$date.txt | cut "-d " -f4` + 0;
|
|
$log = "<a href=\"daily/changes-$date.html\">Changelog</a> <small>($lines changes)</small>";
|
|
}
|
|
}
|
|
print "<li><a href=\"daily/$_\">$_</a> <small>($size bytes)</small> $log\n";
|
|
}
|
|
|
|
print "</ul>\n";
|