From cc17bfb7db9cd2df9b026ca6121c1b94dd028506 Mon Sep 17 00:00:00 2001
From: Alexandre Morignot <erdnaxeli@cervoi.se>
Date: Thu, 31 Mar 2016 23:06:45 +0200
Subject: [PATCH] Fix indent
---
PlayBot/sites/facebook.pm | 26 +++++++++++++-------------
1 file changed, 13 insertions(+), 13 deletions(-)
diff --git a/PlayBot/sites/facebook.pm b/PlayBot/sites/facebook.pm
index ca7564a..a241a69 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;
--
GitLab