GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-04-27 18:27:51 +02:00
Code Issues Projects Releases Wiki Activity

WebPaste: remove ptpb.pw

Browse Source
This commit is contained in:
Pragmatic Software 2019-06-22 18:48:06 -07:00
parent ee33d9f5d6
commit 0f81e39276
1 changed files with 0 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
PBot/WebPaste.pm
View File

@ -35,7 +35,6 @@ sub initialize {
$self->{paste_sites} = [ $self->{paste_sites} = [
sub { $self->paste_ixio(@_) }, sub { $self->paste_ixio(@_) },
sub { $self->paste_ptpb(@_) },
]; ];
$self->{current_site} = 0; $self->{current_site} = 0;
@ -95,28 +94,4 @@ sub paste_ixio {
return $result; return $result;
} }
sub paste_ptpb {
my $self = shift;
my $text = join(' ', @_);
$text =~ s/(.{120})\s/$1\n/g;
my $ua = LWP::UserAgent->new();
$ua->agent("Mozilla/5.0");
$ua->requests_redirectable([ ]);
$ua->timeout(10);
my %post = ( 'c' => $text, 'submit' => 'Submit' );
my $response = $ua->post("https://ptpb.pw/?u=1", \%post);
if (not $response->is_success) {
return "error pasting: " . $response->status_line;
}
my $result = $response->content;
$result =~ s/^\s+//;
$result =~ s/\s+$//;
return $result;
}
1; 1;