===================================================================
RCS file: /cvs/mp3/daemon/playmp3s.pl,v
retrieving revision 1.1
retrieving revision 1.4
diff -u -r1.1 -r1.4
--- mp3/daemon/playmp3s.pl 2006/03/02 23:20:48 1.1
+++ mp3/daemon/playmp3s.pl 2007/02/08 17:54:38 1.4
@@ -1,4 +1,5 @@
#!/usr/bin/perl
+# $RedRiver: playmp3s.pl,v 1.3 2006/08/12 00:28:56 andrew Exp $
########################################################################
# PlayMP3.pl *** play's MP3s off a playlist using mp3play
#
@@ -12,16 +13,13 @@
use vars qw/ %cfgs /;
-#use strict qw/ $cfgs{list} @playlist $cfgs{mp3play} $filename $cfgs{basedir} $cfgs{htmldir} /;
-#use diagnostics;
-
my $config_file = shift || "/etc/playmp3s.conf";
+my %cfgs = readconfig($config_file);
+
my $err_log = $cfgs{errors} || "/var/log/playmp3s.log";
-my %cfgs = readconfig($config_file);
-
Print_PlayLog("Beginning playtime\n\n");
my %Full_Playlist;
@@ -65,7 +63,7 @@
Print_PlayLog("\tGot $song - filename is\n\t$filename\n");
Print_PlayLog("displaying file that is playing . . . ");
- DisplayPlaying($cfgs{htmldir},$filename);
+ DisplayPlaying($cfgs{playedhtml},$filename);
Print_PlayLog("done\n");
if ($save_playlist) {
@@ -99,12 +97,12 @@
Print_PlayLog("Adding Last. . .");
delete ${ $Full_Playlist{list} }{$song};
- AddLast($filename, $cfgs{playedlist}, $cfgs{numhistory}, $cfgs{htmldir}, $cfgs{addurl});
+ AddLast($filename, $cfgs{playedlist}, $cfgs{numhistory}, $cfgs{playedhtml}, $cfgs{addurl});
Print_PlayLog("done\n");
}
Print_PlayLog("Displaying Nothing . . .");
- DisplayPlaying($cfgs{htmldir},"Nothing");
+ DisplayPlaying($cfgs{playedhtml},"Nothing");
Print_PlayLog("done\n");
#@playlist = ();
@@ -225,10 +223,10 @@
# Prints a webpage with the currently playing song
sub DisplayPlaying {
- my $htmldir = shift;
- my $playing = shift;
+ my $htmlfile = shift;
+ my $playing = shift;
- open BLANK, ">$htmldir/current.htm" or bail("Unable to open current.htm: $!");
+ open BLANK, ">$htmlfile" or bail("Unable to open $htmlfile: $!");
print BLANK "\n\n\t' . $playing . '\n";
print BLANK "\n";
print BLANK "\n";
@@ -252,19 +250,19 @@
#######################################################################
# Prints a webpage with the previously played song
-# AddLast($filename, $cfgs{playedlist}, $cfgs{numhistory}, $cfgs{htmldir}, $cfgs{addurl});
+# AddLast($filename, $cfgs{playedlist}, $cfgs{numhistory}, $cfgs{playedhtml}, $cfgs{addurl});
sub AddLast {
my $lastsong = shift;
my $lastlist = shift;
- my $history = shift;
- my $htmldir = shift;
- my $addurl = shift;
+ my $history = shift;
+ my $htmlfile = shift;
+ my $addurl = shift;
my @LIST = get_playlist($lastlist);
unshift @LIST, $lastsong;
splice (@LIST, $history);
save_playlist($lastlist,@LIST);
- DisplayPrevious($htmldir, $addurl, @LIST);
+ DisplayPrevious($htmlfile, $addurl, @LIST);
}
@@ -274,11 +272,11 @@
# Prints a webpage with the previously played song
sub DisplayPrevious {
- my $htmldir = shift;
- my $addurl = shift;
+ my $htmlfile = shift;
+ my $addurl = shift;
my $lastplay = shift;
- my @played = @_;
- open BLANK, ">$htmldir/played.htm" or bail("Unable to open $htmldir/played.htm: $!");
+ my @played = @_;
+ open BLANK, ">$htmlfile" or bail("Unable to open $htmlfile: $!");
print BLANK "\n\n\t' . $lastplay . '\n";
print BLANK "\n";
print BLANK "\n";