#!/usr/bin/perl -w
use strict;
##use CGI;
use LWP;
sub main
{
# my $cgi = new CGI();
print STDOUT "Access-Control-Allow-Origin: *\n";
# print STDOUT "".$ENV{"QUERY_STRING"}."\n";
my $query_string = $ENV{"QUERY_STRING"};
if (defined $query_string) {
my $browser = LWP::UserAgent->new;
my $url = $query_string;
my $response = $browser->get($url);
if ($response->is_success) {
print STDOUT "Content-type:" . $response->content_type ."\n\n";
print STDOUT $response->content;
}
else {
# did not exist
print STDOUT "Status: 404 Not Found\n";
print STDOUT "Content-type:text/html\n\n";
print STDOUT "Error: Failed to retrieve $url\n";
}
}
else {
print STDOUT "Content-type:text/html\n\n";
print STDOUT "
Error: No GET arguments found in QUERY_STRING\n";
}
}
main();