#!/usr/bin/perl require "CGI.pm"; require "./rockbox.pm"; my $req = new CGI; my $bin = $req->param('bin'); # Bots gonna bot. Explcitly return an error. if ($bin =~ /^\// || $bin =~ /^\./) { print $req->header('type text/html', '400 Bad Request'); exit(0); } my $fine=0; my $pic = playerpic($bin); my $basedir = "/home/rockbox/download"; my $baseurl = "//download.rockbox.org"; my $desc = $builds{$bin}{name}; header("Rockbox $desc Daily Builds"); sub showother { my ($c)=@_; print "daily build page
"; print "
%s | ",
$model{$_}, $_, $_;
}
}
print "
\n";
open(FILE, "dailymod.html");
while (
For other players, see the daily builds page.
MOO
;
my %date;
my $dir = $bin;
opendir(DIR, "$basedir/daily/$dir");
for(grep { /^rockbox/ } readdir(DIR)) {
/(\d{8})/;
$date{$1}=$1;
}
closedir DIR;
print "",
" \n";
#open(FILE, "dailymod.html");
#while (\n";
$color1 = 0xc6;
$color2 = 0xd6;
$color3 = 0xf5;
print "
\n";
print "";
for(('Date', 'Commit ID', 'Binary Package', 'Source Code', 'Fonts', 'Changes', 'Voice', 'Manual')) { # 'Maps'
print " ";
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 "$_ ";
}
print " \n";
$font1 = $font2 = "";
}
if (scalar keys %date == 0) {
print "$nice ";
$color1 -= 0x18;
$color2 -= 0x18;
$color3 -= 0x18;
$rev="";
if( -f "$basedir/daily/build-info-${d}") {
open(R, "<$basedir/daily/build-info-${d}");
while($rev ";
{
my $n=0;
my $m = $bin;
my $size;
# new-style full zip:
if( -f "$basedir/daily/$m/rockbox-${m}-${d}.zip") {
$size = (stat("$basedir/daily/$m/rockbox-${m}-${d}.zip"))[7];
printf("Rockbox %d KB ",
$size/1024);
} else {
print "nbsp; ";
}
# maps!
# $map="";
# if( -f "maps/$m/maps-rockbox-${m}-${d}.zip") {
# $map = sprintf "maps",
# }
# print "$map ";
if (-f "$basedir/daily/source/rockbox-source-$d.tar.xz") {
$size = int((stat("$basedir/daily/source/rockbox-source-$d.tar.xz"))[7] / 1024);
print "tar.xz source $size KB ";
}
if (-f "$basedir/daily/fonts/rockbox-fonts-$d.zip") {
$size = int((stat("$basedir/daily/fonts/rockbox-fonts-$d.zip"))[7] / 1024);
print "fonts zip $size KB ";
}
if ( -f "$basedir/daily/changelogs/changes-$d.html") {
print "changelog ";
}
else {
print "(no changes) ";
}
# Voices
my $voicemod = voicename($m);
print "";
for my $v (&allvoices) {
my $fi = "$basedir/daily/$voicemod/voice-$voicemod-$d-$v.zip";
if ( -f $fi) {
my $size = (stat($fi))[7];
printf("$voices{$v}->{short} %d KB \n";
# Manual!
print "
",
$size/1024);
}
}
print "";
if (-f "$basedir/daily/manual/rockbox-${m}-${d}.pdf") {
print " \n";
}
print "
pdf";
}
if (-f "$basedir/daily/manual/rockbox-${m}-${d}-html.zip") {
print "
html-zip";
}
print " \n";
}
print "(No $bin daily builds available)