GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-20 02:49:49 +01:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Pragmatic Software 2021-02-07 13:45:37 -08:00
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) = @_; my ($self, %conf) = @_;
$self->{paste_sites} = [ $self->{paste_sites} = [
sub { $self->paste_ixio(@_) }, sub { $self->paste_0x0st(@_) },
]; ];
$self->{current_site} = 0; $self->{current_site} = 0;
@ -54,13 +54,15 @@ sub paste {
return $result; return $result;
} }
sub paste_ixio { sub paste_0x0st {
my ($self, $text) = @_; my ($self, $text) = @_;
my $ua = LWP::UserAgent::Paranoid->new(request_timeout => 10); my $ua = LWP::UserAgent::Paranoid->new(request_timeout => 10);
$ua->agent("Mozilla/5.0");
push @{$ua->requests_redirectable}, 'POST'; push @{$ua->requests_redirectable}, 'POST';
my %post = ('f:1' => $text); my $response = $ua->post(
my $response = $ua->post("http://ix.io", \%post); "https://0x0.st",
[ file => [ undef, "file", Content => $text ] ],
Content_Type => 'form-data'
);
alarm 1; # LWP::UserAgent::Paranoid kills alarm alarm 1; # LWP::UserAgent::Paranoid kills alarm
return "error pasting: " . $response->status_line if not $response->is_success; return "error pasting: " . $response->status_line if not $response->is_success;
my $result = $response->content; my $result = $response->content;