# HG changeset patch
# User atmos4
# Date 1006261376 0
# Node ID 7a5021d0a2de7ad6f72bd9c1e4b5034df07e0c03
# Parent  7d6a1fd5bbab949914a00af4b23ed6a2c6e0850d
Small two pass mencoder helper script in perl.

diff -r 7d6a1fd5bbab -r 7a5021d0a2de TOOLS/menc2pass
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/TOOLS/menc2pass	Tue Nov 20 13:02:56 2001 +0000
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+# Helper script to ease MEncoder two pass encoding
+# Copyleft 2001 by Felix Buenemann <atmosfear@users.sourceforge.net>
+# This files comes udner GPL, see http://www.gnu.org/copyleft/gpl.html for more
+# information on it's licensing.
+use strict;
+my $mencoder="mencoder"; # Path to MEncoder (including binary name)
+
+die <<"EOF" unless @ARGV;
+Menc2Pass: No arguments given!
+Please give all usual encoding parameters you would give to mencoder, but leave
+away the -pass switch.
+EOF
+
+for(my $i=1; $i<=2; $i++) {
+	system($mencoder,@ARGV," -pass $i")
+		and die "MEncoder pass $i failed!\n"
+}
+