1 files changed, 30 insertions, 0 deletions

diff --git a/www/dailymod.pl b/www/dailymod.pl
new file mode 100755
index 0000000000..f923a414c0
--- /dev/null
+++ b/www/dailymod.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+$basedir = "/home/dast/rockbox-build/daily-build";
+
+sub list {
+    $dir = shift @_;
+
+    opendir(DIR, "$basedir/$dir") or
+        die "Can't opendir($basedir/$dir)";
+    @tarballs = grep { /^archos/ } readdir(DIR);
+    closedir DIR;
+    
+    print "<ul>\n";
+    for ( @tarballs ) {
+        print "<li><a href=\"daily/$dir/$_\">$_</a>\n";
+    }
+    print "</ul>\n";
+}
+
+print "<h3>player-old</h3>\n";
+print "<p>This version is for old Archos Jukebox 6000 models with ROM firmware older than 4.50.\n";
+&list("playerold");
+
+print "<h3>player</h3>\n";
+print "<p>This version is for Archos Jukebox 6000 with ROM firmware 4.50 or later, and all Studio models.\n";
+&list("player");
+
+print "<h3>recorder</h3>\n";
+print "<p>This version is for all Archos Jukebox Recorder models.\n";
+&list("recorder");