Update ITV, site changed to a Beta ITVPlayer

add missing dependency.
njtaylor · Nov 19, 2015 · 0e52f55 · 0e52f55
1 parent 794862b
commit 0e52f55
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/Makefile.PL b/Makefile.PL
@@ -22,6 +22,7 @@ my %mm_vars = (
       URI              => 0,
       'LWP::UserAgent' => 0,
       'WWW::Mechanize' => 0,
+      'IO::Socket::SSL' => 0,
       'LWP::Protocol::https' => 0,
       'LWP::Protocol::socks' => 0,
       'Module::Find' => 0,

diff --git a/lib/FlashVideo/Site/Itv.pm b/lib/FlashVideo/Site/Itv.pm
@@ -6,7 +6,7 @@ use FlashVideo::Utils;
 use HTML::Entities;
 use Encode;
 
-our $VERSION = '0.06';
+our $VERSION = '0.07';
 sub Version() { $VERSION;}
 
 sub find_video {
@@ -53,6 +53,9 @@ EOF
   }
   else {
     ($productionid) = $browser->content =~ /\"productionId\":\"([^\"]+)\"/i;
+    if (! $productionid) {
+      ($productionid) = $browser->content =~ / data-video-id\s*=\s*\"([^\"]+)\"/i;
+    }
     debug "Production ID $productionid\n";
     die "No id (filter) found in URL or production id\n" unless $productionid;
     $browser->post("http://mercury.itv.com/PlaylistService.svc",