=================================================================== RCS file: /cvs/mp3/bin/showfiles.pl,v retrieving revision 1.1 retrieving revision 1.3 diff -u -r1.1 -r1.3 --- mp3/bin/showfiles.pl 2006/03/02 23:20:47 1.1 +++ mp3/bin/showfiles.pl 2007/02/08 20:04:03 1.3 @@ -1,4 +1,5 @@ #!/usr/bin/perl -w +# $RedRiver: showfiles.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $ ######################################################################## # GenerateMP3HTML.pl *** Generates the HTML files for the playlist. # @@ -12,19 +13,25 @@ #my qw/ @mp3s @dirs /; my $basedir = '/home/mp3/Sorted'; -my $subdir = $ENV{'QUERY_STRING'}; my $addurl = 'addmp3playlist.pl'; ####################################################################### # *** MAIN *** ####################################################################### +my ($prefix, $subdir) = split /\&/, $ENV{'QUERY_STRING'}; if ($subdir) { $subdir =~ s/%(..)/pack("c",hex($1))/ge; } else { $subdir =''; } +if ($prefix) { + $prefix =~ s/%(..)/pack("c",hex($1))/ge; +} else { + $prefix =''; +} + my @dirs = GetDirListing("$basedir/$subdir"); my @mp3s = GetMP3Listing("$basedir/$subdir"); @@ -37,17 +44,21 @@ if ($subdir) { print "