Merge pull request #88 from acronymized/master

Fixed Redtube, added support for motherless.com

2 files changed, 23 insertions, 1 deletions

diff --git a/lib/FlashVideo/Site/Motherless.pm b/lib/FlashVideo/Site/Motherless.pm
new file mode 100644
index 0000000..c576e45
--- /dev/null
+++ b/lib/FlashVideo/Site/Motherless.pm
@@ -0,0 +1,22 @@
+# Part of get-flash-videos. See get_flash_videos for copyright.
+package FlashVideo::Site::Motherless;
+
+use strict;
+use FlashVideo::Utils;
+
+sub find_video {
+  my ($self, $browser, $embed_url) = @_;
+
+  my $url;
+  if ($browser->content =~ /file: '([^']+)'/) {
+    $url = $1."?start=0";
+  } else {
+    die "Unable to extract video url";
+  }
+
+  (my $title) = extract_title($browser) =~ /:\s+(.*)/;
+
+  return $url, title_to_filename($title, "flv");
+}
+
+1;
diff --git a/lib/FlashVideo/Site/Redtube.pm b/lib/FlashVideo/Site/Redtube.pm
index 1b54986..a748974 100644
--- a/lib/FlashVideo/Site/Redtube.pm
+++ b/lib/FlashVideo/Site/Redtube.pm
@@ -8,7 +8,7 @@ use URI::Escape;
 sub find_video {
   my($self, $browser, $embed_url) = @_;
 
-  my($title) = $browser->content =~ /<h1 class="videoTitle">([^<]+)</;
+  my($title) = extract_title($browser) =~ /(.*) \|/;
 
   my($url) = $browser->content =~ /mp4_url=([^&"]+)/;
   $url = uri_unescape($url);