#!/usr/bin/perl
#
# a script to create dvd iso images using mkisofs
# created by: Michael Sutherland, May 22, 2008
#
 
use warnings;
use strict;
use Getopt::Long;
 
## variables ##
my $mkisofs = '/usr/bin/mkisofs';
my $path    = '';
my $iso     = '';
my $title   = '';
my $cmd;
 
## user options ##
 
GetOptions(
        "path=s"        =>      \$path,
        "iso=s"         =>      \$iso,
        "title=s"       =>      \$title,
);
 
## sanity checks ##
 
if ( ( ! $path ) || ( ! $iso ) || ( ! $title ) ) {
 
    &usage();
}
 
if ( ! -f $mkisofs ) {
 
    print "unable to find mkisofs at $mkisofs\n";
    exit 2;
}
 
## flush the buffer ##
$| = 1;
 
## program start ##
 
$cmd = "$mkisofs -dvd-video -J -L -r -V $title -o $iso $path 2>&1";
#print "running: $cmd\n";
 
open (MKISOFS, "$cmd |"); 
 
while (<MKISOFS>) {
 
    chomp($_);
    printf "\rmkdvdiso: %40s", $_ if /estimate finish/;
}
 
printf "\rmkdvdiso: %40s\n", "completed at";
 
## subroutines ##
 
sub usage() {
 
    print "mkdvdiso - a quick utility for creating dvd iso images\n\n";
    print "usage:\n";
    print "\t-path\tpath and directory containing the VIDEO_TS 
            & AUDIO_TS folders\n";
    print "\t-iso\tpath and name of iso image to be created\n";
    print "\t-title\ttitle for the dvd iso image\n";
 
    exit 1;
}