#!/usr/bin/perl
# encode.pl v1.0 11.2.2008
# muuntaa wmv-tiedostot h.264/MPEG-4 AVC enkoodatuiksi avi-tiedostoiksi. 
# Videotiedoston ääni muunnetaan mp3-muotoon
# Ääni puretaan myös erilliseen mp3-tiedostoon
# (c) Tommi Lahtonen 11.2.2008

use strict;

#jos kopioit mencoderin ja mplayerin jonnekin muualle niin muuta
#tähän niihin viittaavat polut
#my $mencoder = "f:\\video\\mplayer\\mencoder";

my $mencoder = "n:\\bin\\video\\mencoder";
my $mplayer = "n:\\bin\\video\\mplayer";

foreach my $p (@ARGV) {

        encode($p);

}

sub encode {
 my $file = shift;
 print "\nConverting $file to h.264 encoded AVI with MP3 sound\n";
 my $avi = $file;
 my $mp3 = $file;
 $avi =~ s/.wmv/.avi/;
 $mp3 =~ s/.wmv/.mp3/;

 system("$mencoder $file -quiet -nosound -noautoexpand -ovc x264 -x264encopts bitrate=100:pass=1:subq=7:qp=0:me=umh:frameref=15:bframes=1:b_pyramid:weight_b -o $avi");
 system("$mencoder $file -quiet -noautoexpand -oac mp3lame -lameopts br=64 -srate 16000 -ovc x264 -x264encopts bitrate=100:pass=2:subq=7:qp=0:me=umh:frameref=15:bframes=1:b_pyramid:weight_b -o $avi");

 print "\nExtracting audio from $avi to $mp3\n";

 system("$mplayer -vc dummy -vo null -dumpaudio $avi -dumpfile $mp3");

}
