# specify your default Settings here…

$abr_default = 128;          # The default AudioBitRate
$lang_default = „de”;        # … the language
$cdsize_default = 700;       # … the CD-Rom Size
$writedev_default = „0,1,0”; # … the CD Writer Device
$speed_default = 4;          # … the writer speed
$dvd_device = „/dev/dvd”;    # and the DVD Rom Device

# end of default Settings

sub delete_tempfiles {
if (open(FILE, „< audio.stderr")) { close (FILE); system ("rm audio.stderr") } if (open(FILE, "< frameno.avi")) { close (FILE); system ("rm frameno.avi"); } if (open(FILE, "< lavc_stats.txt")) { close (FILE); system ("rm lavc_stats.txt"); } } GetOptions(   "help" => $help,
  „abr=i” => $abr,
  „lang=s” =>$lang,
  „cdsize=i” => $cdsize,
  „dvd=i” => $dvd_track,
  „keeptemp” => $keeptemp,
  „shutdown” => $shutdown,
  „out=s” => $output,
  „writecd” => $writecd,
  „writedev=s” => $writedev,
  „speed=i” => $speed,
  „dvd-device=s” => $dvd_device );

if ($help) {
print „Welcome to the DVD to DIVX Helper Scriptn”;
print „n”;
print „this script encodes a DVD track in 3-pass mode to libavcodec’s mpeg4n”;
print „Optionally it writes the resulting MovieFile to a CD-Romn”;
print „as well as the corresponding audio track to mp3n”;
print „Optionally it writes the resulting MovieFile to a CD-Romn”;
print „and shuts down the Computer.n”;
print „If you like, you can watch the mencoder output on /dev/tty8n”;
print „Usage:n”;
print „–help              show this textn”;
print „–abr               (AudioBitRate) Please enter the desired bitraten”;
print ”                    this can be either [96|128|192] kbit/sec.n”;
print ”                    Default: 128 kbit/sec.n”;
print „–lang              specify the Language of the audio trackn”;
print ”                    this can be for example or n”;
print ”                    Default: n”;
print „–dvd               specify the DVD Track, you want to encoden”;
print „–cdsize            specify the Size of your CD-ROMn”;
print ”                    Default: 700MBn”;
print „–shutdown          Shutdown the System, when the encoding process has finishedn”;
print ”                    this will only be possible if you are rootn”;
print „–out               Specify the Name of your encoded Movien”;
print ”                    The File Extension will be appended automaticallyn”;
print „–writecd           takes the newly created Movie and writes it to a CD-Romn”;
print „–writedev          is the usual cdrecord device identifiern”;
print ”                    for example 0,1,0n”;
print „–speed             the writing speedn”;
print ”                    Default: 4n”;
print „–dvd-device        device to pull the video offn”;
print ”                    Default: /dev/dvdn”;
exit;
}

delete_tempfiles();

# testing user values && set defaults…

if ($abr == 96){}
elsif ($abr == 128) {}
elsif ($abr == 192) {}
elsif ($abr == 0 ) {
print „No AudioBitRate specified – Setting to Default Valuen”;
$abr = $abr_default;
}
else {
print „AudioBitRate not valid. please choose [96|128|192]n”;
exit;
}

if ($lang eq „”) {
print „No Language specified – Setting to Default Valuen”;
$lang = $lang_default;
}
else {}

if ($dvd_track == 0 ) {
print „No DVD Track selected – You must specify one with: –dvd trackno.n”;
exit;
}

if ($cdsize == 650) {}
elsif ($cdsize == 700) {}
elsif ($cdsize == 800) {}
elsif ($cdsize == 0 ) {
print „No CD Size Specified – Setting to Default Valuen”;
$cdsize = $cdsize_default;
}

else {
print „CD Size not valid. please choose [650|700|800]n”;
exit;
}

if ($output eq „”) {
print „No MovieName given – You must specify one with: –out [movie_name]n”;
exit;
}
else {
($name, $extension) = split(/./, $out);
if ($extension eq „avi”) {
 $vob_tempfile = „$name.vob”;
 $avi_filename = „$output”;
}
else {
 $vob_tempfile = „$output.vob”;
 print „VOB CacheFile set to $vob_tempfilen”;
 $avi_filename = „$output.avi”;
 print „Movie Filename set to $avi_filenamen”;
}
}

if ($shutdown) {
# test who i am
$user = `id -u`;
if ($user == 0) {
 print „System will be shut down after Movie encodingn”;
}
else {
 print „Cannot shutdown the system after Movie encoding – you are not ‘root’n”;
 exit;
}
}

if ($writecd) {
if ($writedev == „”) {
 print „Setting CD Writer Device to Default Valuen”;
 $writedev = $writedev_default;
}
if ($speed == 0) {
 print „Setting CD Writer Speed to Default valuen”;
 $speed = $speed_default;
}

}

###

print „Your Settings for this run are:n”;
print „AudioBitRate:    $abrn”;
print „Language:        $langn”;
print „DVD-Track:       $dvd_trackn”;
print „CD-Rom Size:     $cdsizen”;
print „Movie FIlename:  $avi_filenamen”;
if ($writecd) {
print „CD Writer Dev.:  $writedevn”;
print „Writer Speed:    $speedn”;
}

# here comes the fun part…

print „precacheing…n”;
$status = system („mencoder dvd://$dvd_track -ovc copy -oac copy -dvd-device $dvd_device -alang $lang -o $vob_tempfile 1>/dev/tty8 2>/dev/tty8”);
die „Prechacheing failed. mencoder exited with Status Code $?” unless $status == 0;

print „Encoding Audio…n”;
$status = system („mencoder $vob_tempfile -ovc frameno -oac mp3lame -lameopts br=$abr:cbr:vol=3 -o frameno.avi 1>./audio.stderr 2>/dev/tty8”);
die „Encoding Audio failed. mencoder exited with Status Code $?” unless $status == 0;

# now we have to find out the recommended bitrate for the Video encoding process…
# my current method to find this out is, hmm, well, *strange*
# but anyway, it works;-))

open(FILE, „< audio.stderr") or die "Unable to open audio.stderr."; @lines = ;
foreach $line (@lines) {
($index, $zz) = split(” „, $line);
if ($index eq „Recommended”) {
 ($a, $b, $c, $d, $size, $f, $bitrate) = split(” „, $line);
 if ($cdsize == $size) {
  $video_bitrate = $bitrate;
  print „Setting Videobitrate to $video_bitraten”;
 }
}
}
close (FILE);

print „Encoding Video Stream, 1st pass…n”;
$status = system („mencoder $vob_tempfile -ovc lavc -lavcopts vpass=1:vcodec=mpeg4:vbitrate=$video_bitrate:vhq -oac copy -o $avi_filename 1>/dev/tty8 2>/dev/tty8”);
die „Encoding Video Stream failed. mencoder exited with Status Code $?” unless $status == 0;

print „Encoding Video Stream, 2nd pass…n”;
$status = system („mencoder $vob_tempfile -ovc lavc -lavcopts vpass=2:vcodec=mpeg4:vbitrate=$video_bitrate:vhq -oac copy -o $avi_filename 1>/dev/tty8 2>/dev/tty8”);
die „Encoding Video Stream failed. mencoder exited with Status Code $?” unless $status == 0;

print „finished encodingn”;

if ($writecd) {
print „Now writing CD-Romn”;
       $status = system(„mkisofs -r -J $avi_filename | cdrecord  speed=$speed  dev=$writedev -data  – 2>/dev/tty8 1>/dev/tty8”);
die „Writing CD failed. cdrecord exited with Status Code $?” unless $status == 0;
}
delete_tempfiles();

print „Finished – have a nice day;-)n”;
if ($shutdown) {
system(„halt”);
exit;
}
exit;