/usr/share/perl5/FlashVideo/Site/Sbs.pm is in get-flash-videos 1.25~git2012.06.27-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | # Part of get-flash-videos. See get_flash_videos for copyright.
package FlashVideo::Site::Sbs;
use strict;
use FlashVideo::Utils;
use FlashVideo::JSON;
use File::Basename;
use HTML::Entities;
use URI::Escape;
sub find_video {
my ($self, $browser, $embed_url, $prefs) = @_;
my $smil;
my $baseurl;
my($id) = $browser->content =~ /firstVidId = '([^']*)';/;
($smil) = decode_entities($browser->content =~ /player\.releaseUrl = "([^"]*)";/);
if( $id ){
($baseurl) = $browser->content =~ m{so\.addVariable\("nielsenLaunchURL", *"([^"]*)"\);}s ;
my($menu) = $browser->content =~ m{loadVideo\('([^']*)', '', [^\)]\);}s ;
if( !$menu ){ $menu = $baseurl . '/video/menu/inline/id/' . $id; }
else { $menu = 'http://www.sbs.com.au' . $menu; }
$menu =~ s/' *\+ *firstVidId *\+ *'/$id/g;
die "No menu URL found" unless $menu;
$browser->get($menu);
($smil) = $browser->content =~ m{<video *name="[^"]*" *id="[^"]*" *src="([^"]*)">}s ;
}
die "no smil" unless $smil;
$browser->get($smil);
($baseurl) = decode_entities($browser->content =~ m'<meta base="([^"]*)"/>'s);
my @tmp = $browser->content =~ m'<video src="([^"]*)" system-bitrate="([^"]*)"/>'gs;
my %tmp = reverse @tmp;
my $filename;
my $q = $prefs->{quality};
if( grep {$_ eq $q || $_ == $q || $_ == ($q * 100000)} keys(%tmp) ){
$filename = decode_entities($tmp{$q});
if(!$filename){
my @bitrates = grep {$_ == $q || $_ == ($q * 100000)} keys(%tmp);
$filename = decode_entities($tmp{$bitrates[0]});
}
} else {
my @filenames = ();
foreach (sort { $a <=> $b } keys(%tmp) )
{ push @filenames, $tmp{$_}; }
my $cnt = @filenames;
my $num = {high => int($cnt/3)*2, medium => int($cnt/3)*1, low => int($cnt/3)*0}->{$q};
$filename = decode_entities($filenames[$num]);
}
die "no filenames" unless $filename;
if( $baseurl =~ /^rtmp:/ ){
my($flvname) = $filename =~ m'[^/]*/(.*)'s;
return {
rtmp => $baseurl,
playpath => $filename,
flv => $flvname,
swfUrl => 'http://www.sbs.com.au/vod/theplatform/core/4_4_3/swf/flvPlayer.swf',
};
} elsif ($baseurl) {
my $url = $baseurl . $filename;
return $url, $filename;
} else {
return $filename, File::Basename::basename($filename);
}
}
1;
|