Small two pass mencoder helper script in perl.

git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@3025 b3059339-0415-0410-9bf9-f77b7e298cf2

1 files changed, 19 insertions, 0 deletions

diff --git a/TOOLS/menc2pass b/TOOLS/menc2pass
new file mode 100755
index 0000000000..f51bd70ab7
--- /dev/null
+++ b/TOOLS/menc2pass
@@ -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"
+}
+