Minor changes

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@5138 a1c6a512-1295-4272-9138-f99709370657

1 files changed, 26 insertions, 17 deletions

diff --git a/www/dailymod.pl b/www/dailymod.pl
index a02e6be1b8..eafbf0c979 100755
--- a/www/dailymod.pl
+++ b/www/dailymod.pl
@@ -1,13 +1,14 @@
 #!/usr/bin/perl
 
+require "rockbox.pm";
+
 my $basedir = "/home/dast/rockbox-build/daily-build";
 
-my @list=("player", "recorder", "fmrecorder", "recorderv2", "recorder8mb");
+my @list=("player", "recorder", "fmrecorder", "recorderv2", "recorder8mb", "fmrecorder8mb");
 
 for(@list) {
     my $dir = $_;
-    opendir(DIR, "$basedir/$dir") or
-        die "Can't opendir($basedir/$dir)";
+    opendir(DIR, "$basedir/$dir") or next;
     my @files = sort grep { /^rockbox/ } readdir(DIR);
     closedir DIR;
 
@@ -17,15 +18,11 @@ for(@list) {
     }
 }
 
-print "<table class=rockbox>\n";
-
-if (0) {
-    print "<tr><th>date</th>";
-
-    for(@list) {
-        print "<th>$_</th>";
-    }
-}
+$color1 = 0xc6;
+$color2 = 0xd6;
+$color3 = 0xf5;
+$font1 = "<b>";
+$font2 = "</b>";
 
 for(reverse sort keys %date) {
     my $d = $_;
@@ -33,21 +30,33 @@ for(reverse sort keys %date) {
     if($d =~ /(\d\d\d\d)(\d\d)(\d\d)/) {
         $nice = "$1-$2-$3";
     }
-    print "</tr>\n<tr><td>$nice</td>";
+    $col = sprintf("style=\"background-color: #%02x%02x%02x\"",
+                   $color1, $color2, $color3);
+    print "<h2>Download daily build</h2>\n";
+    print "<table class=rockbox><tr valign=top>\n";
+
+    $color1 -= 0x18;
+    $color2 -= 0x18;
+    $color3 -= 0x18;
     
     for(@list) {
         my $n=0;
         my $m = $_;
-        print "<td> ";
+        printf "<td $col>$font1$m$font2<br><img src=\"$model{$m}\"><br>";
         # new-style full zip:
         if( -f "daily/$m/rockbox-${m}-${d}.zip") {
-            printf "%s<a href=\"daily/$_/rockbox-${m}-${d}.zip\">${m}</a>",
+            printf "%s<a href=\"daily/$_/rockbox-${m}-${d}.zip\">latest</a>",
             $n?", ":"";
             $n++;
         }
-        print "</td>";
+        print "$font2 <p><a href=\"dl.cgi?bin=$_\">old versions</a></td>\n";
     }
-    print "</tr>\n"
+    printf "<td $col>${font1}windows installer$font2<br><img src=\"$model{install}\"><br>";
+    print "<a href=\"daily/Rockbox-${d}-install.exe\">latest</a>",
+    "<p><a href=\"dl.cgi?bin=install\">old versions</a></td>";
+    print "</tr>\n";
+    $font1 = $font2 = "";
+    last;
 }
 print "</table>\n";