eleksir/aleesa-jabber-bot
1
Fork 0
Code Activity

Sometimes xkcd.ru returns redirect to 404

Browse Source
This commit is contained in:
eleksir
2021-04-22 20:53:02 +03:00
parent eb12b23a3d
commit 2cfede2769
1 changed files with 18 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
lib/BotLib/Xkcd.pm
View File

@@ -13,10 +13,25 @@ our @EXPORT_OK = qw (Xkcd);
sub Xkcd { sub Xkcd {
my $http = HTTP::Tiny->new (timeout => 5, max_redirect => 0); my $http = HTTP::Tiny->new (timeout => 5, max_redirect => 0);
my $r = $http->get ('https://xkcd.ru/random/'); my $location;
my $status = 400;
my $c = 0;
if (defined $r->{headers} && defined $r->{headers}->{location} && $r->{headers}->{location} ne '') { do {
return sprintf 'https://xkcd.ru/i/%s_v1.png', substr ($r->{headers}->{location}, 1, -1); my $r = $http->get ('https://xkcd.ru/random/');
if (defined $r->{headers} && defined $r->{headers}->{location} && $r->{headers}->{location} ne '') {
$location = substr ($r->{headers}->{location}, 1, -1);
$location = sprintf 'https://xkcd.ru/i/%s_v1.png', $location;
$r = $http->head ($location);
}
$c++;
$status = $r->{status};
} while ($c < 3 || $status >= 404);
if ($status == 200) {
return $location;
} }
return 'Комикс-стрип нарисовать не так-то просто :('; return 'Комикс-стрип нарисовать не так-то просто :(';