5 my $basedir = "/home/dast/rockbox-build/daily-build";
7 my @list=("player", "recorder", "fmrecorder", "recorderv2",
8 "recorder8mb", "fmrecorder8mb", "ondiofm", "ondiosp");
12 opendir(DIR
, "$basedir/$dir") or next;
13 my @files = sort grep { /^rockbox/ } readdir(DIR
);
28 for(reverse sort keys %date) {
31 if($d =~ /(\d\d\d\d)(\d\d)(\d\d)/) {
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";
46 printf "<td $col>$font1$m$font2<br><img src=\"$model{$m}\"><br>";
48 if( -f
"daily/$m/rockbox-${m}-${d}.zip") {
49 printf "%s<a href=\"daily/$_/rockbox-${m}-${d}.zip\">latest</a>",
53 print "$font2 <p><a href=\"dl.cgi?bin=$_\">old versions</a></td>\n";
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>";