version 1.1, 2006/03/02 23:20:47 |
version 1.2, 2006/08/12 01:14:53 |
|
|
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
|
# $RedRiver$ |
######################################################################## |
######################################################################## |
# showall.pl *** Displays all MP3's in all subdirs |
# showall.pl *** Displays all MP3's in all subdirs |
# |
# |
|
|
# $filename =~ s/%(..)/pack("c",hex($1))/ge; |
# $filename =~ s/%(..)/pack("c",hex($1))/ge; |
chomp $filename; |
chomp $filename; |
print "Added $filename<br>\n"; |
print "Added $filename<br>\n"; |
open PLAYLIST, ">>$list" or bail("unable to open PLAYLIST: $!"); |
open PLAYLIST, ">>$list" or bail("unable to open PLAYLIST '$list': $!"); |
print PLAYLIST "$filename\n"; |
print PLAYLIST "$filename\n"; |
close PLAYLIST or bail("unable to close PLAYLIST: $!"); |
close PLAYLIST or bail("unable to close PLAYLIST: $!"); |
} else { |
} else { |