From 733c14d60ee0f16681b10bf230e78089ccd51ec9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Stenberg?= <bjorn@haxx.se>
Date: Mon, 30 Jan 2006 09:56:08 +0000
Subject: [PATCH] changed ages ago

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@8493 a1c6a512-1295-4272-9138-f99709370657
---
 www/dailymod.pl | 76 +++++++++++++++++++++++++++++++------------------
 www/dailysrc.pl | 14 +++------
 2 files changed, 53 insertions(+), 37 deletions(-)

diff --git a/www/dailymod.pl b/www/dailymod.pl
index 318149b975..9e3d118ba2 100755
--- a/www/dailymod.pl
+++ b/www/dailymod.pl
@@ -4,8 +4,15 @@ require "rockbox.pm";
 
 my $basedir = "/home/dast/rockbox-build/daily-build";
 
-my @list=("player", "recorder", "fmrecorder", "recorderv2",
-          "recorder8mb", "fmrecorder8mb", "ondiofm", "ondiosp");
+my @list=("player",
+          "recorder", "recorder8mb",
+          "fmrecorder", "fmrecorder8mb",
+          "recorderv2",
+          "ondiofm", "ondiosp",
+          "h100", "h120", "h300", "ipodcolor", "ipodnano",
+
+          # install and source are special cases
+          "install", "source");
 
 for(@list) {
     my $dir = $_;
@@ -19,44 +26,59 @@ for(@list) {
     }
 }
 
-$color1 = 0xc6;
-$color2 = 0xd6;
-$color3 = 0xf5;
-$font1 = "<b>";
-$font2 = "</b>";
-
 for(reverse sort keys %date) {
     my $d = $_;
     my $nice = $d;
     if($d =~ /(\d\d\d\d)(\d\d)(\d\d)/) {
         $nice = "$1-$2-$3";
     }
-    $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";
+    print "<table class=rockbox cellpadding=\"0\"><tr valign=top>\n";
 
     $color1 -= 0x18;
     $color2 -= 0x18;
     $color3 -= 0x18;
     
-    for(@list) {
-        my $n=0;
-        my $m = $_;
-        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\">latest</a>",
-            $n?", ":"";
-            $n++;
-        }
-        print "$font2 <p><a href=\"dl.cgi?bin=$_\">old versions</a></td>\n";
+    my $count = 0;
+    my $split = int((scalar @list) / 2);
+    my $x = 0;
+    my @head;
+
+    foreach $t (@list) {
+        my $show = $t;
+        $show =~ s/recorder/rec/;
+        # Remove the comment below to get long names
+        # $show = $longname{$t};
+        $head[$x] .= "<th>$show</th>\n";
+	$count++;
+	if ($count == $split) {
+	    $x++;
+	}
+    }
+    print "$head[0]</tr><tr>\n";
+
+    $count = 0;
+    for(@list) {
+        my $m = $_;
+        printf "<td><img alt=\"$m\" src=\"$model{$m}\"><br>";
+        # new-style full zip:
+        my $file = "rockbox-${m}-${d}.zip";
+        if($m eq "source") {
+            $file = "rockbox-daily-${d}.tar.gz";
+        }
+        elsif($m eq "install") {
+            $file = "Rockbox-${d}-install.exe";
+        }
+        if( -f "$basedir/$m/$file") {
+            printf "<a href=\"/daily/$_/$file\">latest</a>",
+        }
+        print "<p><a href=\"/dl.cgi?bin=$_\">older</a></td>\n";
+
+	$count++;
+	if ($count == $split) {
+	    print "</tr><tr>$head[1]</tr><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";
diff --git a/www/dailysrc.pl b/www/dailysrc.pl
index 1fa1f8ac22..0143909c39 100755
--- a/www/dailysrc.pl
+++ b/www/dailysrc.pl
@@ -7,21 +7,15 @@ opendir(DIR, $basedir) or
 @tarballs = sort grep { /^rockbox-daily-/ } readdir(DIR);
 closedir DIR;
 
-print "<ul>\n";
-
-for ( sort {$b <=> $a} @tarballs ) {
+for ( sort {$b cmp $a} @tarballs ) {
     $size = (stat("$basedir/$_"))[7];
     $log = "";
     if (/-(\d+)/) {
         $date = $1;
-        if ( -f "$basedir/changes-$date.txt") {
-            $lines = `grep "Number of changes:" $basedir/changes-$date.txt | cut "-d " -f4` + 0;
-            $log = "<a href=\"daily/changes-$date.html\">Changelog</a> <small>($lines changes)</small>";
+        if ( -f "$basedir/changes-$date.html") {
+            $log = "<a href=\"daily/changes-$date.html\">Changes done $date</a>";
         }
     }
-    print "<li><a href=\"daily/$_\">$_</a> <small>($size bytes)</small> $log\n";
-    print "<li><a href=\"dl.cgi?bin=source\">old versions</a>\n";
+    print "$log\n";
     last;
 }
-
-print "</ul>\n";