X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=videosite%2FBlipTVGrabber.pm;h=1b2349db357583f4da04db5935ebe20d39746764;hb=0c3d27aee3c4c637cb336c739c25c96ca260f067;hp=aeda2d932d36ff9d42c1b02ef8fe86338e5a26f4;hpb=d1cad67a781fcd286f57e77297a46e01a90d5e36;p=videosite.git diff --git a/videosite/BlipTVGrabber.pm b/videosite/BlipTVGrabber.pm index aeda2d9..1b2349d 100644 --- a/videosite/BlipTVGrabber.pm +++ b/videosite/BlipTVGrabber.pm @@ -36,6 +36,7 @@ sub _parse { my $metadata = {}; my $p = HTML::Parser->new(api_version => 3); my @accum; + my @text; my $e; my $xml = undef; @@ -55,16 +56,15 @@ sub _parse { } $p->handler(start => \@accum, "tagname, attr"); - $p->report_tags(qw(div)); + $p->handler(text => \@text, "text"); + $p->report_tags(qw(script)); $p->utf8_mode(1); $p->parse($content); - # Look for the post id in the div tags - foreach $e (@accum) { - if (exists($e->[1]->{'pokkariparameters'})) { - if ($e->[1]->{'pokkariparameters'} =~ m|posts_id:"(\d+)"|) { - $xml = $1; - } + # Look for the post id in the javascript code + foreach $e (@text) { + if ($e->[0] =~ m|player.setPostsId\((\d+)\)|s) { + $xml = $1; } } @@ -80,7 +80,7 @@ sub _parse { } $xml = XML::Simple::XMLin($content, KeepRoot => 1); - $metadata->{'DLURL'} = $xml->{'rss'}->{'channel'}->{'item'}->{'media:group'}->{'media:content'}->{'url'}; + $metadata->{'DLURL'} = $xml->{'rss'}->{'channel'}->{'item'}->{'enclosure'}->{'url'}; $metadata->{'TITLE'} = $xml->{'rss'}->{'channel'}->{'item'}->{'media:title'}; unless(defined($metadata->{'DLURL'}) && defined($metadata->{'TITLE'})) {