[BACK]Return to addmp3playlist.pl CVS log [TXT][DIR] Up to [local] / mp3 / bin

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>