GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-01-11 04:22:35 +01:00
Code Issues Projects Releases Wiki Activity

WebPaste: use LWP::UserAgent::Paranoid for stricter timeout

Browse Source
This commit is contained in:
Pragmatic Software 2020-02-03 09:46:44 -08:00
parent b89d41796f
commit 19386a7a51
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
MODULES
View File

@ -20,6 +20,7 @@ Lingua::Stem
LWP::Protocol::https LWP::Protocol::https
LWP::Simple LWP::Simple
LWP::UserAgent LWP::UserAgent
LWP::UserAgent::Paranoid
LWP::UserAgent::WithCache LWP::UserAgent::WithCache
Math::Expression::Evaluator Math::Expression::Evaluator
Math::Units Math::Units

7
PBot/WebPaste.pm
View File

@ -16,7 +16,7 @@ use feature 'unicode_strings';
use Time::HiRes qw/gettimeofday/; use Time::HiRes qw/gettimeofday/;
use Time::Duration; use Time::Duration;
use LWP::UserAgent; use LWP::UserAgent::Paranoid;
use Carp (); use Carp ();
use Encode; use Encode;
@ -68,7 +68,7 @@ sub paste {
$text = encode('UTF-8', $text); $text = encode('UTF-8', $text);
my $result; my $result;
for (my $tries = 5; $tries > 0; $tries--) { for (my $tries = 3; $tries > 0; $tries--) {
my $paste_site = $self->get_paste_site; my $paste_site = $self->get_paste_site;
$result = $paste_site->($text); $result = $paste_site->($text);
@ -83,10 +83,9 @@ sub paste {
sub paste_ixio { sub paste_ixio {
my ($self, $text) = @_; my ($self, $text) = @_;
my $ua = LWP::UserAgent->new(); my $ua = LWP::UserAgent::Paranoid->new(request_timeout => 3);
$ua->agent("Mozilla/5.0"); $ua->agent("Mozilla/5.0");
push @{ $ua->requests_redirectable }, 'POST'; push @{ $ua->requests_redirectable }, 'POST';
$ua->timeout(10);
my %post = ('f:1' => $text); my %post = ('f:1' => $text);
my $response = $ua->post("http://ix.io", \%post); my $response = $ua->post("http://ix.io", \%post);