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 for ( sort {$b cmp $a} @tarballs ) {
  11     $size = (stat("$basedir/$_"))[7];
  12     $log = "";
  13     if (/-(\d+)/) {
  14         $date = $1;
  15         if ( -f "$basedir/changes-$date.html") {
  16             $log = "<a href=\"daily/changes-$date.html\">Changes done $date</a>";
  17         }
  18     }
  19     print "$log\n";
  20     last;
  21 }