diff options
author | Ben Webb <bjwebb67@googlemail.com> | 2013-03-09 15:07:12 +0000 |
---|---|---|
committer | Ben Webb <bjwebb67@googlemail.com> | 2013-03-09 15:07:12 +0000 |
commit | 0b1132a3bb60311a83723919d9e1dbf9d9b85082 (patch) | |
tree | b8bc6b97d6f3dfb205d5244d112cdbfaacc069bc | |
parent | 987bdf1ece76ad4436594d426be96ee8a8a0a2c2 (diff) | |
download | get-flash-videos-0b1132a3bb60311a83723919d9e1dbf9d9b85082.tar.gz |
Prefer HD facebook videos
-rw-r--r-- | lib/FlashVideo/Site/Facebook.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/FlashVideo/Site/Facebook.pm b/lib/FlashVideo/Site/Facebook.pm index d3db5d9..fd08986 100644 --- a/lib/FlashVideo/Site/Facebook.pm +++ b/lib/FlashVideo/Site/Facebook.pm @@ -13,7 +13,8 @@ sub find_video { 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]; + my $url = ($params =~ /"hd_src":"([^"]*)"/)[0]; + if (!$url) { $url = ($params =~ /"sd_src":"([^"]*)"/)[0]; } $url =~ s/\\\//\//g; die "Unable to extract url" unless $url; |