=================================================================== RCS file: /cvs/mp3/bin/addmp3playlist.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- mp3/bin/addmp3playlist.pl 2006/08/12 01:14:53 1.2 +++ mp3/bin/addmp3playlist.pl 2007/02/08 20:04:03 1.3 @@ -1,5 +1,5 @@ #!/usr/bin/perl -w -# $RedRiver$ +# $RedRiver: addmp3playlist.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $ ######################################################################## # addmp3playlist.pl *** Adds MP3's to the playlist # @@ -14,8 +14,6 @@ ######################################################################## # *** Variables *** my $DestDir = '/home/mp3/Sorted'; -my $filename = $ENV{'QUERY_STRING'}; -my $playlist = '/var/www/mp3/playlist/playlist.lst'; @@ -24,11 +22,29 @@ ######################################################################## if (! -d $DestDir) { mkdir $DestDir, 0777 } +my ($prefix, $filename, $playlist) = split /\&/, $ENV{'QUERY_STRING'}; +if ($filename) { + $filename =~ s/%(..)/pack("c",hex($1))/ge; +} else { + $filename =''; +} +if ($playlist) { + $playlist =~ s/%(..)/pack("c",hex($1))/ge; +} else { + $playlist ='playlist.lst'; +} +if ($prefix) { + $prefix =~ s/%(..)/pack("c",hex($1))/ge; +} else { + $prefix =''; +} + +my $playlist = '/var/www/mp3/playlist/' . $prefix . $playlist; + print "Content-Type: text/html\n\n"; -$filename =~ s/%(..)/pack("c",hex($1))/ge; if ($filename) { print "\n\n\t";