From efd4ebd5afc7c3bbda2b87fbefafe776c949e6b5 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sun, 28 Mar 2010 14:34:43 +0000
Subject: [PATCH] Testing codepad.pl

---
 modules/codepad.pl | 67 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100755 modules/codepad.pl

diff --git a/modules/codepad.pl b/modules/codepad.pl
new file mode 100755
index 00000000..66e5cee5
--- /dev/null
+++ b/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";