17 lines
303 B
Perl
17 lines
303 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
$basedir = "/home/dast/rockbox-build/daily-build/";
|
||
|
|
|
||
|
|
opendir(DIR, $basedir) or
|
||
|
|
die "Can't opendir($basedir)";
|
||
|
|
@tarballs = grep { /^rockbox-daily-/ } readdir(DIR);
|
||
|
|
closedir DIR;
|
||
|
|
|
||
|
|
print "<ul>\n";
|
||
|
|
|
||
|
|
for ( @tarballs ) {
|
||
|
|
print "<li><a href=\"daily/$_\">$_</a>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
print "</ul>\n";
|