From 232d6a394b7d3a24b7a827773fea9584f64d64da Mon Sep 17 00:00:00 2001
From: atmos4 <atmos4@b3059339-0415-0410-9bf9-f77b7e298cf2>
Date: Tue, 20 Nov 2001 13:02:56 +0000
Subject: Small two pass mencoder helper script in perl.

git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@3025 b3059339-0415-0410-9bf9-f77b7e298cf2
---
 TOOLS/menc2pass | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 TOOLS/menc2pass

(limited to 'TOOLS')

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"
+}
+
-- 
cgit v1.2.3