Testing codepad.pl

modules/codepad.pl

@@ -0,0 +1,67 @@
+#!/usr/bin/perl
+
+# Initial rough-draft prototype proof of concept
+# Once working, need to refactor and polish.
+
+use warnings;
+use strict;
+
+use LWP::UserAgent;
+use URI::Escape;
+use HTML::Entities;
+use HTML::Parse;
+use HTML::FormatText;
+
+if($#ARGV <= 0) {
+  print "Usage: $0 <nick> <code>\n";
+  exit 0;
+}
+
+my $nick = shift @ARGV;
+my $code = join ' ', @ARGV;
+
+my $lang = "C";
+$lang = $1 if $code =~ s/-lang=([^\b\s]+)//i;
+
+my $ua = LWP::UserAgent->new();
+
+$ua->agent("Mozilla/5.0");
+push @{ $ua->requests_redirectable }, 'POST';
+
+if(not $code =~ m/\w+ main\s?\([^)]+\)\s?{/) {
+  $code = "int main(void) { $code ; return 0; }";
+}
+
+my $escaped_code = uri_escape($code, "\0-\377");
+
+my %post = ( 'lang' => $lang, 'code' => $code, 'private' => 'True', 'run' => 'True', 'submit' => 'Submit' );
+
+my $response = $ua->post("http://codepad.org", \%post);
+
+if(not $response->is_success) {
+  print "There was an error compiling the code.\n";
+  die $response->status_line;
+}
+
+my $text = $response->decoded_content;
+my $redirect = $response->request->uri;
+
+my $output;
+
+$text =~ s/<a style="" name="output-line-\d+">\d+<\/a>//g;
+
+if($text =~ /<span class="heading">Output:<\/span>.+?<div class="code">(.*)<\/div>.+?<\/table>/si) {
+  $output = "$1";
+} else {
+  $output = "No output.";
+}
+
+$output = decode_entities($output);
+$output = HTML::FormatText->new->format(parse_html($output));
+
+$output =~ s/[\n\r]/ /g;
+$output =~ s/\s+/ /g;
+$output =~ s/^\s+//g;
+$output =~ s/\s+$//g;
+
+print "$nick: $output\n";