www/dailymod.pl

   1 #!/usr/bin/perl
   2
   3 require "rockbox.pm";
   4
   5 my $basedir = "/home/dast/rockbox-build/daily-build";
   6
   7 my @list=("player", "recorder", "fmrecorder", "recorderv2",
   8           "recorder8mb", "fmrecorder8mb", "ondiofm", "ondiosp");
   9
  10 for(@list) {
  11     my $dir = $_;
  12     opendir(DIR, "$basedir/$dir") or next;
  13     my @files = sort grep { /^rockbox/ } readdir(DIR);
  14     closedir DIR;
  15
  16     for(@files) {
  17         /(20\d+)/;
  18         $date{$1}=$1;
  19     }
  20 }
  21
  22 $color1 = 0xc6;
  23 $color2 = 0xd6;
  24 $color3 = 0xf5;
  25 $font1 = "<b>";
  26 $font2 = "</b>";
  27
  28 for(reverse sort keys %date) {
  29     my $d = $_;
  30     my $nice = $d;
  31     if($d =~ /(\d\d\d\d)(\d\d)(\d\d)/) {
  32         $nice = "$1-$2-$3";
  33     }
  34     $col = sprintf("style=\"background-color: #%02x%02x%02x\"",
  35                    $color1, $color2, $color3);
  36     print "<h2>Download daily build</h2>\n";
  37     print "<table class=rockbox><tr valign=top>\n";
  38
  39     $color1 -= 0x18;
  40     $color2 -= 0x18;
  41     $color3 -= 0x18;
  42
  43     for(@list) {
  44         my $n=0;
  45         my $m = $_;
  46         printf "<td $col>$font1$m$font2<br><img src=\"$model{$m}\"><br>";
  47         # new-style full zip:
  48         if( -f "daily/$m/rockbox-${m}-${d}.zip") {
  49             printf "%s<a href=\"daily/$_/rockbox-${m}-${d}.zip\">latest</a>",
  50             $n?", ":"";
  51             $n++;
  52         }
  53         print "$font2 <p><a href=\"dl.cgi?bin=$_\">old versions</a></td>\n";
  54     }
  55     printf "<td $col>${font1}windows installer$font2<br><img src=\"$model{install}\"><br>";
  56     print "<a href=\"daily/Rockbox-${d}-install.exe\">latest</a>",
  57     "<p><a href=\"dl.cgi?bin=install\">old versions</a></td>";
  58     print "</tr>\n";
  59     $font1 = $font2 = "";
  60     last;
  61 }
  62 print "</table>\n";
  63