diff options
| author | Nigel Taylor <njtaylor0101@gmail.com> | 2013-03-16 14:29:44 -0700 |
|---|---|---|
| committer | Nigel Taylor <njtaylor0101@gmail.com> | 2013-03-16 14:29:44 -0700 |
| commit | 2813543084145cdc010206f11adbf19aa51488d5 (patch) | |
| tree | c25e36cf3a1f206990bb8915403f9907f08deae0 | |
| parent | 7a4f6cdf8125c9d672d0c02a1b99b6e1e4e8b0d0 (diff) | |
| parent | 3bfe7f3ec8816c56ff76f68d0a510dc14664b57c (diff) | |
| download | get-flash-videos-2813543084145cdc010206f11adbf19aa51488d5.tar.gz | |
Merge pull request #107 from njtaylor/master
Correct channel5 and debian control.
| -rw-r--r-- | debian/control | 9 | ||||
| -rw-r--r-- | lib/FlashVideo/Site/Channel5.pm | 6 |
2 files changed, 8 insertions, 7 deletions
diff --git a/debian/control b/debian/control index 64c2404..e8e0865 100644 --- a/debian/control +++ b/debian/control @@ -15,8 +15,9 @@ Homepage: http://code.google.com/p/get-flash-videos/ Package: get-flash-videos Architecture: all -Depends: libcrypt-blowfish-perl, +Depends: libcrypt-blowfish-pp-perl, libdata-amf-perl, + libencode-locale-perl, libhtml-parser-perl, libhtml-tree-perl, libmodule-find-perl, @@ -24,14 +25,14 @@ Depends: libcrypt-blowfish-perl, liburi-perl, libwww-mechanize-perl, libwww-perl, - rtmpdump, ${misc:Depends}, ${perl:Depends} Recommends: get-iplayer, ffmpeg | libav-tools, - libcrypt-rijndeal-perl, + libcrypt-rijndael-perl, liblwp-protocol-socks-perl, - libxml-simple-perl + libxml-simple-perl, + rtmpdump|flvstreamer Suggests: mplayer Description: Video downloader for various Flash-based video hosting sites Download videos from various Flash-based video hosting sites, without having diff --git a/lib/FlashVideo/Site/Channel5.pm b/lib/FlashVideo/Site/Channel5.pm index 643b3f6..f55acf8 100644 --- a/lib/FlashVideo/Site/Channel5.pm +++ b/lib/FlashVideo/Site/Channel5.pm @@ -5,6 +5,9 @@ use strict; use FlashVideo::Utils; use MIME::Base64; +our $VERSION = '0.01'; +sub Version() { $VERSION; } + my $encode_rates = { "low" => 480, "medium" => 800, @@ -226,9 +229,6 @@ sub can_handle { my($self, $browser, $url) = @_; return 1 if $url && URI->new($url)->host =~ /\.channel5\.com$/; - - return $browser->content =~ /(playerI[dD]|brightcove.player.create)/ - && $browser->content =~ /brightcove/i; } 1; |