Mailinglist Archive: opensuse-de (817 mails)

< Previous Next >
Re: OT:ZDF-HeuteShow ruckelt bei Onlinestreaming (Firefox 4.x u. Seamonkey 2.x)
Hallo,

Am Sat, 09 Apr 2011, Christoph von Gallera schrieb:
Breitband-Problem, Mozilla-Problem oder Suse-Problem?

Breitband-/ZDF-Problem. Lad die Streams einfach runter und spiel sie
anschließend (oder nach genug $MB Puffer) mit z.B. mplayer ab. Hier
mein Script, dem du die .asx (zum mms:// DL) verfüttern kannst,
braucht den mplayer für den eigentlichen DL via mms://. Gerade
z.B. die heute-show gucke ich in letzter Zeit überwiegend so.

==== ~/bin/zdfdl ====
#!/usr/bin/perl -ws
use strict;
use LWP::UserAgent;
use File::Basename;

# User-Agent nach Gusto anpassen:
my $uastr = "Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.1.16)
Gecko/20101124 SeaMonkey/2.0.11";

my $ua = new LWP::UserAgent( timeout => 5, agent => $uastr );

$::n ||= 0;
my $dry_run = $::n || 0;

sub runcmd {
my $ret = 0;
if( ! $dry_run ) {
print "\n", "=" x 68, "\nRunning: ", join(" ", @_), "\n\n";
system(@_);
$ret = $?;
if( $ret == -1 ) {
print STDERR "failed to execute: $!\n";
} elsif ($ret & 127) {
printf STDERR "\nchild died with signal %d, %s coredump\n",
($ret & 127), ($ret & 128) ? "with coredump" : "";
}
} else {
print "\n", "=" x 68, "\nWould run: ", join(" ", @_), "\n\n";
}
return $ret == 0;
}

sub geturl {
my $url = shift;
my $req = new HTTP::Request('GET', "$url");
my $resp = $ua->simple_request($req);
if( $resp->is_success() ) {
return $resp->content();
} else {
print STDERR $resp->code(), ": ", $resp->message(), "\n";
}
}

foreach(@ARGV) {
my ($asx, $mms, $wmv);
next unless m{https?://|ftps?://};
$asx = geturl($_);
my @ASX = split("\n", $asx);
foreach(@ASX) {
if( /<Ref\s/i ) {
s{.*href="?(mms://[^>"]+)"?\s*/>.*}{$1}; #"
$mms = $_;
};
}
($wmv = $mms) =~ s{mms://}{/};
$wmv = basename($wmv);
runcmd("mplayer", "-dumpstream", "-dumpfile", $wmv, $mms);
}
====

HTH,
-dnh

--
Demokratie ist die Herrschaft der Unfähigen über die Desinteressierten...
-- ca. sinngemäß aus Dorfer's Donnerstalk
--
Um die Liste abzubestellen, schicken Sie eine Mail an:
opensuse-de+unsubscribe@xxxxxxxxxxxx
Um eine Liste aller verfuegbaren Kommandos zu bekommen, schicken
Sie eine Mail an: opensuse-de+help@xxxxxxxxxxxx

< Previous Next >