733c14d60e
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@8493 a1c6a512-1295-4272-9138-f99709370657
21 lines
513 B
Perl
Executable file
21 lines
513 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;
|
|
|
|
for ( sort {$b cmp $a} @tarballs ) {
|
|
$size = (stat("$basedir/$_"))[7];
|
|
$log = "";
|
|
if (/-(\d+)/) {
|
|
$date = $1;
|
|
if ( -f "$basedir/changes-$date.html") {
|
|
$log = "<a href=\"daily/changes-$date.html\">Changes done $date</a>";
|
|
}
|
|
}
|
|
print "$log\n";
|
|
last;
|
|
}
|