diff options
| author | Jonas <jonaskarlsson@fripost.org> | 2013-02-07 19:47:53 +0100 |
|---|---|---|
| committer | Jonas <jonaskarlsson@fripost.org> | 2013-02-09 20:02:24 +0100 |
| commit | 8d74100a8a64c094b55bc8ac88f1cf1b90321e51 (patch) | |
| tree | 8801e0b001f42f95d360db8005db4f69f91955cd | |
| parent | 2f12e6dc9cd2ee3ecc9df285431ef6f207c0d7df (diff) | |
| download | get-flash-videos-8d74100a8a64c094b55bc8ac88f1cf1b90321e51.tar.gz | |
BUG: Kanal5play.pm did not iterate all video streams
| -rw-r--r-- | lib/FlashVideo/Site/Kanal5play.pm | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/lib/FlashVideo/Site/Kanal5play.pm b/lib/FlashVideo/Site/Kanal5play.pm index 3f9f88c..862c2b9 100644 --- a/lib/FlashVideo/Site/Kanal5play.pm +++ b/lib/FlashVideo/Site/Kanal5play.pm @@ -6,6 +6,8 @@ use warnings; use FlashVideo::Utils; use FlashVideo::JSON; +our $VERSION = '0.01'; +sub Version() { $VERSION;} my $bitrates = { low => 250000, @@ -18,7 +20,7 @@ sub find_video { if (!($browser->uri->as_string =~ m/video\/([0-9]*)/)) { die "No video id found in url"; } - my ($video_id) = $1; + my $video_id = $1; my $info_url = "http://www.kanal5play.se/api/getVideo?format=FLASH&videoId=$video_id"; $browser->get($info_url); @@ -26,19 +28,19 @@ sub find_video { die "Couldn't download $info_url: " . $browser->response->status_line; } - my $jsonstr = $browser->content; - my $json = from_json($jsonstr); + my $jsonstr = $browser->content; + my $json = from_json($jsonstr); - my $name = $json->{program}->{name}; - my $episode = $json->{episodeNumber}; - my $season = $json->{seasonNumber}; + my $name = $json->{program}->{name}; + my $episode = $json->{episodeNumber}; + my $season = $json->{seasonNumber}; my $filename = sprintf "%s - S%02dE%02d", $name, $season, $episode; - my ($rtmp) = "rtmp://fl1.c00608.cdn.qbrick.com:1935/00608"; - my ($playpath) = $json->{streams}[0]->{source}; + my $rtmp = "rtmp://fl1.c00608.cdn.qbrick.com:1935/00608"; + my $playpath = $json->{streams}[0]->{source}; - foreach my $stream ($json->{streams}[0]) { - my ($rate) = int($stream->{bitrate}); - if ($bitrates->{$prefs->{quality}} eq $rate) { + foreach my $stream (@{$json->{streams}}) { + my $rate = int($stream->{bitrate}); + if ($bitrates->{$prefs->{quality}} == $rate) { $playpath = $stream->{source}; last; } @@ -48,7 +50,7 @@ sub find_video { flv => title_to_filename($filename, "flv"), rtmp => $rtmp, playpath => $playpath, - swfVfy => "http://www.kanal5play.se/flash/StandardPlayer.swf" + swfVfy => "http://www.kanal5play.se/flash/K5StandardPlayer.swf" }; } 1; |