Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Added support for Myvideo, fixes issue 113 - thanks to bug.me.not.dude.

  • Loading branch information...
commit 74a3dfab208c826bd82f4c670e3135dec8f9a16c 1 parent e9b88fa
@zakflash zakflash authored
Showing with 27 additions and 0 deletions.
  1. +24 −0 FlashVideo/Site/Myvideo.pm
  2. +3 −0  t/urls
View
24 FlashVideo/Site/Myvideo.pm
@@ -0,0 +1,24 @@
+# Part of get-flash-videos. See get_flash_videos for copyright.
+package FlashVideo::Site::Myvideo;
+
+use strict;
+use FlashVideo::Utils;
+
+sub find_video {
+ my ($self, $browser, $embed_url) = @_;
+
+ my $video_url;
+
+ if ($browser->content =~ m{<link rel='image_src' href='(http://[^'"]+)'}) {
+ $video_url = $1;
+ }
+
+ $video_url =~ s|thumbs/||;
+ $video_url =~ s|_\d\.jpg$|.flv|;
+
+ my $title = (split /\//, $browser->uri->as_string)[-1];
+
+ return $video_url, title_to_filename($title);
+}
+
+1;
View
3  t/urls
@@ -193,3 +193,6 @@ http://www.movietv.us/share/view/163/second-chances/
# Traileraddict
http://www.traileraddict.com/trailer/dear-john/music-video-set-the-fire-to-the-third-bar
+
+# Myvideo
+http://www.myvideo.de/watch/54913/Kaum_zu_glauben
Please sign in to comment.
Something went wrong with that request. Please try again.