1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
|
#!/usr/bin/perl
use CPAN::Shell;
use strict;
use POSIX qw(floor);
# Written by Bob Igo from the MythTV Store at http://MythiC.TV
# including some original code and contributions from Nick C.
# and graysky.
# Email: bob@stormlogic.com
#
# If you run into problems with this script, please send me email
# PURPOSE:
# --------------------------
# This is a wrapper script that tries to find the best parameters
# for calling an underlying video player. The outer layer determines
# the best playback parameters, while the inner layer picks the best
# player to call.
# RATIONALE:
# --------------------------
# Default video playback options are not optimal on all hardware or
# for all video types. In addition, common video players do not
# offer to bookmark video so that you can resume where you left off.
# Both of these problems can be addressed by this wrapper.
# PARAMETERS:
# --------------------------
# The same parameters you'd use for mplayer, some of which may be
# translated automatically for use with smplayer.
# FILES:
# --------------------------
# $mediafile, the file to play
sub run () {
my $mediafile = @ARGV[$#ARGV];
my $player = &pick_player();
# mplayer evaluates configuration options in the following order, with
# later-evaluated options overriding earlier-evaluated ones, both within
# a given configuration location and between them:
# 1) system-wide configuration/profiles, /etc/mplayer/mplayer.conf
# 2) user-specific configuration/profiles, ~/.mplayer/config
# 3) commandline configuration parameters
# 4) file-specific configuration, ~/.mplayer/[filename].conf
# 5) any nonstandard configuration file, included via "-include" parameter
#
# This script's dynamic configuration options fall in at 2.5 above,
# so commandline options, file-specific configuration options,
# or a nonstandard configuration file will override the options that
# the script creates, but system-wide and user-specific configuration
# will be overridden by the dynamic configuration options.
#
# This is sub-optimal, as the easiest way for a user to compensate for
# a misfiring configuration rule would be to override it in a configuration
# file. Instead, they will have to change the way they run this script.
my $player_parameters = join(' ',
&dynamic_parameters($mediafile),
&translate_parameters($player,@ARGV[0..$#ARGV-1]));
&player($player,$player_parameters,$mediafile);
}
&run();
# Translates any parameters into ones that will be compatible with the given player.
sub translate_parameters() {
my($player,@parameters)=@_;
if ($player eq "smplayer") {
# Stupidly, smplayer uses a different set of command-line parameters than generic
# mplayer, so we need to translate mplayer-centric ones into the few that are
# available in smplayer-ese.
my %smplayer_parameter_translation_array = (
"-fs" => "-fullscreen",
"-zoom" => " "
);
sub translate() {
my($flag)=@_;
return $smplayer_parameter_translation_array{$flag};
}
return map(&translate($_), @parameters);
} else {
# currently, all other players used by this wrapper work with mplayer parameters
return @parameters;
}
}
# Returns an array of dynamic parameters based on the media type,
# the presence of special playback decoding hardware, and the
# general capability of the CPU.
sub dynamic_parameters () {
my($mediafile)=@_;
my @parameters = ();
my $codec="";
my $xresolution=0;
my $yresolution=0;
my $aspect_ratio=0.0;
my %vdpau_supported_modes=();
my $vf_parameters="";
# See if the GPU and driver support vdpau for GPU-based accelerated decoding
my $command="vdpauinfo |";
# On supported hardware, vdpinfo produces relevant results that look something like this (see
# http://www.phoronix.com/forums/showthread.php?t=14493 for additional details, or run
# vdpinfo on vdpau-capable hardware yourself):
#
#MPEG1 0 2 4096 4096
#MPEG2_SIMPLE 3 2 4096 4096
#MPEG2_MAIN 3 2 4096 4096
#H264_MAIN 41 4 4096 4096
#H264_HIGH 41 4 4096 4096
my $grabbing_modes=0;
open(SHELL, $command);
while (<SHELL>) {
chop;
if (m/Decoder Capabilities/gi) {
$grabbing_modes=1;
#print "*** MODES START NOW"
} elsif (m/Output Surface/gi) {
$grabbing_modes=0;
} elsif ($grabbing_modes) {
if (m/[A-Z]+[0-9]+/g) {
s/(_.*)//g;
#print "*** GRABBED MODE $_\n";
$vdpau_supported_modes{$_} = 1;
}
}
}
close(SHELL);
# Learn some things about the video: codec, aspect ratio, and resolution
my $command="mplayer -identify -frames 1 -vo null -ao null \"$mediafile\" |";
open(SHELL, $command);
while (<SHELL>) {
chop;
if (m/ID_VIDEO_CODEC=(.*)/g) {
$codec = $1;
#print "DEBUG: codec is $codec\n";
} elsif (m/ID_VIDEO_WIDTH=(.*)/g) {
$xresolution = $1;
#print "DEBUG: x resolution is $xresolution\n";
} elsif (m/ID_VIDEO_HEIGHT=(.*)/g) {
$yresolution = $1;
#print "DEBUG: y resolution is $yresolution\n";
} elsif (m/ID_VIDEO_ASPECT=(.*)/g) {
$aspect_ratio = $1;
}
}
close(SHELL);
# see if it's a 4:3 video
if ($aspect_ratio =~ m/1\.3\d*/) {
# see if it's a malformed 4:3 video with top and side bars, in need of cropping
my $crop_candidate="";
my $biggestX=0;
my $biggestY=0;
# The algorithm here is trial and error. Skip 6 minutes into a video, and look at 40 frames of
# video. Videos shorter than 6 minutes will not end up being examined for letterboxing badness.
# In a longer video, use the least-recommended pruning that mplayer suggests, among the frames polled.
my $command="mplayer -ss 360 -ao null -vo null -vf cropdetect -frames 40 \"$mediafile\" | grep CROP | tail -1 |";
open(SHELL, $command);
while (<SHELL>) {
if (m/-vf (crop=.*)\)/g) {
$crop_candidate = $1;
#print "DEBUG: $crop_candidate\n";
if ($crop_candidate =~ m/(\d+):(\d+)/) {
if (($1 > $biggestX) && ($2 > $biggestY)) {
$biggestX = $1;
$biggestY = $2;
#print "DEBUG newX: $biggestX\n";
#print "DEBUG newY: $biggestY\n";
}
}
}
if (($biggestX != $xresolution) || ($biggestY != $yresolution)) {
$vf_parameters = $crop_candidate;
}
#print "DEBUG: crop parameter is $vf_parameters\n";
}
close(SHELL);
}
# If there are no crop parameters, use vdpau if it's supported. Don't use vdpau if there's cropping
# because vdpau doesn't work with mplayer's cropping video filter.
# We should use vdpau if it's available and helps with the codec we need to decode.
if ($vf_parameters eq "") {
if ($codec eq "ffh264") { # h.264
if ($vdpau_supported_modes{"H264"}) {
push(@parameters, "-vo vdpau");
push(@parameters, "-vc ffh264vdpau");
}
} elsif ($codec eq "ffmpeg2") { # MPEG2
if ($vdpau_supported_modes{"MPEG2"}) {
push(@parameters, "-vo vdpau");
push(@parameters, "-vc ffmpeg12vdpau");
}
# ??? although MPEG1 is rare, it seems as if it should work with -vc ffmpeg12vdpau as well
# problems have been reported with WMV3 support
# } elsif ($codec eq "ffwmv3") { # WMV3
# if ($vdpau_supported) {
# push(@parameters, "-vo vdpau");
# push(@parameters, "-vc ffwmv3vdpau");
# }
# problems have been reported with WVC1 support
# } elsif ($codec eq "ffvc1") { # WVC1
# if ($vdpau_supported) {
# push(@parameters, "-vo vdpau");
# push(@parameters, "-vc ffvc1vdpau");
# }
} else { # any codec that doesn't work with vdpau
push(@parameters, "-vo xv,x11,");
push(@parameters, "-vc ,");
push(@parameters, "-vf pp=lb,$vf_parameters");
}
} else { # there is a crop parameter
push(@parameters, "-vo xv,x11,");
push(@parameters, "-vc ,");
push(@parameters, "-vf pp=lb,$vf_parameters");
}
return(@parameters);
}
# Find the best player for use on this system. The script prefers smplayer,
# which has built-in bookmarking, falling back to mplayer-resumer.pl, which
# implements bookmarking as an mplayer wrapper, if smplayer cannot be found.
# Finally, if no bookmarking players can be found, a barebones mplayer is used.
sub pick_player () {
#my @possible_players = ("smplayer", "mplayer-resumer.pl", "mplayer");
my @possible_players = ("mplayer");
my $command;
my $candidate_player;
foreach (@possible_players) {
$candidate_player = $_;
$command = "which $candidate_player |";
open(SHELL, $command);
if (<SHELL>) {
#print "player $candidate_player : $_\n";
return $candidate_player;
}
close(SHELL);
}
}
# Calls player
sub player () {
my($player,$parameters,$mediafile)=@_;
#my $command = "$player $parameters \"$mediafile\" 2>&1 |";
my $command = "$player $parameters \"$mediafile\" > /tmp/.mplayer-status |";
print "DEBUG: $0's player command is: *** $command ***\n";
open(SHELL, $command);
while (<SHELL>) {
print $_;
}
close(SHELL);
}
|
