added support for motherless.com

1 files changed, 22 insertions, 0 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;