#!/usr/bin/perl

die "$0 má špatný počet parametrů.\n\nSprávně má být:\n$0 Kanál norma délka_záznamu\n$0 E5 PAL-DK 01:00:00\n\n" if @ARGV != 1;

if ( $ARGV[0] eq "ex" or  $ARGV[0] eq "stv1" or  $ARGV[0] eq "ct24"  ) { $norma="PAL-BG";}
else{ $norma="PAL-DK"; }

#printf "argument: " . $ARGV[0] ;

if ( not (`ps -A | grep "mencoder"` or `ps -A | grep "mplayer"`)) { system "mplayer tv://$ARGV[0] -tv driver=v4l2:norm=$norma:volume=100:alsa=on:adevice=hw.1,0:amode=1:audiorate=32000:forceaudio:immediatemode=0:channels=r12-ct1,r8-ct2,r10-nova,r6-prima,se7-stv1,se13-ex,r7-ct24";
}

#mplayer tv:// -vf pp=fd -tv driver=v4l2:alsa:adevice=hw.1,0:amode=1:audiorate=32000:forceaudio:volume=100:immediatemode=0:width=768:height=576