Skip to content
Browse files

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

  • Loading branch information...
1 parent e9b88fa commit 74a3dfab208c826bd82f4c670e3135dec8f9a16c @zakflash zakflash committed
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

0 comments on commit 74a3dfa

Please sign in to comment.
Something went wrong with that request. Please try again.