#!/usr/bin/perl -w

use strict;

# flv2mpg.pl
# Script para convertir flv (videos de flash) a mpg (svcd o dvd) usando ffmpeg  
# Mayo de 2006. FJA - neocipres@telefonica.net

my $fflv = "";
my $fmpg = "";

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

if ($#ARGV == 0) {
      $fflv = $ARGV[0];
      if ($fflv =~ /\.flv/) {
      	my $pos = index($fflv,".flv", 0);
      	$fmpg = substr($fflv,0,$pos);
	$fmpg = $fmpg . ".mpg";
	system("ffmpeg -i $fflv -target pal-vcd $fmpg");	
       }
       else {
        print "\n el argumento debe ser un fichero con extension .flv \n
	       Si no la tiene y es un fichero flv: mv archivo archivo.flv \n\n";}	

}

else {
      system("clear");
      raya;
      print "\  flv2mpg.pl: de flv a mpg (vcd) \n\n"; 
      print "\  Uso:\t flv2mpg <archivo flv>\n\n";
      raya;
      exit;
}