#!/usr/bin/perl

my $a='-alang de';
my $b='';
my $c='';
my $d='';
my $h='';
my $k=' -oac lavc';
my $l='-forcedsubsonly';
my $m='';
my $n='';
my $o='';
my $p=':autoaspect';
my $s=',scale=720:576';
my $t='0';
my $v='';
my $x='';

my $o='out.avi';

foreach(@ARGV)
{
   $a="-aid $1"                  if(/^-aid(\d+)/);

   $b="-ss ${1}"                 if(/^-skip(\d+(:\d+){0,2})/);
   $b="-sb ${1}000000"           if(/^-skip(\d+)mb/);

   $c="-chapter $1"              if(/^-c(\d+(-\d+)?$)/i);

   $d="-dvd-device /dev/$1"      if(/^-(sr\d|dvd\d)/);

   $h=',harddup'                 if(/^-sync/);

   $k=':acodec=mp3 -oac mp3lame' if(/^-mp3/);

   $l="-sid $1"                  if(/^-sid(\d+)/);

   $l="-slang $1"                if(/^-(de|en)/);

   $m='-ac mad'                  if(/^-mad/);

   $n='nav'                      if(/^-nav/);

   $o="$1"                       if(/^(.*\.avi)$/);

   $p=":aspect=$1"               if(/^-(4\/3|16\/9)$/);

   $s=''                         if(/^-nos(cale)?/);

   $t="$1"                       if(/^(\d+(-\d+)?$)/);

   $v=':vbitrate=1856'           if(/^-l(ow)?q/);
   $v=':vbitrate=2600'           if(/^-m(edium)?q/);
   $v=':vbitrate=4000'           if(/^-h(igh)?q/);
   $v=':vbitrate=9800'           if(/^-t(op)?q/);

   $x=',crop=720:330:0:125'      if(/^-crop2/);
   $x=',crop=720:440:0:69'       if(/^-crop/);
}

print qq{mencoder dvd$n://$t $a $b $c $d $m $l -vf pp=lb$x$s$h -lavcopts vcodec=mpeg4:vhq:keyint=25$p$v$k -ovc lavc -ffourcc XVID -ni -forceidx -o "$o" 1>&2\n};
print qx{mencoder dvd$n://$t $a $b $c $d $m $l -vf pp=lb$x$s$h -lavcopts vcodec=mpeg4:vhq:keyint=25$p$v$k -ovc lavc -ffourcc XVID -ni -forceidx -o "$o" 1>&2};

### Varianten ...
#print qq{mencoder dvd$n://$t $a $c $d $m $l -vf pp=lb$s$x -oac lavc -ovc lavc -ffourcc DX50 -ni -forceidx -o "$o" 1>&2\n};
#print qx{mencoder dvd$n://$t $a $c $d $m $l -vf pp=lb$s$x -oac lavc -ovc lavc -ffourcc DX50 -ni -forceidx -o "$o" 1>&2};

#print qq{mencoder dvd$n://$t $a $c $d $m $l -vf pp=lb$s$x -oac mp3lame -ovc lavc -ffourcc XVID -lavcopts acodec=mp3 -ni -forceidx -o "$o"\n};
#print qx{mencoder dvd$n://$t $a $c $d $m $l -vf pp=lb$s$x -oac mp3lame -ovc lavc -ffourcc XVID -lavcopts acodec=mp3 -ni -forceidx -o "$o" 1>&2};