Annotation of mp3/bin/addmp3playlist.pl, Revision 1.1.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>