version 1.1, 2006/03/02 23:20:47 |
version 1.3, 2007/02/08 20:04:03 |
|
|
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
|
# $RedRiver: deleteplaylist.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $ |
######################################################################## |
######################################################################## |
# DeletePlaylist.plx *** |
# DeletePlaylist.plx *** |
# |
# |
|
|
use CGI qw/:standard/; # load standard CGI routines |
use CGI qw/:standard/; # load standard CGI routines |
use CGI::Carp qw(fatalsToBrowser); |
use CGI::Carp qw(fatalsToBrowser); |
|
|
my $list = '/var/www/mp3/playlist/playlist.lst'; |
|
|
|
my $query = new CGI; |
my $query = new CGI; |
|
|
my $vars = $query->Vars; |
my $vars = $query->Vars; |
|
|
######################################################################## |
######################################################################## |
# *** MAIN *** |
# *** 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 "Content-Type: text/html\n\n"; |
print "<html>\n<head>\n\t<meta HTTP-EQUIV='Pragma' CONTENT='no-cache'> <title>Deleting Playlist</title>\n"; |
print "<html>\n<head>\n\t<meta HTTP-EQUIV='Pragma' CONTENT='no-cache'> <title>Deleting Playlist</title>\n"; |
print "<body>\n\n"; |
print "<body>\n\n"; |