#!/usr/bin/perl

$moviename=$ARGV[0];
@TEMP=split(/:/,$ARGV[1]);
#   @pairs = split(/&/, $buffer);                                 
#   foreach $pair (@pairs) {
#      ($name, $value) = split(/=/, $pair);
foreach $value (@TEMP){
  $OPTION{$value}++;
  $_=$value;
  if(m/=/){ ($name,$tval)=split(/=/,$value);
            $OPTION{$name}=$tval;
##            print "$name = $tval\n";
          }
  }


$temp=$moviename;
$temp=~s/.divx$//;
$temp=~s/.avi$//;
$temp=~s/.mpg$//;
$infofile="$temp.info";
@ARRAY=split(/\//,$temp);
$localinfofile="/home/russell/.playmovie/".$ARRAY[(@ARRAY-1)].".info";
$lastpos_line=`tac '$infofile' '$localinfofile' |grep -i lastpos|head -1`;
chomp $lastpos_line;
($junk,$lastpos)=split (/:/,$lastpos_line);
$lastpos=$lastpos+0;
if ($lastpos >3){$lastpos=$lastpos-3;};

if ($OPTION{'TEQUALSZERO'}){$lastpos=0;};
print "lastpos=$lastpos\n";

$mplayer="su_nice --19 /usr/local/bin/mplayer  -stop-xscreensaver ";
##$x=`/usr/bin/mplayer -display :0 '$moviename' -ss $lastpos `;
if ($OPTION{'PLAYLIVE'})
{$x=`cat '$moviename' |mplayer -display :0  -ss $lastpos -use-stdin - `;}
##{$x=`$mplayer -display :0  -ss $lastpos -use-stdin <'$moviename' `;}
else
{$x=`$mplayer -idx -display :0 '$moviename' -ss $lastpos `;};

##print "X=$x\n";
@DATA=split(/\r/,$x);

$n=@DATA;
$l=$n-2;
$line= "$DATA[$l]\n";
@TEMP=split(/:/,$line);
$newpos=$TEMP[1]+0;
print "newpos=$newpos\n";
`echo "LASTPOS:$newpos" >> '$infofile'`;
`echo "LASTPOS:$newpos" >> '$localinfofile'`;
$minutes=$newpos/60;
`echo "MINUTES:$minutes" >> '$infofile'`;
`echo "MINUTES:$minutes" >> '$localinfofile'`;

open (OUT,">>/home/russell/.playmovie/FUCKYOU");
print OUT "LASTPOS:$newpos\n"; 
print OUT "MINUTES:$minutes\n";
print OUT "$localinfofile\n";
close (OUT);