#!/usr/bin/perl
$sciezka="/var/spool/voice/incoming/";
open (skad, "ls /var/spool/voice/incoming -l -c -r|");
@pliki = <skad>;
if (@pliki==1){die("Nie ma żadnych wiadomości na sekretarce\n");}
for($x=1; $x<@pliki; $x++){
$wyb="";
$_ = $pliki[$x];
($a, $b, $c, $d, $e, $f, $g, $h, $nazwa) = split(/\s+/);
print("Wiadomość nr $x otrzymana $g $f o godz. $h\n");
`vm play -s $sciezka$nazwa`;
while($wyb !~ /[t,T,n,N]/){
print("Czy chcesz skasować tą wiadomość (t/n) lub odegrać ponownie (o)?");
$wyb=<STDIN>;
if($wyb =~ /[t,T]/){`rm $sciezka$nazwa`;}
elsif($wyb =~ /[o,O]/){`vm play -s $sciezka$nazwa`;}
elsif($wyb =~ /[n,N]/){}
else{print("Zły wybór. Wybierz jeszcze raz\n");}}}