diff options
| author | Mike Crute <mcrute@gmail.com> | 2010-01-17 12:06:15 -0500 |
|---|---|---|
| committer | Mike Crute <mcrute@gmail.com> | 2010-01-17 12:06:15 -0500 |
| commit | 55974d21a824378b287e563bce4c32597060cfca (patch) | |
| tree | ff8426efe10ff98189fee26583f061fb08f19a50 /cgi-bin/sop_proxy.pl | |
| download | santoprene_designer_site-55974d21a824378b287e563bce4c32597060cfca.tar.bz2 santoprene_designer_site-55974d21a824378b287e563bce4c32597060cfca.tar.xz santoprene_designer_site-55974d21a824378b287e563bce4c32597060cfca.zip | |
Diffstat (limited to 'cgi-bin/sop_proxy.pl')
| -rwxr-xr-x | cgi-bin/sop_proxy.pl | 18 |
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 @@ | |||
| 1 | #!/usr/bin/perl | ||
| 2 | |||
| 3 | # | ||
| 4 | # Perl Based Same Origin Proxy | ||
| 5 | # | ||
| 6 | |||
| 7 | $|=1; | ||
| 8 | |||
| 9 | srand; | ||
| 10 | use strict; | ||
| 11 | |||
| 12 | use Apache::Request; | ||
| 13 | use LWP::Simple; | ||
| 14 | |||
| 15 | my $r = Apache::Request->new(Apache->request); | ||
| 16 | $r->send_http_header('text/javascript'); | ||
| 17 | |||
| 18 | print get $r->param('site'); | ||