1 files changed, 28 insertions, 0 deletions

diff --git a/cgi-bin/sop_preview_proxy.pl b/cgi-bin/sop_preview_proxy.pl
new file mode 100755
index 0000000..0694e11
--- /dev/null
+++ b/cgi-bin/sop_preview_proxy.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+#
+# Perl Based Same Origin Proxy
+#
+
+$|=1;
+
+srand;
+use strict;
+
+use Apache::Request;
+use LWP::Simple;
+use LWP::UserAgent;
+
+my $r = Apache::Request->new(Apache->request);
+$r->send_http_header('text/javascript');
+
+my @url = split(/site=/,$r->parsed_uri()->unparse());
+
+my $browser = LWP::UserAgent->new;
+$browser->credentials(
+        'admin.santoprene.com:80',
+        'Admin',
+        'DESIGNER_SOP_USER' => 'dsop4edit'
+);
+
+print $browser->get($url[1])->content;