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
|
#
# $Date: 2006-01-18 00:15:31 -0800 (Wed, 18 Jan 2006) $
# $Revision: 226 $
# $Author: xris $
#
# export::ffmpeg::iPod
#
package export::ffmpeg::iPod;
use base 'export::ffmpeg';
# Load the myth and nuv utilities, and make sure we're connected to the database
use nuv_export::shared_utils;
use nuv_export::cli;
use nuv_export::ui;
use mythtv::db;
use mythtv::recordings;
# Load the following extra parameters from the commandline
add_arg('quantisation|q=i', 'Quantisation');
add_arg('a_bitrate|a=i', 'Audio bitrate');
add_arg('v_bitrate|v=i', 'Video bitrate');
add_arg('multipass!', 'Enably two-pass encoding.');
sub new {
my $class = shift;
my $self = {
'cli' => qr/\bipod\b/i,
'name' => 'Export to iPod',
'enabled' => 1,
'errors' => [],
'defaults' => {},
};
bless($self, $class);
# Initialize the default parameters
$self->load_defaults();
# Verify any commandline or config file options
die "Audio bitrate must be > 0\n" unless (!defined $self->val('a_bitrate') || $self->{'a_bitrate'} > 0);
die "Video bitrate must be > 0\n" unless (!defined $self->val('v_bitrate') || $self->{'v_bitrate'} > 0);
# VBR, multipass, etc.
if ($self->val('multipass')) {
$self->{'vbr'} = 0;
}
elsif ($self->val('quantisation')) {
die "Quantisation must be a number between 1 and 31 (lower means better quality).\n" if ($self->{'quantisation'} < 1 || $self->{'quantisation'} > 31);
$self->{'vbr'} = 1;
}
# Initialize and check for ffmpeg
$self->init_ffmpeg();
# Can we even encode ipod?
# if (!$self->can_encode('mov')) {
# push @{$self->{'errors'}}, "Your ffmpeg installation doesn't support encoding to mov file formats.";
# }
if (!$self->can_encode('xvid')) {
push @{$self->{'errors'}}, "Your ffmpeg installation doesn't support encoding to xvid video.";
}
if (!$self->can_encode('aac')) {
push @{$self->{'errors'}}, "Your ffmpeg installation doesn't support encoding to aac audio.";
}
# Any errors? disable this function
$self->{'enabled'} = 0 if ($self->{'errors'} && @{$self->{'errors'}} > 0);
# Return
return $self;
}
# Load default settings
sub load_defaults {
my $self = shift;
# Load the parent module's settings
$self->SUPER::load_defaults();
# Default bitrates
$self->{'defaults'}{'v_bitrate'} = 384;
$self->{'defaults'}{'a_bitrate'} = 64;
}
# Gather settings from the user
sub gather_settings {
my $self = shift;
# Load the parent module's settings
$self->SUPER::gather_settings();
# Audio Bitrate
$self->{'a_bitrate'} = query_text('Audio bitrate?',
'int',
$self->val('a_bitrate'));
# VBR options
if (!$is_cli) {
$self->{'vbr'} = query_text('Variable bitrate video?',
'yesno',
$self->val('vbr'));
if ($self->{'vbr'}) {
$self->{'multipass'} = query_text('Multi-pass (slower, but better quality)?',
'yesno',
$self->val('multipass'));
if (!$self->{'multipass'}) {
while (1) {
my $quantisation = query_text('VBR quality/quantisation (1-31)?',
'float',
$self->val('quantisation'));
if ($quantisation < 1) {
print "Too low; please choose a number between 1 and 31.\n";
}
elsif ($quantisation > 31) {
print "Too high; please choose a number between 1 and 31\n";
}
else {
$self->{'quantisation'} = $quantisation;
last;
}
}
}
} else {
$self->{'multipass'} = 0;
}
# Ask the user what video bitrate he/she wants
$self->{'v_bitrate'} = query_text('Video bitrate?',
'int',
$self->val('v_bitrate'));
}
}
sub export {
my $self = shift;
my $episode = shift;
# Force to 4:3 aspect ratio
$self->{'out_aspect'} = 1.3333;
$self->{'aspect_stretched'} = 1;
# PAL or NTSC?
my $standard = ($episode->{'finfo'}{'fps'} =~ /^2(?:5|4\.9)/) ? 'PAL' : 'NTSC';
$self->{'width'} = 320;
$self->{'height'} = ($standard eq 'PAL') ? '288' : '240';
$self->{'out_fps'} = ($standard eq 'PAL') ? 25 : 29.97;
# Embed the title
my $safe_title = shell_escape($episode->{'show_name'}.' - '.$episode->{'title'});
# Dual pass?
if ($self->{'multipass'}) {
# Build the common ffmpeg string
my $ffmpeg_xtra = ' -b ' . $self->{'v_bitrate'}
.' -bufsize 65535'
.' -vcodec xvid -acodec aac '
.' -ab ' . $self->{'a_bitrate'}
." -f mp4 -title $safe_title";
# Add the temporary file to the list
push @tmpfiles, "/tmp/xvid.$$.log";
# Back up the path and use /dev/null for the first pass
my $path_bak = $self->{'path'};
$self->{'path'} = '/dev/null';
# Build the ffmpeg string
print "First pass...\n";
$self->{'ffmpeg_xtra'} = " -pass 1 -passlogfile '/tmp/divx.$$.log'"
.$ffmpeg_xtra;
$self->SUPER::export($episode, '');
# Restore the path
$self->{'path'} = $path_bak;
# Second Pass
print "Final pass...\n";
$self->{'ffmpeg_xtra'} = " -pass 2 -passlogfile '/tmp/divx.$$.log'"
.$ffmpeg_xtra;
}
# Single Pass
else {
$self->{'ffmpeg_xtra'} = ' -b ' . $self->{'v_bitrate'}
.(($self->{'vbr'})
? ' -qmin '.$self->{'quantisation'}
.' -qmax 31 -minrate 32'
.' -maxrate '.(2*$self->{'v_bitrate'})
.' -bt 32'
: '')
.' -vcodec xvid -acodec aac '
.' -ab ' . $self->{'a_bitrate'}
." -f mp4 -title $safe_title";
}
# Execute the (final pass) encode
$self->SUPER::export($episode, '.mp4');
}
1; #return true
# vim:ts=4:sw=4:ai:et:si:sts=4
|
