version 1.1, 2006/03/02 23:20:48 |
version 1.3, 2006/08/12 01:28:56 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
|
# $RedRiver: playmp3s.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $ |
######################################################################## |
######################################################################## |
# PlayMP3.pl *** play's MP3s off a playlist using mp3play |
# PlayMP3.pl *** play's MP3s off a playlist using mp3play |
# |
# |
|
|
|
|
my $config_file = shift || "/etc/playmp3s.conf"; |
my $config_file = shift || "/etc/playmp3s.conf"; |
|
|
my $err_log = $cfgs{errors} || "/var/log/playmp3s.log"; |
|
|
|
my %cfgs = readconfig($config_file); |
my %cfgs = readconfig($config_file); |
|
|
|
my $err_log = $cfgs{errors} || "/var/log/playmp3s.log"; |
|
|
|
|
Print_PlayLog("Beginning playtime\n\n"); |
Print_PlayLog("Beginning playtime\n\n"); |