Add basic Facebook plugin

1 files changed, 25 insertions, 0 deletions

diff --git a/lib/FlashVideo/Site/Facebook.pm b/lib/FlashVideo/Site/Facebook.pm
new file mode 100644
index 0000000..d3db5d9
--- /dev/null
+++ b/lib/FlashVideo/Site/Facebook.pm
@@ -0,0 +1,25 @@
+# Part of get-flash-videos. See get_flash_videos for copyright.
+package FlashVideo::Site::Facebook;
+
+use strict;
+use FlashVideo::Utils;
+
+use URI::Escape;
+
+sub find_video {
+  my ($self, $browser, $embed_url) = @_;
+
+  # Grab the file from the page..
+  my $params = ($browser->content =~ /\["params","(.+?)"\]/)[0];
+  $params =~ s/\\u([[:xdigit:]]{1,4})/chr(eval("0x$1"))/egis;
+  $params = uri_unescape($params);
+  my $url = ($params =~ /"sd_src":"([^"]*)"/)[0];
+  $url =~ s/\\\//\//g;
+  die "Unable to extract url" unless $url;
+
+  my $filename = ($url =~ /([^\/]*)\?/)[0];
+
+  return $url, $filename;
+}
+
+1;