diff options
author | Nigel Taylor <njtaylor0101@gmail.com> | 2013-02-12 14:53:04 -0800 |
---|---|---|
committer | Nigel Taylor <njtaylor0101@gmail.com> | 2013-02-12 14:53:04 -0800 |
commit | 6ee0210e05214fc45e5c72d186d4539002534ccc (patch) | |
tree | 9f1bc3aa7bfe3a47cb0ec581e177f659c43767c0 | |
parent | 1581f309d6978afad20eeaf3cfae22e5894a1601 (diff) | |
parent | cd37d112b99434a8cac1235bcfd4b35ccaefe773 (diff) | |
download | get-flash-videos-6ee0210e05214fc45e5c72d186d4539002534ccc.tar.gz |
Merge pull request #90 from bit/master
add vitheque.com support
-rw-r--r-- | lib/FlashVideo/Site/Vitheque.pm | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/lib/FlashVideo/Site/Vitheque.pm b/lib/FlashVideo/Site/Vitheque.pm new file mode 100644 index 0000000..715fce7 --- /dev/null +++ b/lib/FlashVideo/Site/Vitheque.pm @@ -0,0 +1,35 @@ +# Part of get-flash-videos. See get_flash_videos for copyright. +package FlashVideo::Site::Vitheque; + +use strict; +use FlashVideo::Utils; + +sub find_video { + my ($self, $browser, $embed_url, $prefs) = @_; + my ($filename, $playpath, $param, $rtmp); + + debug "Vitheque::find_video called, embed_url = \"$embed_url\"\n"; + for my $param($browser->content =~ /(?si)<embed.*?flashvars=["']?([^"'>]+)/gi) { + if($param =~ m{file=([^ &"']+)}) { + debug "playpath: ($1)"; + $playpath = $1; + } + if($param =~ m{(rtmp://[^ &"']+)}) { + debug "rtmp: $1"; + $rtmp = $1; + } + } + if($browser->content =~ /<span id="dnn_ctr1641_ViewVIT_FicheTitre_ltlTitre">(.*?)<\/span>/gi) { + $filename = title_to_filename($1); + } else { + $filename = title_to_filename(File::Basename::basename($playpath)); + } + return { + rtmp => $rtmp, + playpath => "mp4:$playpath", + flv => $filename, + swfVfy => "http://www.vitheque.com/DesktopModules/VIT_FicheTitre/longTail/player-licensed.swf" + }; +} + +1; |