27 lines
689 B
Perl
Executable file
27 lines
689 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 ( @tarballs ) {
|
|
$size = (stat("$basedir/$_"))[7];
|
|
$log = "";
|
|
if (/-(\d+)/) {
|
|
$date = $1;
|
|
if ( -f "$basedir/changes-$date.txt") {
|
|
$log = "<a href=\"daily/changes-$date.txt\">Changelog</a>";
|
|
}
|
|
elsif ( -f "$basedir/changes-$date.log") {
|
|
$log = "<a href=\"daily/changes-$date.log\">Changelog</a>";
|
|
}
|
|
}
|
|
print "<li><a href=\"daily/$_\">$_</a> ($size bytes) $log\n";
|
|
}
|
|
|
|
print "</ul>\n";
|