www/dailymod.pl

   1 #!/usr/bin/perl
   2
   3 my $basedir = "/home/dast/rockbox-build/daily-build";
   4
   5 my @list=("player", "recorder", "fmrecorder", "recorderv2", "recorder8mb");
   6
   7 for(@list) {
   8     my $dir = $_;
   9     opendir(DIR, "$basedir/$dir") or
  10         die "Can't opendir($basedir/$dir)";
  11     my @files = sort grep { /^rockbox/ } readdir(DIR);
  12     closedir DIR;
  13
  14     for(@files) {
  15         /(20\d+)/;
  16         $date{$1}=$1;
  17     }
  18 }
  19
  20 print "<table class=rockbox>\n";
  21
  22 if (0) {
  23     print "<tr><th>date</th>";
  24
  25     for(@list) {
  26         print "<th>$_</th>";
  27     }
  28 }
  29
  30 for(reverse sort keys %date) {
  31     my $d = $_;
  32     my $nice = $d;
  33     if($d =~ /(\d\d\d\d)(\d\d)(\d\d)/) {
  34         $nice = "$1-$2-$3";
  35     }
  36     print "</tr>\n<tr><td>$nice</td>";
  37
  38     for(@list) {
  39         my $n=0;
  40         my $m = $_;
  41         print "<td> ";
  42         # new-style full zip:
  43         if( -f "daily/$m/rockbox-${m}-${d}.zip") {
  44             printf "%s<a href=\"daily/$_/rockbox-${m}-${d}.zip\">${m}</a>",
  45             $n?", ":"";
  46             $n++;
  47         }
  48         print "</td>";
  49     }
  50     print "</tr>\n"
  51 }
  52 print "</table>\n";
  53