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

compiler_vm: Replace dead paste sites

This commit is contained in:
Pragmatic Software 2018-03-12 13:33:14 -07:00
parent 552e08ec73
commit 030530b579
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
modules/compiler_vm/languages/_default.pm
View File

@ -224,10 +224,10 @@ sub show_output {
$pretty_code .= "$output\n"; $pretty_code .= "$output\n";
$pretty_code .= $output_closing_comment; $pretty_code .= $output_closing_comment;
my $uri = $self->paste_sprunge($pretty_code); my $uri = $self->paste_ixio($pretty_code);
if (not $uri =~ m/^http/) { if (not $uri =~ m/^http/) {
$uri = $self->paste_codepad($pretty_code); $uri = $self->paste_ptpb($pretty_code);
} }
print "$uri\n"; print "$uri\n";
@ -262,7 +262,7 @@ sub show_output {
close FILE; close FILE;
} }
sub paste_codepad { sub paste_ixio {
my $self = shift; my $self = shift;
my $text = join(' ', @_); my $text = join(' ', @_);
@ -271,18 +271,22 @@ sub paste_codepad {
my $ua = LWP::UserAgent->new(); my $ua = LWP::UserAgent->new();
$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 = ( 'lang' => 'C', 'code' => $text, 'private' => 'True', 'submit' => 'Submit' ); my %post = ('f:1' => $text);
my $response = $ua->post("http://codepad.org", \%post); my $response = $ua->post("http://ix.io", \%post);
if(not $response->is_success) { if(not $response->is_success) {
return $response->status_line; return "error pasting: " . $response->status_line;
} }
return $response->request->uri; my $result = $response->content;
$result =~ s/^\s+//;
$result =~ s/\s+$//;
return $result;
} }
sub paste_sprunge { sub paste_ptpb {
my $self = shift; my $self = shift;
my $text = join(' ', @_); my $text = join(' ', @_);
@ -291,21 +295,18 @@ sub paste_sprunge {
my $ua = LWP::UserAgent->new(); my $ua = LWP::UserAgent->new();
$ua->agent("Mozilla/5.0"); $ua->agent("Mozilla/5.0");
$ua->requests_redirectable([ ]); $ua->requests_redirectable([ ]);
$ua->timeout(10);
my %post = ( 'sprunge' => $text, 'submit' => 'Submit' ); my %post = ( 'c' => $text, 'submit' => 'Submit' );
my $response = $ua->post("http://sprunge.us", \%post); my $response = $ua->post("https://ptpb.pw/?u=1", \%post);
if(not $response->is_success) { if(not $response->is_success) {
return $response->status_line; return "error pasting: " . $response->status_line;
} }
my $result = $response->content; my $result = $response->content;
$result =~ s/^\s+//; $result =~ s/^\s+//;
$result =~ s/\s+$//;
my $lexer = $self->{sprunge_lexer};
($lexer) = $self->{sourcefile} =~ /\.(.*)$/ if not defined $lexer;
$result =~ s/\s+$/?$lexer/;
return $result; return $result;
} }