#!/usr/bin/perl
#
# (c) Ing. Peter Grobner <peter@grobner.at>
#
# v20090727 bugfix default $end=.../60; test $adapt within the loop;


my %UMLAUT=( 0x84 => 'Ae', 0x96 => 'Oe', 0x9c => 'Ue',
             0xa4 => 'ae', 0xb6 => 'oe', 0xbc => 'ue', 0x9f => 'ss' ); 

@ARGV=map { s/\xC3(.)/$UMLAUT{ord($1)}/ge; s/[^-.:\w\/ ]//g; $_ } @ARGV;

my $argv=join ' ',map { /\s/? "\\\"$_\\\"":$_; } @ARGV;


if($argv=~s/--?at\s+(\d\d):(\d\d)//g)                       { print qx(echo "recdvb $argv"|at -t "$1:$2"); exit; }

if($argv=~s/--?at\s+(\d\d\d\d)-(\d?\d)-(\d?\d)\s+(\d?\d):(\d?\d)//g)
{
 my $datetime=sprintf("%04d%02d%02d%02d%02d",$1,$2,$3,$4,$5); print qx(echo "recdvb $argv"|at -t $datetime); exit;
}

if($argv=~s/--?rm\s+(\d\d\d\d)-(\d?\d)-(\d?\d)\s+(\d?\d):(\d?\d)//g)
{
 my $datetime=sprintf("%04d-%02d-%02d\\s%02d:%02d",$1,$2,$3,$4,$5);
 my $atq=qx(atq);
 
    $atq=~s/^(\d+)\s+$datetime\s/qx(atrm $1)/meg; exit;
}

if($argv=~/^--?ls?$/i)
{
 my $jobs=qx(grep recdvb /var/spool/cron/atjobs/*|cut -c24-|sort -k1.7);
 
 # /var/spool/atjobs/a001c3013e836a:recdvb
 
    $jobs=~s{^\w(\w{5})(\w{8}):recdvb}
            { hex($1).': '.localtime(60*hex($2)); }meg; print $jobs; exit;
}

my $time =qx{date "+%F_%R"}; $time=~s/[^-\w]//g;
my $scale='720:576';
my $asp  ='autoaspect';
my $end  =qx(date +\%s -d "now +1 hour +40 minutes")/60;
my $chan ='ORF1';
my $path ='/home/global/DVDs/';
my $file =sprintf("%s_%s",'orf1',$time);
my $part ='a';
my $r    ='';

foreach(@ARGV)
{
   $end  =qx(date +\%s -d "now +$1 hour +$2 minutes")/60 if(/^(\d+):(\d+)$/);
   $path.='/Kinderfilme/'                                if(/^-k/i);
   $path.="/$1"                                          if(/^\/(.*)$/);
   $asp  ="aspect=$1"                                    if(/^(4\/3|16\/9)$/);

   $file =sprintf('%s_%s','atv', $time),$chan='ATV'      if(/(atv)/i);
   $file =sprintf('%s_%s','orf1',$time),$chan='ORF1'     if(/(orf1)/i);
   $file =sprintf('%s_%s','orf2',$time),$chan='ORF2'     if(/(orf2)/i);
   $file =sprintf('%s_%s','orf2',$time),$chan='ORF2-N'   if(/(orf2-?n)/i);
   $file =sprintf('%s_%s','orf2',$time),$chan='ORF2-W'   if(/(orf2-?w)/i);
   $file =sprintf('%s_%s','orf3',$time),$chan='ORF3'     if(/(orf3)/i);
}

   $path=~s/://g;

my $p=$path; $p=~s/\/[^\/]+$//; qx{mkdir -p "$p"; chmod a+rwx "$p"} if($p && !-d $p);

while(1)
{
  my $now=qx(date +\%s)/60;          last if($end<=$now);
  
  my $time=sprintf("%d:%02d",($end-$now)/60,($end-$now)%60);

  my $ps=qx{ps axo command|grep "^mencoder dvb:"}; 
  
  my $adapt='';
     $adapt='1@' if($ps!~m{dvb://1@});
     $adapt='2@' if($ps!~m{dvb://2@}); next if(!$adapt);

  my $null='2>/dev/null';
     $null='';
  
  qx{mencoder dvb://$adapt$chan -quiet -endpos $time:00 -oac copy -vf pp=lb -lavcopts $asp -ovc lavc -ffourcc DX50 -forceidx -o "$path$file$part.avi" $null};
                                                                                                                  qx{chmod a+rw "$path$file$part.avi" $null};
                                                                         if(4108 == -s "$path$file$part.avi")   { qx{rm         "$path$file$part.avi" $null}; next; }
  $part++;
}