LinuxQuestions.org - mencoder timing

i used to use an at task for this. naturally it's not the sort of thing that mencoder can do itself. I made a wrapper script for recording from tv, which might be handy:

Code:

#!/usr/bin/perl

use strict;

use Getopt::Long;



my %opts=();

GetOptions( 'c=i' => \$opts{'c'}, 'l=i' => \$opts{'l'}, 't=s' => \$opts{'t'}, 'd=s' => \$opts{'d'}, 'q' => \$opts{'q'} );



print "setting volume...";

system("aumix -r 10 -l R -i 10");

print "Done\nattempting to free /dev/video...";

system ("fuser -INT -k /dev/video0");

sleep 1;

print "Done\n";

my $quiet = $opts{'q'} ? " 2&>1 > /dev/null" : "";



#my $command = "mencoder -tv on:driver=v4l:width=480:height=360 -ovc lavc -lavcopts vcodec=mpeg4:vbitrate=800:vme=5:vhq -vop pp=lb -oac mp3lame -lameopts abr:br=96";

#my $command = "mencoder tv:// -tv driver=v4l:width=768:height=576 -ovc lavc -lavcopts vcodec=mpeg4:vbitrate=800:vme=5:vhq -vf pp=lb,crop=720:544:24:16,scale=480:-2 -oac mp3lame -lameopts abr:br=64";





my $command = "mencoder tv:// " .

"-tv driver=v4l2:width=768:height=576 " .

"-ovc lavc -oac lavc " .

"-lavcopts acodec=mp3:abitrate=64:vcodec=mpeg4:vbitrate=600:vme=5:vhq " .

"-vf pp=lb,crop=720:544:24:16,scale=480:-2";



my $channel = $opts{'c'} ? " -tv channel=" . $opts{'c'} : "";

my $endpos = $opts{'l'} ? " -endpos " . $opts{'l'} : "";

my $dir = $opts{'d'} ? $opts{'d'} . "/" : "";

my $file = $opts{'t'} ? " -o ". $dir . $opts{'t'} . ".avi" : "";

#system($command . " -tv channel=" . $opts{'c'} . " -endpos " . $opts{'l'} . " -o " . $opts{'d'} . "/" . $opts{'t'}. ".avi");

print "running " . $command . $channel . $endpos . $file . $quiet . "\n";

system($command . $channel . $endpos . $file . $quiet);