diff options
Diffstat (limited to 'TOOLS/mp.pl')
-rwxr-xr-x | TOOLS/mp.pl | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/TOOLS/mp.pl b/TOOLS/mp.pl deleted file mode 100755 index 9e69501d5d..0000000000 --- a/TOOLS/mp.pl +++ /dev/null @@ -1,51 +0,0 @@ -#!/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 |