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

Merge branch 'master' of github.com:pragma-/pbot

This commit is contained in:
Pragmatic Software 2021-02-07 13:45:37 -08:00
parent aff8a38f19 39abe32613
commit 46866bbad6
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
PBot/WebPaste.pm
View File

@ -23,7 +23,7 @@ sub initialize {
my ($self, %conf) = @_;
$self->{paste_sites} = [
sub { $self->paste_ixio(@_) },
sub { $self->paste_0x0st(@_) },
];
$self->{current_site} = 0;
@ -54,13 +54,15 @@ sub paste {
return $result;
}
sub paste_ixio {
sub paste_0x0st {
my ($self, $text) = @_;
my $ua = LWP::UserAgent::Paranoid->new(request_timeout => 10);
$ua->agent("Mozilla/5.0");
push @{$ua->requests_redirectable}, 'POST';
my %post = ('f:1' => $text);
my $response = $ua->post("http://ix.io", \%post);
my $response = $ua->post(
"https://0x0.st",
[ file => [ undef, "file", Content => $text ] ],
Content_Type => 'form-data'
);
alarm 1; # LWP::UserAgent::Paranoid kills alarm
return "error pasting: " . $response->status_line if not $response->is_success;
my $result = $response->content;