diff options
author | Nigel Taylor <njtaylor0101@gmail.com> | 2013-01-06 17:26:23 +0000 |
---|---|---|
committer | Nigel Taylor <njtaylor0101@gmail.com> | 2013-01-06 17:26:23 +0000 |
commit | 26fdff36707f52de2d8f39789c1ee7d47389e835 (patch) | |
tree | 37a2e8462eff17c38358d46d33269e95ebd7d585 | |
parent | 1581be7c603b8b7319b708b277940eb74d1f3aa6 (diff) | |
download | get-flash-videos-26fdff36707f52de2d8f39789c1ee7d47389e835.tar.gz |
Add a site/plugin version, can see version of plugin if version
built from git is used.
-rw-r--r-- | lib/FlashVideo/Site/Itv.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/FlashVideo/Site/Itv.pm b/lib/FlashVideo/Site/Itv.pm index 03248d4..d7880da 100644 --- a/lib/FlashVideo/Site/Itv.pm +++ b/lib/FlashVideo/Site/Itv.pm @@ -5,6 +5,9 @@ use strict; use FlashVideo::Utils; use HTML::Entities; +our $VERSION = '0.01'; +sub Version() { $VERSION;} + sub find_video { my ($self, $browser, $page_url, $prefs) = @_; @@ -49,7 +52,7 @@ EOF } else { ($productionid) = $browser->content =~ /\"productionId\":\"([^\"]+)\"/i; - print "Production ID $productionid\n"; + 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", Content_Type => "text/xml; charset=utf-8", |