511978e0af
alarming ways! git-svn-id: svn://svn.rockbox.org/rockbox/trunk@3284 a1c6a512-1295-4272-9138-f99709370657
30 lines
630 B
Perl
Executable file
30 lines
630 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
$basedir = "/home/dast/rockbox-build/daily-build";
|
|
|
|
sub list {
|
|
$dir = shift @_;
|
|
|
|
opendir(DIR, "$basedir/$dir") or
|
|
die "Can't opendir($basedir/$dir)";
|
|
@tarballs = sort grep { /^a/ } readdir(DIR);
|
|
closedir DIR;
|
|
|
|
print "<ul>\n";
|
|
for ( @tarballs ) {
|
|
print "<li><a href=\"daily/$dir/$_\">$_</a>\n";
|
|
}
|
|
print "</ul>\n";
|
|
}
|
|
|
|
print "<table class=rockbox><tr><th>player</th><th>recorder</th><th>fmrecorder</th></tr>\n";
|
|
print "<tr><td>\n";
|
|
&list("player");
|
|
|
|
print "</td><td>\n";
|
|
&list("recorder");
|
|
|
|
print "</td><td>\n";
|
|
&list("fmrecorder");
|
|
|
|
print "</td></tr></table>\n";
|