GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

WebPaste: restore ix.io (but disabled)

This commit is contained in:
Pragmatic Software 2021-02-07 13:51:58 -08:00
parent 46866bbad6
commit 8403063d34
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
PBot/WebPaste.pm
View File

@ -24,6 +24,7 @@ sub initialize {
$self->{paste_sites} = [
sub { $self->paste_0x0st(@_) },
# sub { $self->paste_ixio(@_) }, # removed due to being too slow (temporarily hopefully)
];
$self->{current_site} = 0;
@ -51,6 +52,7 @@ sub paste {
$result = $paste_site->($text);
last if $result !~ m/error pasting/;
}
$result =~ s/^\s+|\s+$//g;
return $result;
}
@ -66,8 +68,18 @@ sub paste_0x0st {
alarm 1; # LWP::UserAgent::Paranoid kills alarm
return "error pasting: " . $response->status_line if not $response->is_success;
my $result = $response->content;
$result =~ s/^\s+//;
$result =~ s/\s+$//;
return $result;
}
sub paste_ixio {
my ($self, $text) = @_;
my $ua = LWP::UserAgent::Paranoid->new(request_timeout => 10);
push @{$ua->requests_redirectable}, 'POST';
my %post = ('f:1' => $text);
my $response = $ua->post("http://ix.io", \%post);
alarm 1; # LWP::UserAgent::Paranoid kills alarm
return "error pasting: " . $response->status_line if not $response->is_success;
my $result = $response->content;
return $result;
}