3147b085bd
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@5138 a1c6a512-1295-4272-9138-f99709370657
62 lines
1.6 KiB
Perl
Executable file
62 lines
1.6 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
require "rockbox.pm";
|
|
|
|
my $basedir = "/home/dast/rockbox-build/daily-build";
|
|
|
|
my @list=("player", "recorder", "fmrecorder", "recorderv2", "recorder8mb", "fmrecorder8mb");
|
|
|
|
for(@list) {
|
|
my $dir = $_;
|
|
opendir(DIR, "$basedir/$dir") or next;
|
|
my @files = sort grep { /^rockbox/ } readdir(DIR);
|
|
closedir DIR;
|
|
|
|
for(@files) {
|
|
/(20\d+)/;
|
|
$date{$1}=$1;
|
|
}
|
|
}
|
|
|
|
$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";
|
|
|
|
$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";
|
|
}
|
|
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";
|
|
|