ce8750bef0
media on many BBC web pages. Live streams tested by Pedro la Peu, thanks! (he was seeing problems with mplayer stuttering about 50% of the time, but perfect on reconnecting). Try "get_iplayer --pid tv:<url or channel> --stdout --nowrite" piped into "mplayer -cache 512 -" or "ffplay -".
42 lines
1.7 KiB
Plaintext
42 lines
1.7 KiB
Plaintext
$OpenBSD: patch-get_iplayer,v 1.8 2009/06/14 11:47:45 sthen Exp $
|
|
--- get_iplayer.orig Sat Jun 13 00:46:46 2009
|
|
+++ get_iplayer Sat Jun 13 11:59:13 2009
|
|
@@ -173,7 +173,7 @@ mkpath $profile_dir if ! -d $profile_dir;
|
|
|
|
|
|
# get list of additional user plugins and load plugin
|
|
-my $plugin_dir_system = '/usr/share/get_iplayer/plugins';
|
|
+my $plugin_dir_system = '${TRUEPREFIX}/share/get_iplayer/plugins';
|
|
my $plugin_dir_user = "$profile_dir/plugins";
|
|
for my $plugin_dir ( ( $plugin_dir_user, $plugin_dir_system ) ) {
|
|
if ( opendir( DIR, $plugin_dir ) ) {
|
|
@@ -359,6 +359,7 @@ if ( ! keys %plugin_files ) {
|
|
$opt->{pluginsupdate} = 1;
|
|
}
|
|
# Update this script if required
|
|
+$opt->{packagemanager}='pkg_add';
|
|
update_script() if $opt->{update} || $opt->{pluginsupdate};
|
|
|
|
|
|
@@ -524,9 +525,9 @@ sub find_matches {
|
|
$binopts->{lame} .= ' --quiet ' if $opt->{quiet};
|
|
$bin->{vlc} = $opt->{vlc} || 'cvlc';
|
|
$binopts->{vlc} = '-vv' if $opt->{verbose} || $opt->{debug};
|
|
- $bin->{id3v2} = $opt->{id3v2} || 'id3v2';
|
|
+ $bin->{id3v2} = $opt->{id3v2} || 'id3tag';
|
|
$bin->{tee} = 'tee';
|
|
- $bin->{rtmpdump} = $opt->{rtmpdump} || 'rtmpdump';
|
|
+ $bin->{rtmpdump} = $opt->{rtmpdump} || 'flvstreamer';
|
|
# Set quiet, test and get options if we're asked for streaminfo
|
|
if ( $opt->{streaminfo} ) {
|
|
$opt->{test} = 1;
|
|
@@ -1352,7 +1353,7 @@ sub create_ua {
|
|
my $agent = $user_agent{ "$_[0]" } || random_ua();
|
|
my $nocookiejar = $_[1] || 0;
|
|
my $ua = LWP::UserAgent->new;
|
|
- $ua->timeout([$lwp_request_timeout]);
|
|
+ $ua->timeout($lwp_request_timeout);
|
|
$ua->proxy( ['http'] => $opt->{proxy} ) if $opt->{proxy} && $opt->{proxy} !~ /^prepend:/;
|
|
$ua->agent( $agent );
|
|
main::logger "DEBUG: Using user-agent '$agent'\n" if $opt->{debug};
|