mp3/daemon/playmp3s.pl - diff

Return to playmp3s.pl CVS log

Up to [local] / mp3 / daemon

version 1.8, 2011/06/14 16:53:27

version 1.9, 2011/06/14 17:22:13

Line 1

#!/usr/bin/perl

# $RedRiver: playmp3s.pl,v 1.7 2010/10/28 19:21:29 andrew Exp $

# $AFresh1$

########################################################################

# PlayMP3.pl *** play's MP3s off a playlist using mp3play

Line 29

my @playlist;

my $playing = '';

for ( ;; ) {

# while(1) {

my $save_playlist;

if ( $cfgs{pausedfile} && -e $cfgs{pausedfile} ) {

Print_PlayLog("Paused\n");

DisplayPlaying( $cfgs{currenthtml}, "Paused" )

unless $playing eq 'paused';

$playing = 'paused';

sleep 10;

next;

}

my ($last_mod) = ( stat( $cfgs{list} ) )[9];

if ( $playlist_last_mod != $last_mod ) {

@playlist = ();

Line 68

Line 78

Print_PlayLog("displaying file that is playing . . . ");

DisplayPlaying( $cfgs{currenthtml}, $filename );

$playing = $filename;

Print_PlayLog("done\n");

Print_PlayLog("Adding Last. . .");

Line 113

Line 124

Print_PlayLog("Displaying Nothing . . .");

DisplayPlaying( $cfgs{currenthtml}, "Nothing" );

$playing = 'nothing';

Print_PlayLog("done\n");

#@playlist = ();