diff options
author | Nigel Taylor <njtaylor0101@gmail.com> | 2013-02-12 23:01:24 +0000 |
---|---|---|
committer | Nigel Taylor <njtaylor0101@gmail.com> | 2013-02-12 23:01:24 +0000 |
commit | edf5605cf037ff9897195790ecb304d20aa5c830 (patch) | |
tree | a1e249a5a2925b65bf82de607a6d263595064316 | |
parent | 701adfb7cda815640b7fc9121ef6bfb8d95f3b9d (diff) | |
parent | b24d733991fae27578fb8f366501dccdc9577642 (diff) | |
download | get-flash-videos-edf5605cf037ff9897195790ecb304d20aa5c830.tar.gz |
Merge branch 'master' of git://github.com/monsieurvideo/get-flash-videos
-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; |