www/dailysrc.pl

   1 #!/usr/bin/perl
   2
   3 $basedir = "/home/dast/rockbox-build/daily-build/";
   4
   5 opendir(DIR, $basedir) or
   6     die "Can't opendir($basedir)";
   7 @tarballs = sort grep { /^rockbox-daily-/ } readdir(DIR);
   8 closedir DIR;
   9
  10 print "<ul>\n";
  11
  12 for ( sort {$b <=> $a} @tarballs ) {
  13     $size = (stat("$basedir/$_"))[7];
  14     $log = "";
  15     if (/-(\d+)/) {
  16         $date = $1;
  17         if ( -f "$basedir/changes-$date.txt") {
  18             $lines = `grep "Number of changes:" $basedir/changes-$date.txt | cut "-d " -f4` + 0;
  19             $log = "<a href=\"daily/changes-$date.html\">Changelog</a> <small>($lines changes)</small>";
  20         }
  21     }
  22     print "<li><a href=\"daily/$_\">$_</a> <small>($size bytes)</small> $log\n";
  23     print "<li><a href=\"dl.cgi?bin=source\">old versions</a>\n";
  24     last;
  25 }
  26
  27 print "</ul>\n";