Annotation of mp3/bin/addall.pl, Revision 1.1.1.1
1.1 andrew 1: #!/usr/bin/perl -w
2: ########################################################################
3: # showall.pl *** Displays all MP3's in all subdirs
4: #
5: # 04-27-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 $playlist = '/var/www/mp3/playlist/playlist.lst';
17:
18: my $countdir = 0;
19: my $countmp3 = 0;
20: #######################################################################
21: # *** MAIN ***
22: #######################################################################
23:
24: if ($subdir) {
25: $subdir =~ s/%(..)/pack("c",hex($1))/ge;
26: } else {
27: $subdir ='';
28: }
29:
30: #$basedir = $basedir . "/" . $subdir;
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: print "<h3>";
38: SplitDir($subdir);
39: print "</h3>\n<hr>\n";
40:
41: #@mp3s = GetMP3Listing("$basedir/$subdir");
42:
43: GetDirListing("$subdir");
44: #GetDirListing("");
45:
46: print "<hr>\n<h3>Total Directories displayed: $countdir<br>\n";
47: print "Total MP3's Added: $countmp3</h3>\n";
48:
49: #if (%dirs) {
50: # my $count;
51: # my @sorted = sort { lc($dirs{$a}) cmp lc($dirs{$b}) } (keys %dirs);
52: # foreach my $dir (@sorted) {
53: # print "<a href=\"showfiles.pl\?" . EncodeURL("$dir/$dirs{$dir}") . "\">$dirs{$dir}</a><br>";
54: # $count++;
55: # }
56: # print "Total dirs displayed: $count<p>\n";
57: #}
58:
59: #if (%mp3s) {
60: # print "<ul>\n";
61: # my @sorted = sort { lc($mp3s{$a}) cmp lc($mp3s{$b}) } (keys %mp3s);
62: # my $count;
63: # foreach my $mp3dir (sort keys %mp3s) {
64: # foreach $mp3 (@{ $mp3s{$mp3dir} }) {
65: # print "\t<li>Song: <a href=\"$addurl\?" . EncodeURL("$mp3dir/$mp3") . "\" target=\"bottom\">$mp3</a></li>\n";
66: # $count++;
67: # }
68: # }
69: # print "</ul>\n";
70: # print "Total MP3's Displayed: $count<p>\n";
71: #}
72:
73: print "</body>\n</head>\n</html>\n";
74:
75:
76:
77:
78: ########################################################################
79: # *** SUBS ***
80: ########################################################################
81:
82: ########################################################################
83: # *** GetDirListing: reads the list of directories
84: sub GetDirListing {
85: my $DIR = shift;
86: $DIR ||= '';
87: my @directories;
88: my @songs;
89:
90:
91: opendir DIR, "$basedir/$DIR" or bail("Unable to opendir $$!");
92: @directories = grep { !/^\./ && -d "$basedir$DIR/$_" } readdir(DIR);
93: closedir DIR;
94:
95: print "<ul>\n";
96: foreach my $directory (@directories) {
97: # $dirs{"$DIR/$directory"} = $directory;
98: print "<li><a href=\"showfiles.pl\?" . EncodeURL("$DIR/$directory") . "\">$directory</a>";
99: print " - <font size=\"-1\"><a href=\"" . "showall.pl" . "\?" . EncodeURL("$DIR/$directory") . "\">All</a></font></li>";
100:
101: $countdir++;
102: my @curdir = GetDirListing("$DIR/$directory");
103:
104:
105:
106: # push @dirs, @curdir;
107: # print "<a href=\"showfiles.pl\?" . EncodeURL("$DIR/$directory") . "\">$directory</a><br>";
108: }
109: opendir DIR, "$basedir/$DIR" or bail("Unable to opendir $$!");
110: my @temp = grep /\.(mp3|ogg)$/i, readdir(DIR);
111: # $mp3s{"$DIR/$directory"} = [ @temp ];
112: print "<ul>\n";
113: foreach my $mp3 (@temp) {
114: # print "\t<li>Song: <a href=\"$addurl\?" . EncodeURL("$DIR/$mp3") . "\" target=\"bottom\">$mp3</a></li><br>\n";
115: print "\t<li>";
116: AddSong("$DIR/$mp3");
117: print "</li>\n";
118: $countmp3++;
119: }
120: print "</ul>\n";
121: closedir DIR;
122:
123: print "</ul>\n";
124:
125:
126: return @directories;
127: }
128:
129:
130:
131:
132: ########################################################################
133: # *** GetMP3Listing: reads the list of directories
134: sub GetMP3Listing {
135: my $DIR = shift;
136: my @songs;
137: opendir DIR, $DIR or bail("Unable to opendir $$!");
138: @songs = grep /\.(mp3|ogg)$/i, readdir(DIR);
139: closedir DIR;
140:
141: return @songs;
142: }
143:
144:
145:
146:
147:
148: ########################################################################
149: # *** EncodeURL: %encodes the parameters of the URL
150: sub EncodeURL {
151: my $strURL = shift;
152: $strURL =~ s/(\W)/sprintf("%%%x", ord($1))/eg;
153: return $strURL;
154: }
155:
156:
157:
158:
159: #########################################################################
160: # My name
161: sub MyName {
162: my @filename = (split /\//, $0);
163: pop @filename;
164: }
165:
166:
167:
168: #########################################################################
169: # SplitDir
170: sub SplitDir {
171: my $dir = shift;
172: substr($dir, 0, 1) = "";
173: my @filename = (split /\//, $dir);
174: my $file;
175: my $returntext;
176: my $i;
177:
178:
179: if ($dir ne " ") {
180: for ($i=0;$i<=$#filename;$i++) {
181: my $j;
182: my $url = "";
183: for ($j=0;$j<=$i;$j++) {
184: $url = "$url/$filename[$j]";
185: }
186: print "/<a href=\"showfiles.pl\?" . EncodeURL($url) . "\">$filename[$i]</a>";
187:
188: }
189: } else {
190: print "/";
191: }
192: }
193:
194:
195:
196:
197: #######################################################################
198: # Bail: this subrouting dies and displays the error to the browser.
199: # gotten from the example in the O'Reilly
200: # _Learning_Perl_on_Win32_Systems_
201: sub bail {
202: my $error = shift;
203: print "\n\nUnexpected Error: <b>$error</b><br>\n";
204: print "In " . __FILE__ . "\n";
205: die;
206: exit;
207: }
208:
209:
210: sub AddSong
211: {
212: my $filename = shift;
213: $filename =~ s/%(..)/pack("c",hex($1))/ge;
214:
215: if ($filename) {
216: print "Added $filename<br>\n";
217: open PLAYLIST, ">>$playlist" or bail("unable to open PLAYLIST: $!");
218: print PLAYLIST "$filename\n";
219: close PLAYLIST or bail("unable to close PLAYLIST: $!");
220: } else {
221: print "<h1>You need to pass a song</h1>";
222: }
223: }
224:
225: sub Print_Nav
226: {
227: open FILE, 'nav.inc' or die "\n\ncouldn't open FILE nav.inc: $!";
228: while (<FILE>) {
229: print;
230: }
231: close FILE;
232: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to addall.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / mp3 / bin