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 = ""; -$font2 = ""; - 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 "
| $font1$m$font2 "; - # new-style full zip: - if( -f "daily/$m/rockbox-${m}-${d}.zip") { - printf "%slatest", - $n?", ":""; - $n++; - } - print "$font2 | \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] .= "$show | \n"; + $count++; + if ($count == $split) { + $x++; + } + } + print "$head[0]
|---|---|
"; + # 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 "latest", + } + print " | \n";
+
+ $count++;
+ if ($count == $split) {
+ print "|
| ${font1}windows installer$font2 "; - print "latest", - " | ";
print "