===================================================================
RCS file: /cvs/mp3/bin/deleteplaylist.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- mp3/bin/deleteplaylist.pl 2006/08/12 01:14:53 1.2
+++ mp3/bin/deleteplaylist.pl 2007/02/08 20:04:03 1.3
@@ -1,5 +1,5 @@
#!/usr/bin/perl -w
-# $RedRiver$
+# $RedRiver: deleteplaylist.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $
########################################################################
# DeletePlaylist.plx ***
#
@@ -12,8 +12,6 @@
use CGI qw/:standard/; # load standard CGI routines
use CGI::Carp qw(fatalsToBrowser);
-my $list = '/var/www/mp3/playlist/playlist.lst';
-
my $query = new CGI;
my $vars = $query->Vars;
@@ -22,6 +20,17 @@
########################################################################
# *** MAIN ***
########################################################################
+
+my $prefix = $ENV{'QUERY_STRING'};
+if ($prefix) {
+ $prefix =~ s/%(..)/pack("c",hex($1))/ge;
+} else {
+ $prefix ='';
+}
+
+my $list = '/var/www/mp3/playlist/' . $prefix . 'playlist.lst';
+
+
print "Content-Type: text/html\n\n";
print "\n\n\t Deleting Playlist\n";
print "\n\n";