1 files changed, 18 insertions, 0 deletions

diff --git a/cgi-bin/sop_proxy.pl b/cgi-bin/sop_proxy.pl
new file mode 100755
index 0000000..4a3b370
--- /dev/null
+++ b/cgi-bin/sop_proxy.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+#
+# Perl Based Same Origin Proxy
+#
+
+$|=1;
+
+srand;
+use strict;
+
+use Apache::Request;
+use LWP::Simple;
+
+my $r = Apache::Request->new(Apache->request);
+$r->send_http_header('text/javascript');
+
+print get $r->param('site');