cgi-bin/sop_proxy.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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');