From 6212d13de663f230f1696cf7fe329a7ccc7c677c Mon Sep 17 00:00:00 2001 From: alex Date: Fri, 25 Jun 2004 16:09:54 +0000 Subject: dvd-device option by Anton Tropashko git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@12644 b3059339-0415-0410-9bf9-f77b7e298cf2 --- TOOLS/dvd2divxscript.pl | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'TOOLS') diff --git a/TOOLS/dvd2divxscript.pl b/TOOLS/dvd2divxscript.pl index 2acbfa049e..8656594112 100755 --- a/TOOLS/dvd2divxscript.pl +++ b/TOOLS/dvd2divxscript.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl # -# (c) 2002 by Florian Schilhabel +# (c) 2002-2004 by Florian Schilhabel # # # version 0.1 initial release 22/08/2002 @@ -36,7 +36,8 @@ $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; # and the writer speed +$speed_default = 4; # ... the writer speed +$dvd_device = "/dev/dvd"; # and the DVD Rom Device # end of default Settings @@ -67,7 +68,8 @@ GetOptions( "help" => \$help, "out=s" => \$output, "writecd" => \$writecd, "writedev=s" => \$writedev, - "speed=i" => \$speed ); + "speed=i" => \$speed, + "dvd-device=s" => \$dvd_device ); if ($help) { print "Welcome to the DVD to DIVX Helper Script\n"; @@ -98,6 +100,8 @@ if ($help) { print " for example 0,1,0\n"; print "--speed the writing speed\n"; print " Default: 4\n"; + print "--dvd-device device to pull the video off\n"; + print " Default: /dev/dvd\n"; exit; } @@ -201,7 +205,7 @@ if ($writecd) { # here comes the fun part... print "precacheing...\n"; -$status = system ("mencoder dvd://$dvd_track -ovc copy -oac copy -alang $lang -o $vob_tempfile 1>/dev/tty8 2>/dev/tty8"); +$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"; -- cgit v1.2.3