Perl multifile playback helper tool.

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

1 files changed, 51 insertions, 0 deletions

diff --git a/TOOLS/mp.pl b/TOOLS/mp.pl
new file mode 100755
index 0000000000..9e69501d5d
--- /dev/null
+++ b/TOOLS/mp.pl
@@ -0,0 +1,51 @@
+#!/usr/bin/perl -w
+use strict;
+# Filename: mp.pl
+# Date    : created 2001-07-24
+# Author  : Felix Buenemann <atmosfear at users.sourceforge.net>
+# Idea by : David Chan <prometheus at theendofthetunnel.org>
+# License : GNU General Public License (GPL)
+#           (refer to: http://www.fsf.org/licenses/gpl.txt)
+#
+# Description:
+# Small Perl helper script that allows to play multiple files with MPlayer.
+# Wildcards are supported (eg. "mp.pl -vo x11 /data/*.avi").
+#
+# Configuration:
+# If MPlayer is not in your path, give the full
+# path to mplayer binary in the line below.
+# (example: "/usr/local/bin/mplayer")
+use constant MPLAYER => "mplayer";
+
+my (@parms, @files);
+
+die
+"mp.pl: No parameters given!
+
+MPlayer multifile playback helper script 0.9
+Copyleft 2001 by Felix Buenemann
+
+Syntax: mp.pl <parameters> <files>
+
+Where <parameters> are all possible commandline switches for mplayer and
+<files> can be either a list of files, like file1 file2 file3 and/or a
+wildcard definition, like *.avi.
+
+Example: mp.pl -vo x11 /dvd/VIDEO_TS/VTS_05_*.VOB movie.asf
+\n"
+if ($#ARGV < 0) || ($ARGV[0] =~ m/^--*(h|help)/);
+
+foreach (@ARGV) {
+	if(m/^-\w+/) { push @parms, $_ }
+	elsif(-f $_ && -r _ && -B _) { push @files, $_ }
+	else { push @parms, $_ }
+}
+die "No valid files to process!\n" unless @files;
+foreach (@files) {
+	print "Invoking MPlayer for '$_'...\n";
+	system(MPLAYER, @parms, $_)
+		or die "Couldn't execute MPlayer: $!\n";
+	($? >> 8) != 1
+		and die "Couldn't properly execute MPlayer, aborting!\n";
+}
+# EOF