#! /usr/bin/perl

#Druplicon session video recorder

# Expects pretty complete install of ffmpeg
# ./configure --prefix=/usr/local --disable-debug --enable-gpl --enable-postproc --enable-swscale --enable-pthreads --enable-x11grab --enable-liba52 --enable-libdc1394 --enable-libfaac --enable-libfaad --enable-libgsm --enable-libmp3lame --enable-libtheora --enable-libvorbis --enable-libx264 --enable-libxvid --enable-vhook --enable-nonfree
 
# Configuration settings
my $today = `date "+%Y-%m-%d_%H:%M:%S"`;
chomp($today);

my %cfg = (	
    'outputdir' => '/home/regx/scripts/vidcap/druplicon2008', # no trailing slash
    'outputfile' => qq[druplicon2008-$today.flv],
    'title' => 'Druplicon 2008 - '.$today,
    'author' => 'regx',
    'year' => '2008',
); 

$command = qq[dvgrab -format dv1 - | ffmpeg -deinterlace -f dv -i - -f flv -vcodec flv -s 480x270 -aspect 16:9 -qscale 3.5 -acodec libmp3lame -ab 32k -ar 22050 $cfg{'outputfile'}];

`$command`;