version 1.4, 2007/02/08 17:54:38 |
version 1.5, 2007/02/08 18:13:33 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver: playmp3s.pl,v 1.3 2006/08/12 00:28:56 andrew Exp $ |
# $RedRiver: playmp3s.pl,v 1.4 2007/02/08 17:54:38 andrew Exp $ |
######################################################################## |
######################################################################## |
# PlayMP3.pl *** play's MP3s off a playlist using mp3play |
# PlayMP3.pl *** play's MP3s off a playlist using mp3play |
# |
# |
|
|
Print_PlayLog("\tGot $song - filename is\n\t$filename\n"); |
Print_PlayLog("\tGot $song - filename is\n\t$filename\n"); |
|
|
Print_PlayLog("displaying file that is playing . . . "); |
Print_PlayLog("displaying file that is playing . . . "); |
DisplayPlaying($cfgs{playedhtml},$filename); |
DisplayPlaying($cfgs{currenthtml},$filename); |
Print_PlayLog("done\n"); |
Print_PlayLog("done\n"); |
|
|
if ($save_playlist) { |
if ($save_playlist) { |
|
|
} |
} |
|
|
Print_PlayLog("Displaying Nothing . . ."); |
Print_PlayLog("Displaying Nothing . . ."); |
DisplayPlaying($cfgs{playedhtml},"Nothing"); |
DisplayPlaying($cfgs{currenthtml},"Nothing"); |
Print_PlayLog("done\n"); |
Print_PlayLog("done\n"); |
|
|
#@playlist = (); |
#@playlist = (); |