Annotation of mp3/bin/addmp3playlist.pl, Revision 1.1
1.1 ! andrew 1: #!/usr/bin/perl -w
! 2: ########################################################################
! 3: # addmp3playlist.pl *** Adds MP3's to the playlist
! 4: #
! 5: # 04-13-00
! 6: # Written by andrew fresh <andrew@mad-techies.org>
! 7: ########################################################################
! 8: use strict;
! 9: use diagnostics;
! 10:
! 11:
! 12:
! 13: ########################################################################
! 14: # *** Variables ***
! 15: my $DestDir = '/home/mp3/Sorted';
! 16: my $filename = $ENV{'QUERY_STRING'};
! 17: my $playlist = '/var/www/mp3/playlist/playlist.lst';
! 18:
! 19:
! 20:
! 21: ########################################################################
! 22: # *** MAIN ***
! 23: ########################################################################
! 24: if (! -d $DestDir) { mkdir $DestDir, 0777 }
! 25:
! 26:
! 27:
! 28: print "Content-Type: text/html\n\n";
! 29:
! 30: $filename =~ s/%(..)/pack("c",hex($1))/ge;
! 31:
! 32: if ($filename) {
! 33: print "<html>\n<head>\n\t<meta HTTP-EQUIV='Pragma' CONTENT='no-cache'>";
! 34:
! 35: if ($ENV{'QUERY_STRING'}) {
! 36: print "<meta HTTP-EQUIV=Refresh CONTENT=\"10; URL=/blank.htm\">";
! 37: }
! 38:
! 39: print "<title>Added $filename</title>\n<body>\n\n";
! 40:
! 41: print "<h3>Added $filename</h3>\n";
! 42: open PLAYLIST, ">>$playlist" or bail("unable to open PLAYLIST: $!");
! 43: print PLAYLIST "$filename\n";
! 44: close PLAYLIST or bail("unable to close PLAYLIST: $!");
! 45: } else {
! 46: print "<h1>You need to pass a song</h1>";
! 47: }
! 48:
! 49: print "</body>\n</head>\n</html>\n";
! 50:
! 51:
! 52:
! 53:
! 54:
! 55:
! 56:
! 57:
! 58:
! 59:
! 60: ########################################################################
! 61: # *** SUBS ***
! 62: ########################################################################
! 63:
! 64:
! 65:
! 66:
! 67:
! 68:
! 69:
! 70:
! 71: ########################################################################
! 72: # Bail: this subrouting dies and displays the error to the browser.
! 73: # gotten from the example in the O'Reilly
! 74: # _Learning_Perl_on_Win32_Systems_
! 75: sub bail {
! 76: my $error = "@_";
! 77: print "Error! $error";
! 78: exit;
! 79: }
! 80: ########################################################################
! 81:
! 82:
! 83: sub Print_Nav
! 84: {
! 85: open FILE, 'nav.inc' or die "\n\ncouldn't open FILE nav.inc: $!";
! 86: while (<FILE>) {
! 87: print;
! 88: }
! 89: close FILE;
! 90: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>