1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
#!/usr/bin/perl
require "rockbox.pm";
my $basedir = "/home/dast/rockbox-build/daily-build";
my @list=("player", "recorder", "fmrecorder", "recorderv2",
"recorder8mb", "fmrecorder8mb", "ondiofm", "ondiosp");
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";
|
