[MPlayer-dev-eng] Fw: dvd2divxscript.pl.patch (added option --dvd-device)

[Alex Beregszaszi]

Begin forwarded message:

Date: Fri, 4 Jun 2004 14:21:24 -0700 (PDT)
From: Anton Tropashko <atropashko at yahoo.com>
To: florian.schilhabel at gmx.net
Cc: alex at fsn.hu
Subject: dvd2divxscript.pl.patch (added option --dvd-device)


Here is a patch to support --dvd-device option in dvd2divxscript.pl

If you open write access for me in TOOLS/
I may tweak it some more and add some more sample scripts to
TOOLS/examples/

--- dvd2divxscript.pl	9 Jul 2003 20:10:44 -0000	1.2
+++ dvd2divxscript.pl	4 Jun 2004 21:12:19 -0000
@@ -1,10 +1,10 @@
 #!/usr/bin/perl
 
 #
-# (c) 2002 by Florian Schilhabel <florian.schilhabel at web.de>
+# (c) 2002-2004 by Florian Schilhabel <florian.schilhabel at web.de>
 #
 #
-# version 0.1  initial release  22/08/2002
+# version 0.2  initial release  22/08/2002
 #
 #
 # If you have any comments, suggestions, etc., feel free to send me
a mail ;-))
@@ -37,6 +37,7 @@
 $cdsize_default = 700;       # ... the CD-Rom Size
 $writedev_default = "0,1,0"; # ... the CD Writer Device
 $speed_default = 4;          # and the writer speed
+$dvd_device = "/dev/dvd";
 
 # end of default Settings
 
@@ -67,7 +68,8 @@
 			"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 @@
 	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 @@
 # 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
-alang $lang -o $vob_tempfile 1>/dev/tty8 2>/dev/tty8 -dvd-device
$dvd_device");
 die "Prechacheing failed. mencoder exited with Status Code $?"
unless $status == 0;
 
 print "Encoding Audio...\n";



	
		
__________________________________
Do you Yahoo!?
Friends.  Fun.  Try the all-new Yahoo! Messenger.
http://messenger.yahoo.com/ 



-- 
Alex Beregszaszi 			e-mail: alex at fsn.hu
Free Software Network			cell: +36 70 3144424