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

Annotation of mp3/bin/removemp3playlist.pl, Revision 1.1.1.1

1.1       andrew      1: #!/usr/bin/perl -w
                      2: ########################################################################
                      3: # RemoveMP3Playlist.pl *** Removed MP3's from the playlist
                      4: #
                      5: # 04-19-00
                      6: # Written by andrew fresh <andrew@mad-techies.org>
                      7: ########################################################################
                      8: use strict;
                      9: use diagnostics;
                     10:
                     11:
                     12: #my qw/ $removed $filename $list /;
                     13: ########################################################################
                     14: # *** Variables ***
                     15: my $filename = $ENV{'QUERY_STRING'};
                     16: my $list = '/var/www/mp3/playlist/playlist.lst';
                     17:
                     18:
                     19:
                     20: ########################################################################
                     21: # *** MAIN ***
                     22: ########################################################################
                     23:
                     24: my @playlist = get_playlist($list);
                     25: $filename =~ s/%(..)/pack("c",hex($1))/ge;
                     26: my $removed = 0;
                     27: my $oldfilename;
                     28:
                     29: print "Content-Type: text/html\n\n";
                     30: print "<html>\n<head>\n\t<meta HTTP-EQUIV='Pragma' CONTENT='no-cache'> <title>Added $filename</title>\n<body>\n\n";
                     31:
                     32: # Print_Nav();
                     33: my $i;
                     34: for ($i=0;$i<=$#playlist;$i++) {
                     35:        if ($filename eq $playlist[$i]) {
                     36:                $oldfilename = splice(@playlist,$i,1);
                     37:                $removed++;
                     38:        }
                     39: }
                     40:
                     41: save_playlist($list,@playlist) || bail("Unable to save playlist!: $!");
                     42:
                     43: if ($removed == 1) {
                     44:        print "Removed $removed instance of $filename";
                     45: } elsif ($removed > 1) {
                     46:        print "Removed $removed instances of $filename";
                     47: } else {
                     48:        print "Not Removed!<br>\n";
                     49:        print "$filename not found"
                     50: }
                     51:
                     52: print "</body>\n</head>\n</html>\n";
                     53:
                     54:
                     55:
                     56:
                     57:
                     58:
                     59:
                     60:
                     61:
                     62:
                     63: ########################################################################
                     64: # *** SUBS ***
                     65: ########################################################################
                     66:
                     67:
                     68:
                     69:
                     70: #######################################################################
                     71: # writes back the new playlist
                     72: sub save_playlist {
                     73:        my $FILE = shift;
                     74:        my @lines = @_;
                     75:        open (FILE, ">$FILE") || bail ("Couldn\'t open $FILE: $!");
                     76:        foreach (@lines) {
                     77:                print FILE "$_\n";
                     78:        }
                     79:        close (FILE) || bail ("Couldn't close $FILE: $!");
                     80:        return 1;
                     81: }
                     82:
                     83:
                     84:
                     85:
                     86: #######################################################################
                     87: # read in the Playlist
                     88: sub get_playlist {
                     89:        my $FILE = shift;
                     90:        my @lines;
                     91:        while (@lines == 0) {
                     92:                open (FILE, $FILE) || bail ("Couldn\'t open $FILE: $!");
                     93:                chomp (@lines = <FILE>);
                     94:                close (FILE) || bail ("Couldn't close $FILE: $!");
                     95:        }
                     96:        return @lines;
                     97: }
                     98:
                     99:
                    100:
                    101:
                    102:
                    103: ########################################################################
                    104: # Bail: this subrouting dies and displays the error to the browser.
                    105: # gotten from the example in the O'Reilly
                    106: # _Learning_Perl_on_Win32_Systems_
                    107: sub bail {
                    108:        my $error = "@_";
                    109:        print "Error! $error";
                    110:        exit;
                    111: }
                    112: ########################################################################
                    113:
                    114:
                    115: sub Print_Nav
                    116: {
                    117:        open FILE, 'nav.inc' or die "\n\ncouldn't open FILE nav.inc: $!";
                    118:        while (<FILE>) {
                    119:                print;
                    120:        }
                    121:        close FILE;
                    122: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>