#!/usr/bin/perl -w

use strict;

#======================================================================
# pentax2mpg.pl
#----------------------------------------------------------------------
# Script para convertir avi de la Pentax M40 a mpg (dvd) usando tovid   
#----------------------------------------------------------------------
# FJA - neocipres@telefonica.net	Noviembre de 2007
#======================================================================

my $favi = "";
my $fmpg = "";

sub raya {
  print "\n#";
  print "=" x 78 . "#\n\n";
}

if ($#ARGV == 0) {
      $favi = $ARGV[0];
      if ($favi =~ /\.avi/) {
      	my $pos = index($favi,".avi", 0);
      	$fmpg = substr($favi,0,$pos);
	system("tovid -fps 30:1 -dvd -pal -full -in $favi -out $fmpg");
	my $video = $fmpg . ".mpg";
	print "\n => Generamos archivo XML $fmpg.xml, para las entradas del menu del DVD \n";
	print "\n\t Pulsa una tecla ... \n";	
	my $tecla=<STDIN>;	
	raya;
	system("makexml $video -out $fmpg");	
       }
       else {
        print "\n el argumento debe ser un fichero con extension .avi \n\n";}	

}

else {
      system("clear");
      raya;
      print "\  pentax2mpg.pl: de avi de la Pentax M40 a mpg (dvd) \n\n"; 
      print "\  Uso:\t pentax2mpg <archivo avi>\n\n";
      raya;
      exit;
}