techiem2

#!/usr/bin/perl

if (!-e "/tmp/mpfifo")
{
    system ("mkfifo /tmp/mpfifo");
    system ("chmod 666 /tmp/mpfifo");
}
    else
{
    system ("chmod 666 /tmp/mpfifo");
}


my $autoloop = 1;


checkauto();

sub checkauto {
    if ($autoloop == 1)
    {
    autoloop();
    }

    else

    {
    noloop();
    }
}

sub autoloop {
    system ("/usr/bin/mplayer -fs -slave -input file=/tmp/mpfifo -playlist /Sign/content/playlist.txt -loop 0");
}

sub noloop {
    system ("/usr/bin/mplayer -fs -slave -input file=/tmp/mpfifo -playlist /Sign/content/playlist.txt");
    die;
}

while (1)
{
checkauto();
}