diff options
author | j <j@mailb.org> | 2013-02-10 23:56:27 +0530 |
---|---|---|
committer | j <j@mailb.org> | 2013-02-10 23:56:27 +0530 |
commit | cd37d112b99434a8cac1235bcfd4b35ccaefe773 (patch) | |
tree | 78e4afd0e0b49c2bae3c27bfddd3954a94181fdb | |
parent | 2f12e6dc9cd2ee3ecc9df285431ef6f207c0d7df (diff) | |
download | get-flash-videos-cd37d112b99434a8cac1235bcfd4b35ccaefe773.tar.gz |
add vitheque.com
-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; |