#!/usr/bin/perl -w

# Requires Device-Serial per module.
use Device::SerialPort 0.05;
use strict;

my $Serial_Port = "/dev/ttyS0";
my $pass;
my $return;
my $selection;

# Schnittstelle setzen

my $rs232 = Device::SerialPort->new ($Serial_Port) || die "Can.t open $Serial_Port:$!";

$rs232->baudrate (9600) || die "fail setting baudrate";
$rs232->parity ("none") || die "fail setting parity";
$rs232->databits (8) || die "fail setting databits";
$rs232->stopbits (1) || die "fail setting stopbits";
$rs232->handshake ("none") || die "fail setting handshake";
$rs232->dtr_active (1) || die "fail setting dtr_active";
$rs232->write_settings || die "no settings";


# Einschaltbefehl senden, sicherheitshalber 2X

sleep 1;

$pass = $rs232->write("ON\r") or die ("Could not write to Serial_Port: $!");

sleep 1;

$pass = $rs232->write("ON\r") or die ("Could not write to Serial_Port: $!");

loop:

sleep 1;

if (($return = $rs232->input) ne "")
{
   $rs232->write ($return);
   $selection=substr($return, 0, 2) . ".mp3";
   print "Ergebnis $selection";
   system("/usr/local/bin/mpg123 /music/$selection");
}
else
{
   print "wait...\n";
}

goto loop;

undef $rs232