Annotation of mp3/bin/showfiles.pl, Revision 1.1
1.1 ! andrew 1: #!/usr/bin/perl -w
! 2: ########################################################################
! 3: # GenerateMP3HTML.pl *** Generates the HTML files for the playlist.
! 4: #
! 5: # 04-14-00
! 6: # Written by andrew fresh <andrew@mad-techies.org>
! 7: ########################################################################
! 8: use strict;
! 9: use diagnostics;
! 10:
! 11: #use MP3::Info;
! 12: #my qw/ @mp3s @dirs /;
! 13:
! 14: my $basedir = '/home/mp3/Sorted';
! 15: my $subdir = $ENV{'QUERY_STRING'};
! 16: my $addurl = 'addmp3playlist.pl';
! 17:
! 18: #######################################################################
! 19: # *** MAIN ***
! 20: #######################################################################
! 21:
! 22: if ($subdir) {
! 23: $subdir =~ s/%(..)/pack("c",hex($1))/ge;
! 24: } else {
! 25: $subdir ='';
! 26: }
! 27:
! 28: my @dirs = GetDirListing("$basedir/$subdir");
! 29: my @mp3s = GetMP3Listing("$basedir/$subdir");
! 30:
! 31:
! 32: print "Content-Type: text/html\n\n";
! 33: print "<html>\n<head>\n\t<meta HTTP-EQUIV='Pragma' CONTENT='no-cache'> <title>' . $subdir . '</title>\n<body>\n\n";
! 34:
! 35: #Print_Nav();
! 36:
! 37: if ($subdir) {
! 38: print "<h3>";
! 39: SplitDir($subdir);
! 40: print " - <font size=\"-2\"><a href=\"" . "showall.pl" . "\?" . EncodeURL("$subdir") . "\">All</a></font>";
! 41: print " - <font size=\"-2\"><a href=\"" . "addall.pl" . "\?" . EncodeURL("$subdir") . "\">Add</a></font><br>";
! 42: print "</h3>\n";
! 43: print "<hr>\n";
! 44: }
! 45:
! 46: if (@dirs) {
! 47: foreach my $dir (@dirs) {
! 48: print "<a href=\"" . MyName() . "\?" . EncodeURL("$subdir/$dir") . "\">$dir</a> ";
! 49: print "- <font size=\"-2\"><a href=\"" . "showall.pl" . "\?" . EncodeURL("$subdir/$dir") . "\">All</a></font>";
! 50: print "- <font size=\"-2\"><a href=\"" . "addall.pl" . "\?" . EncodeURL("$subdir/$dir") . "\">Add</a></font><br>";
! 51: }
! 52: }
! 53:
! 54: if (@mp3s) {
! 55: print "<ul>\n";
! 56: foreach my $mp3 (@mp3s) {
! 57: my $songtitle = $mp3;
! 58: my $directory = $subdir;
! 59: $directory =~ s#.*/(.*)$#$1#;
! 60: # print "dir ", $directory;
! 61: # print "song ", $songtitle;
! 62: if ($songtitle =~ /\Q$directory\E\s/i) {
! 63: $songtitle =~ s/^.*- (\d{2}(\.| -) .*)/$1/i;
! 64: }
! 65:
! 66: print "\t<li>";
! 67: if ($songtitle =~ /\.mp3$/i) {
! 68: print "MP3: ";
! 69: } elsif ($songtitle =~ /\.ogg$/i) {
! 70: print "OGG: ";
! 71: }
! 72:
! 73: $songtitle =~ s/\.(mp3|ogg)$//i;
! 74: print "<a href=\"$addurl\?" . EncodeURL("$subdir/$mp3") . "\" target=\"bottom\">$songtitle</a></li>\n";
! 75: }
! 76: print "</ul>\n";
! 77: }
! 78:
! 79: print "</body>\n</head>\n</html>\n";
! 80:
! 81:
! 82:
! 83:
! 84: ########################################################################
! 85: # *** SUBS ***
! 86: ########################################################################
! 87:
! 88: ########################################################################
! 89: # *** GetDirListing: reads the list of directories
! 90: sub GetDirListing {
! 91: my $DIR = shift;
! 92: my @directories;
! 93: my @songs;
! 94: opendir DIR, $DIR or bail("Unable to opendir $$!");
! 95: @directories = grep { !/^\./ && -d "$DIR/$_" } readdir(DIR);
! 96: closedir DIR;
! 97:
! 98: return sort @directories;
! 99: }
! 100:
! 101:
! 102:
! 103:
! 104: ########################################################################
! 105: # *** GetMP3Listing: reads the list of directories
! 106: sub GetMP3Listing {
! 107: my $DIR = shift;
! 108: my @songs;
! 109: opendir DIR, $DIR or bail("Unable to opendir $$!");
! 110: @songs = grep /\.(mp3|ogg)$/i, readdir(DIR);
! 111: closedir DIR;
! 112:
! 113: return sort @songs;
! 114: }
! 115:
! 116:
! 117:
! 118:
! 119:
! 120: ########################################################################
! 121: # *** EncodeURL: %encodes the parameters of the URL
! 122: sub EncodeURL {
! 123: my $strURL = shift;
! 124: $strURL =~ s/(\W)/sprintf("%%%x", ord($1))/eg;
! 125: return $strURL;
! 126: }
! 127:
! 128:
! 129:
! 130:
! 131: #########################################################################
! 132: # My name
! 133: sub MyName {
! 134: my @filename = (split /\//, $0);
! 135: pop @filename;
! 136: }
! 137:
! 138:
! 139:
! 140: #########################################################################
! 141: # SplitDir
! 142: sub SplitDir {
! 143: my $dir = shift;
! 144: substr($dir, 0, 1) = "";
! 145: my @filename = (split /\//, $dir);
! 146: my $file;
! 147: my $returntext;
! 148: my $i;
! 149:
! 150:
! 151: if ($dir ne " ") {
! 152: for ($i=0;$i<=$#filename;$i++) {
! 153: my $j;
! 154: my $url = "";
! 155: for ($j=0;$j<=$i;$j++) {
! 156: $url = "$url/$filename[$j]";
! 157: }
! 158: print "/<a href=\"showfiles.pl\?" . EncodeURL($url) . "\">$filename[$i]</a>";
! 159:
! 160: }
! 161: } else {
! 162: print "/";
! 163: }
! 164: }
! 165:
! 166:
! 167:
! 168:
! 169: #######################################################################
! 170: # Bail: this subrouting dies and displays the error to the browser.
! 171: # gotten from the example in the O'Reilly
! 172: # _Learning_Perl_on_Win32_Systems_
! 173: sub bail {
! 174: my $error = shift;
! 175: print "\n\nUnexpected Error: <b>$error</b><br>\n";
! 176: print "In " . __FILE__ . "\n";
! 177: die;
! 178: exit;
! 179: }
! 180: sub Print_Nav
! 181: {
! 182: open FILE, 'nav.inc' or die "\n\ncouldn't open FILE nav.inc: $!";
! 183: while (<FILE>) {
! 184: print;
! 185: }
! 186: close FILE;
! 187: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to showfiles.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / mp3 / bin