mp3/bin/deleteplaylist.pl - diff

Return to deleteplaylist.pl CVS log

Up to [local] / mp3 / bin

version 1.2, 2006/08/12 01:14:53

version 1.3, 2007/02/08 20:04:03

Line 1

#!/usr/bin/perl -w

# $RedRiver$

# $RedRiver: deleteplaylist.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $

########################################################################

# DeletePlaylist.plx ***

Line 12

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;

Line 22

Line 20

########################################################################

# *** 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 "<html>\n<head>\n\t<meta HTTP-EQUIV='Pragma' CONTENT='no-cache'> <title>Deleting Playlist</title>\n";

print "<body>\n\n";