diff options
| author | Nigel Taylor <njtaylor0101@gmail.com> | 2013-04-03 15:37:23 +0100 |
|---|---|---|
| committer | Nigel Taylor <njtaylor0101@gmail.com> | 2013-04-03 15:37:23 +0100 |
| commit | 04541fbccba1c1ca15e639cfa7ff9a47776293e1 (patch) | |
| tree | a84a41adb96db701c60cd00c555253789ed8c9fc | |
| parent | 8ef3332c754851f20740658cbdb4abee4414e72d (diff) | |
| download | get-flash-videos-04541fbccba1c1ca15e639cfa7ff9a47776293e1.tar.gz | |
Add plugin version
| -rw-r--r-- | lib/FlashVideo/Generic.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/FlashVideo/Generic.pm b/lib/FlashVideo/Generic.pm index 1625df4..3f026a6 100644 --- a/lib/FlashVideo/Generic.pm +++ b/lib/FlashVideo/Generic.pm @@ -8,6 +8,9 @@ use FlashVideo::URLFinder; use URI::Escape qw(uri_unescape); use HTML::Entities qw(decode_entities); +our $VERSION = '0.01'; +sub Version() { $VERSION; } + my $video_re = qr!http[-:/a-z0-9%_.?=&]+@{[EXTENSIONS]} # Grab any params that might be used for auth.. (?:\?[-:/a-z0-9%_.?=&]+)?!xi; @@ -71,6 +74,7 @@ sub find_video { if(!$actual_url) { for my $iframe($browser->content =~ /<iframe[^>]+src=["']?([^"'>]+)/gi) { + $iframe = decode_entities($iframe); $iframe = URI->new_abs($iframe, $browser->uri); $iframe = decode_entities($iframe); debug "Found iframe: $iframe"; |