Annotation of mp3/daemon/playmp3s.pl, Revision 1.1.1.1
1.1 andrew 1: #!/usr/bin/perl
2: ########################################################################
3: # PlayMP3.pl *** play's MP3s off a playlist using mp3play
4: #
5: # 04-14-00
6: # Written by andrew fresh <andrew@mad-techies.org>
7: ########################################################################
8:
9: use strict;
10: use warnings;
11: use diagnostics;
12:
13: use vars qw/ %cfgs /;
14:
15: #use strict qw/ $cfgs{list} @playlist $cfgs{mp3play} $filename $cfgs{basedir} $cfgs{htmldir} /;
16: #use diagnostics;
17:
18: my $config_file = shift || "/etc/playmp3s.conf";
19:
20: my $err_log = $cfgs{errors} || "/var/log/playmp3s.log";
21:
22: my %cfgs = readconfig($config_file);
23:
24:
25: Print_PlayLog("Beginning playtime\n\n");
26:
27: my %Full_Playlist;
28: $Full_Playlist{last_mod} = 0;
29: my $playlist_last_mod = 0;
30:
31: my @playlist;
32:
33: for(;;) {
34: # while(1) {
35: my $save_playlist;
36:
37: my ($last_mod) = (stat($cfgs{list}))[9];
38: if ($playlist_last_mod != $last_mod) {
39: @playlist = ();
40: $playlist_last_mod = $last_mod;
41: }
42:
43: while (! @playlist) {
44: Print_PlayLog("Getting Playlist . . .\n");
45: # bail("getting playlist");
46: @playlist = get_playlist($cfgs{list});
47: unless (@playlist) {
48: # bail("getting full playlist");
49: @playlist = get_full_playlist($cfgs{fulllist});
50:
51:
52: Print_PlayLog("Got full playlist\n");
53: $save_playlist = 0;
54: } else {
55: Print_PlayLog("Got normal playlist\n");
56: $save_playlist = 1;
57: }
58: unless (@playlist) { sleep 10; }
59: }
60: Print_PlayLog("Got playlist\n");
61:
62: Print_PlayLog("getting song to play . . .\n");
63: my $song = int rand(scalar(@playlist));
64: my $filename = splice(@playlist,$song,1);
65: Print_PlayLog("\tGot $song - filename is\n\t$filename\n");
66:
67: Print_PlayLog("displaying file that is playing . . . ");
68: DisplayPlaying($cfgs{htmldir},$filename);
69: Print_PlayLog("done\n");
70:
71: if ($save_playlist) {
72: Print_PlayLog("Saving Playlist. . .");
73: save_playlist($cfgs{list},@playlist) || bail("Unable to save playlist!: $!");
74: Print_PlayLog("done\n");
75: }
76:
77: Print_PlayLog("Playing: $filename . . .\n");
78:
79: if (defined $filename && $filename =~ /\.mp3$/i) {
80: `$cfgs{mp3play} \"$cfgs{basedir}$filename\"`;
81: } elsif ($filename =~ /\.ogg$/i) {
82: my $play = "$cfgs{basedir}$filename";
83: $play =~ s/(\(|\)|&|"|'| |-)/\\$1/g;
84: print "\n\n$play\n\n";
85: `$cfgs{oggplay} $play`;
86: }
87:
88:
89: # my $kid = 0;
90: # while ($kid ne -1 && ContinueRun()) {
91: # while ($kid ne -1) {
92: # print "waiting to end . . . ";
93: # my $kid = waitpid(-1,&WNOHANG);
94: # print "done.\n";
95: # }
96:
97:
98: if ($song) {
99: Print_PlayLog("Adding Last. . .");
100: delete ${ $Full_Playlist{list} }{$song};
101:
102: AddLast($filename, $cfgs{playedlist}, $cfgs{numhistory}, $cfgs{htmldir}, $cfgs{addurl});
103: Print_PlayLog("done\n");
104: }
105:
106: Print_PlayLog("Displaying Nothing . . .");
107: DisplayPlaying($cfgs{htmldir},"Nothing");
108: Print_PlayLog("done\n");
109:
110: #@playlist = ();
111:
112: sleep 1;
113: }
114:
115:
116: sub Install {
117: # add your additional install messages or functions here
118: print "\nThank you for installing this file\n";
119: }
120:
121: sub Remove {
122: # add your additional remove messages or functions here
123: print "\nSorry you had to leave\n";
124: }
125:
126: sub Help {
127: # add your additional help messages or functions here
128: print "\nYou don't really need help do you??\n";
129: }
130:
131: #########################################################################
132: # GetTime
133: sub GetTime {
134: my $hours = shift || 0;
135: my ($sec,$min,$hour,$mday,$mon,$year,,,) = localtime(time - (3600 * $hours)); # 86400 seconds is one day
136:
137: if ($min < 10) { $min = "0$min"}
138: if ($sec < 10) { $sec = "0$sec"}
139: if ($hour < 10) { $hour = "0$hour"}
140: if ($mday < 10) { $mday = "0$mday"}
141: if ($mon < 10) { $mon = "0$mon"}
142:
143: my $time = ($year + 1900) . '-' . ++$mon . '-' . $mday . ' ' . $hour . ':' . $min . ':' . $sec;
144: return $time;
145: }
146: #########################################################################
147:
148:
149:
150:
151:
152: #######################################################################
153: # read in the Playlist
154: sub get_full_playlist {
155: my $FILE = shift;
156: my ($last_mod) = (stat($FILE))[9];
157:
158: if ($Full_Playlist{last_mod} != $last_mod) {
159: my @list;
160: @list = get_playlist($FILE);
161:
162: @list = grep !m#$cfgs{skipregex}#io, @list;
163:
164: my @played_list = get_playlist($cfgs{playedlist});
165:
166: my %played;
167: @played{@played_list} = ();
168:
169:
170: delete $Full_Playlist{list};
171:
172: foreach my $song (@list) {
173: $Full_Playlist{list}{$song} = 1
174: unless (exists $played{$song});
175: }
176:
177: $Full_Playlist{last_mod} = $last_mod;
178: }
179:
180: return keys %{ $Full_Playlist{list} };
181: }
182: #######################################################################
183:
184: #######################################################################
185: # read in the Playlist
186: sub get_playlist {
187: my $FILE = shift;
188: my @lines;
189: # open PLAYlistLOG, ">c:/ps/playlistlog.txt";
190:
191: # print PLAYlistLOG "Getting Playlist from file: $FILE\n";
192: # close PLAYlistLOG;
193: if (-e $FILE) {
194: open (FILE, $FILE) || bail ("Couldn't open $FILE: $!");
195: chomp (@lines = <FILE>);
196: close (FILE) || bail ("Couldn't close $FILE: $!");
197: } else {
198: open (FILE, ">$FILE") || return @lines;
199: close (FILE) || bail ("Couldn't close $FILE: $!");
200: return @lines;
201: }
202: return @lines;
203: }
204:
205:
206:
207:
208: #######################################################################
209: # writes back the new playlist
210: sub save_playlist {
211: my $FILE = shift;
212: my @lines = @_;
213: open (FILE, ">$FILE") || bail ("Couldn\'t open playlist to save $FILE: $!");
214: foreach (@lines) {
215: print FILE "$_\n";
216: }
217: close (FILE) || bail ("Couldn't close $FILE: $!");
218: return 1;
219: }
220:
221:
222:
223:
224: #######################################################################
225: # Prints a webpage with the currently playing song
226: sub DisplayPlaying {
227:
228: my $htmldir = shift;
229: my $playing = shift;
230:
231: open BLANK, ">$htmldir/current.htm" or bail("Unable to open current.htm: $!");
232: print BLANK "<html>\n<head>\n\t<title>' . $playing . '</title>\n";
233: print BLANK "<meta HTTP-EQUIV=\"REFRESH\" CONTENT=\"5\">\n";
234: print BLANK "<meta HTTP-EQUIV=\"Pragma\" CONTENT=\"no-cache\">\n";
235: print BLANK "</head>\n";
236: print BLANK '<body leftmargin="0" topmargin="0" ',
237: 'marginwidth="0" marginheight="0">', "\n\n";
238: print BLANK "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">\n";
239: print BLANK " <tr>\n";
240: print BLANK " <td align=\"left\"><b><i>Currently playing:</i> $playing</b></td>\n";
241: print BLANK " <td align=\"right\">Started at: " . GetTime() . "</td>\n";
242: print BLANK " </tr>\n";
243: print BLANK "</table>\n";
244:
245: # print BLANK "<center><b>Currently playing: $playing</b><br>\nStarted at: " . GetTime() . "</center>";
246:
247: print BLANK "</body>\n</head>\n</html>\n";
248: close BLANK || bail("Unable to close BLANK: $!");
249: }
250:
251:
252:
253: #######################################################################
254: # Prints a webpage with the previously played song
255: # AddLast($filename, $cfgs{playedlist}, $cfgs{numhistory}, $cfgs{htmldir}, $cfgs{addurl});
256: sub AddLast {
257: my $lastsong = shift;
258: my $lastlist = shift;
259: my $history = shift;
260: my $htmldir = shift;
261: my $addurl = shift;
262:
263: my @LIST = get_playlist($lastlist);
264: unshift @LIST, $lastsong;
265: splice (@LIST, $history);
266: save_playlist($lastlist,@LIST);
267: DisplayPrevious($htmldir, $addurl, @LIST);
268: }
269:
270:
271:
272:
273: #######################################################################
274: # Prints a webpage with the previously played song
275: sub DisplayPrevious {
276:
277: my $htmldir = shift;
278: my $addurl = shift;
279: my $lastplay = shift;
280: my @played = @_;
281: open BLANK, ">$htmldir/played.htm" or bail("Unable to open $htmldir/played.htm: $!");
282: print BLANK "<html>\n<head>\n\t<title>' . $lastplay . '</title>\n";
283: print BLANK "<meta HTTP-EQUIV=\"REFRESH\" CONTENT=\"30\">\n";
284: print BLANK "<meta HTTP-EQUIV=\"Pragma\" CONTENT=\"no-cache\">\n";
285: print BLANK "<body>\n\n";
286:
287: print BLANK "<p>[ <a href=\"bin/ShowFiles.pl\">Beginning</a> | \n";
288: print BLANK "<a href=\"bin/ShowAll.pl\">All MP3's</a> |\n";
289: print BLANK "<a href=\"bin/ShowPlaylist.pl\">Playlist</a> |\n";
290: print BLANK "<a href=\"ShowPlaylist.pl?newlist.lst\">New Files</a> |\n";
291: print BLANK "<a href=\"played.htm\">Previously played</a> ]<p>\n";
292:
293:
294:
295:
296:
297: print BLANK "<center><b>Last played: <a href=\"$addurl\?" . EncodeURL("$lastplay") . "\" target=\"bottom\">$lastplay</a></b><br>\nStarted at: " . GetTime() . "</center><p>\n";
298:
299: print BLANK "before that:<br>\n";
300:
301: print BLANK "<UL>\n";
302:
303: foreach my $song (@played) {
304: print BLANK "\t<li>Song: <a href=\"$addurl\?" . EncodeURL("$song") . "\" target=\"bottom\">$song</a></li>\n";
305: }
306:
307: print BLANK "</UL>\n";
308:
309:
310: print BLANK "</body>\n</head>\n</html>\n";
311: close BLANK || bail("Unable to close played.htm: $!");
312: }
313:
314:
315:
316:
317: ########################################################################
318: # *** EncodeURL: %encodes the parameters of the URL
319: sub EncodeURL {
320: my $strURL = shift;
321: $strURL =~ s/(\W)/sprintf("%%%x", ord($1))/eg;
322: return $strURL;
323: }
324:
325:
326:
327: ########################################################################
328: # read in config file.
329: sub readconfig {
330: my $CONFIG = shift;
331: my $delimter = shift || '=';
332: my %configs;
333: if (-e $CONFIG) {
334: open (CONFIG, $CONFIG) or bail ("Couldn\'t open $CONFIG: $!");
335: while (<CONFIG>) {
336: chomp; # no newline
337: s/#.*//; # no comments
338: s/^\s+//; # no leading white space
339: s/\s+$//; # no trailing white space
340: next unless length; # anything left?
341: my ($var, $value) = split(/\s*$delimter\s*/, $_, 2);
342: # $var =~ tr/A-Za-z0-9_\.\,\/\\ / /cd; # delete all the non alphanumerics
343: # $value =~ tr/A-Za-z0-9_\/\.\,\\ / /cd; # delete all the non alphanumerics
344: $var =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
345: $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
346: $configs{$var}=$value;
347: }
348: close CONFIG or bail ("Couldn't close $CONFIG: $!");
349: } else { print '<!-- No config file: ' . $CONFIG; print ' -->'; print "\n"; }
350: return %configs;
351: }
352: ########################################################################
353:
354:
355: #sub ForkMP3Player { # This forks the MP3 player.
356: ## KillPlaying(0);
357: #
358: # my $player = shift;
359: # my $song = shift;
360: #
361: # $player =! s/%%f%%/\"$song\"/ig;
362: #
363: #
364: # FORK: {
365: # if ($Mp3Playerpid = fork) {
366: # # parent here
367: ## print "\nMp3Playerpid: ", $Mp3Playerpid;
368: # # child process pid is available in $pid
369: # print "Parent PID: $Mp3Playerpid\n";
370: # } elsif (defined $Mp3Playerpid) { # $pid is zero here if defined
371: # # child here
372: # print "\nPlaying $song\n";
373: ## exec("$configs{mp3play} -b 16384 --reopen --aggressive -m \"$song\"");
374: # print "\n";
375: ## exec("$player \"$song\"");
376: # exec("$player");
377: # exit(0);
378: # # parent process pid is available with getppid
379: # } elsif ($! =~ /No more process/) {
380: # # EAGAIN, supposedly recoverable fork error
381: # sleep 5;
382: # redo FORK;
383: # } else {
384: # # weird fork error
385: # bail("\nCan't fork: $!");
386: # }
387: # }
388: #}
389:
390:
391:
392:
393: #######################################################################
394: # Bail: this subrouting dies and displays the error to the browser.
395: # gotten from the example in the O'Reilly
396: # _Learning_Perl_on_Win32_Systems_
397: sub bail {
398: open ERR, '>>$err_log';
399: # open ERR, ">>c:/ps/error.txt";
400:
401: my $error = "@_";
402: print "Unexpected Error: $error\n";
403: print ERR "Unexpected Error: $error\n";
404: close ERR;
405: # exit;
406: }
407:
408: sub Print_PlayLog
409: {
410: open PLAYLOG, ">>/tmp/playlog" or bail("Unable to open PLAYLOG");
411: print GetTime(), "\t", @_;
412: print PLAYLOG GetTime(), "\t", @_;
413: close PLAYLOG;
414: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to playmp3s.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / mp3 / daemon