| Björn Stenberg | 872e352 | 2002-05-27 14:22:23 +0000 | [diff] [blame] | 1 | #!/usr/bin/perl |
| 2 | |
| 3 | $basedir = "/home/dast/rockbox-build/daily-build"; |
| 4 | |
| 5 | sub list { |
| 6 | $dir = shift @_; |
| 7 | |
| 8 | opendir(DIR, "$basedir/$dir") or |
| 9 | die "Can't opendir($basedir/$dir)"; |
| Björn Stenberg | a31a416 | 2002-06-11 12:25:56 +0000 | [diff] [blame] | 10 | @tarballs = sort grep { /^a/ } readdir(DIR); |
| Björn Stenberg | 872e352 | 2002-05-27 14:22:23 +0000 | [diff] [blame] | 11 | closedir DIR; |
| 12 | |
| 13 | print "<ul>\n"; |
| 14 | for ( @tarballs ) { |
| 15 | print "<li><a href=\"daily/$dir/$_\">$_</a>\n"; |
| 16 | } |
| 17 | print "</ul>\n"; |
| 18 | } |
| 19 | |
| Björn Stenberg | 900bbb6 | 2002-10-15 15:06:44 +0000 | [diff] [blame] | 20 | print "<table class=rockbox><tr><th>player</th><th>recorder</th></tr>\n"; |
| 21 | print "<tr><td>\n"; |
| Björn Stenberg | 872e352 | 2002-05-27 14:22:23 +0000 | [diff] [blame] | 22 | &list("player"); |
| 23 | |
| Björn Stenberg | 900bbb6 | 2002-10-15 15:06:44 +0000 | [diff] [blame] | 24 | print "</td><td>\n"; |
| Björn Stenberg | 872e352 | 2002-05-27 14:22:23 +0000 | [diff] [blame] | 25 | &list("recorder"); |
| Björn Stenberg | a31a416 | 2002-06-11 12:25:56 +0000 | [diff] [blame] | 26 | |
| 27 | print "</td></tr></table>\n"; |