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",
   8           "recorder", "recorder8mb",
   9           "fmrecorder", "fmrecorder8mb",
  10           "recorderv2",
  11           "ondiofm", "ondiosp",
  12           "h100", "h120", "h300", "ipodcolor", "ipodnano",
  13
  14           # install and source are special cases
  15           "install", "source");
  16
  17 for(@list) {
  18     my $dir = $_;
  19     opendir(DIR, "$basedir/$dir") or next;
  20     my @files = sort grep { /^rockbox/ } readdir(DIR);
  21     closedir DIR;
  22
  23     for(@files) {
  24         /(20\d+)/;
  25         $date{$1}=$1;
  26     }
  27 }
  28
  29 for(reverse sort keys %date) {
  30     my $d = $_;
  31     my $nice = $d;
  32     if($d =~ /(\d\d\d\d)(\d\d)(\d\d)/) {
  33         $nice = "$1-$2-$3";
  34     }
  35     print "<table class=rockbox cellpadding=\"0\"><tr valign=top>\n";
  36
  37     $color1 -= 0x18;
  38     $color2 -= 0x18;
  39     $color3 -= 0x18;
  40
  41     my $count = 0;
  42     my $split = int((scalar @list) / 2);
  43     my $x = 0;
  44     my @head;
  45
  46     foreach $t (@list) {
  47         my $show = $t;
  48         $show =~ s/recorder/rec/;
  49         # Remove the comment below to get long names
  50         # $show = $longname{$t};
  51         $head[$x] .= "<th>$show</th>\n";
  52         $count++;
  53         if ($count == $split) {
  54             $x++;
  55         }
  56     }
  57     print "$head[0]</tr><tr>\n";
  58
  59     $count = 0;
  60     for(@list) {
  61         my $m = $_;
  62         printf "<td><img alt=\"$m\" src=\"$model{$m}\"><br>";
  63         # new-style full zip:
  64         my $file = "rockbox-${m}-${d}.zip";
  65         if($m eq "source") {
  66             $file = "rockbox-daily-${d}.tar.gz";
  67         }
  68         elsif($m eq "install") {
  69             $file = "Rockbox-${d}-install.exe";
  70         }
  71         if( -f "$basedir/$m/$file") {
  72             printf "<a href=\"/daily/$_/$file\">latest</a>",
  73         }
  74         print "<p><a href=\"/dl.cgi?bin=$_\">older</a></td>\n";
  75
  76         $count++;
  77         if ($count == $split) {
  78             print "</tr><tr>$head[1]</tr><tr>\n";
  79         }
  80     }
  81     print "</tr>\n";
  82     last;
  83 }
  84 print "</table>\n";
  85