www/dailymod.pl

   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)";
  10     @tarballs = sort grep { /^a/ } readdir(DIR);
  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
  20 print "<table class=rockbox><tr><th>player</th><th>recorder</th><th>fm recorder</th><th>8MB recorder</th></tr>\n";
  21 print "<tr><td>\n";
  22 &list("player");
  23
  24 print "</td><td>\n";
  25 &list("recorder");
  26
  27 print "</td><td>\n";
  28 &list("fmrecorder");
  29
  30 print "</td><td>\n";
  31 &list("recorder8mb");
  32
  33 print "</td></tr></table>\n";