diff --git a/PlayBot/sites/facebook.pm b/PlayBot/sites/facebook.pm index ca7564a223313373633342c070241688b4e78852..a241a699f48c9338f22ef107bab4f109f20ea52d 100644 --- a/PlayBot/sites/facebook.pm +++ b/PlayBot/sites/facebook.pm @@ -20,39 +20,39 @@ BEGIN { sub regex { - return qr#(?:^|[^!])https?://(?:www.|)facebook.com/(?:video.php\?v=|.*/videos/)([a-zA-Z0-9_-]+)#; + return qr#(?:^|[^!])https?://(?:www.)?facebook.com/(?:video.php\?v=|.*/videos/)([a-zA-Z0-9_-]+)#; } sub get { shift; - my $id = shift; - + my $id = shift; + my $ua = LWP::UserAgent->new( timeout => 30, env_proxy => 1, ); - my $response = $ua->get($endpoint + my $response = $ua->get($endpoint .$id - .'?access_token='.$conf->{'facebook_access_token'} - .'&fields=title,from,permalink_url,length'); - die($response->status_line) unless ($response->is_success); + .'?access_token='.$conf->{'facebook_access_token'} + .'&fields=title,from,permalink_url,length'); + die($response->status_line) unless ($response->is_success); - my $content = decode_json($response->decoded_content); + my $content = decode_json($response->decoded_content); die "Fuck Facebook." if (exists $content->{'error'} ); my %infos; $infos{'title'} = $content->{'title'}; - if (!exists $content->{'title'}) { - $infos{'title'} = 'Untitled'; - } + if (!exists $content->{'title'}) { + $infos{'title'} = 'Untitled'; + } $infos{'duration'} = $content->{'length'}; - $infos{'site'} = 'facebook'; + $infos{'site'} = 'facebook'; $infos{'url'} = 'https://www.facebook.com'.$content->{'permalink_url'}; $infos{'author'} = $content->{'from'}->{'name'}; - return %infos; + return %infos; } 1;