From ef5562df2ae11c2759b9b168a111fee46c214d9d Mon Sep 17 00:00:00 2001 From: Daniel Stenberg Date: Sun, 3 Aug 2003 23:13:12 +0000 Subject: support the new style file names with model names embedded git-svn-id: svn://svn.rockbox.org/rockbox/trunk@3915 a1c6a512-1295-4272-9138-f99709370657 --- www/dailymod.pl | 25 +++++++++++++++++++++++-- 1 file changed, 23 insertions(+), 2 deletions(-) diff --git a/www/dailymod.pl b/www/dailymod.pl index 8e503ee30d..e7bbee977b 100755 --- a/www/dailymod.pl +++ b/www/dailymod.pl @@ -8,7 +8,7 @@ for(@list) { my $dir = $_; opendir(DIR, "$basedir/$dir") or die "Can't opendir($basedir/$dir)"; - my @files = sort grep { /^rockbox2/ } readdir(DIR); + my @files = sort grep { /^rockbox/ } readdir(DIR); closedir DIR; for(@files) { @@ -33,26 +33,47 @@ for(reverse sort keys %date) { for(@list) { my $n=0; + my $m = $_; print " "; + # old mod if( -f "daily/$_/rockbox${d}.mod") { print "mod"; $n++; } - if( -f "daily/$_/rockbox${d}.ajz") { + # new mod + if( -f "daily/$_/rockbox-$m-${d}.mod") { + print "mod"; + $n++; + } + # old ajz + if( -f "daily/$_/rockbox${d}.ajz") { printf "%sajz", $n?", ":""; $n++; } + # new ajz + if( -f "daily/$m/rockbox-$m-${d}.ajz") { + printf "%sajz", + $n?", ":""; + $n++; + } if( -f "daily/$_/rocks${d}.zip") { printf "%srocks", $n?", ":""; $n++; } + # old-style full zip if( -f "daily/$_/rockbox-${d}.zip") { printf "%sfull", $n?", ":""; $n++; } + # new-style full zip: + if( -f "daily/$m/rockbox-${m}-${d}.zip") { + printf "%sfull", + $n?", ":""; + $n++; + } if( -f "daily/$_/rockbox${d}.ucl") { printf "%sucl", $n?", ":""; -- cgit v1.2.3