diff options
author | Nigel Taylor <njtaylor0101@gmail.com> | 2013-03-04 22:40:52 +0000 |
---|---|---|
committer | Nigel Taylor <njtaylor0101@gmail.com> | 2013-03-04 22:40:52 +0000 |
commit | 168cac03dc80b05efbefccf138a14929621cebc8 (patch) | |
tree | 198710dbb52aff35ca1faa953eeef03d7267d8e1 | |
parent | 22c2d3326288169d0d125c0651544244617ec881 (diff) | |
download | get-flash-videos-168cac03dc80b05efbefccf138a14929621cebc8.tar.gz |
Fix for issue 470 URL redirection.
-rw-r--r-- | lib/FlashVideo/Site/Ustream.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/FlashVideo/Site/Ustream.pm b/lib/FlashVideo/Site/Ustream.pm index 7674e91..b9b4b21 100644 --- a/lib/FlashVideo/Site/Ustream.pm +++ b/lib/FlashVideo/Site/Ustream.pm @@ -5,6 +5,9 @@ use strict; use FlashVideo::Utils; use MIME::Base64; +our $VERSION = '0.01'; +sub Version() { $VERSION }; + sub find_video { my ($self, $browser, $embed_url) = @_; @@ -42,6 +45,8 @@ EOF # Data::AMF fails to understand this response, so just parse ourselves. my($flv_url) = $browser->content =~ /flv.{3,5}(http:[^\0]+)/; + $browser->allow_redirects; + return $flv_url, title_to_filename($title); } |