#!/usr/local/bin/perl
#
# phpwrap.cgi: redirects a PHP query to an external server.
#
# Example using Server Side Includes:
# #!/usr/local/bin/perl
#
# phpwrap.cgi: redirects a PHP query to an external server.
#
# Example using Server Side Includes:
# #!/usr/local/bin/perl
#
# phpwrap.cgi: redirects a PHP query to an external server.
#
# Example using Server Side Includes:
# #!/usr/local/bin/perl
#
# phpwrap.cgi: redirects a PHP query to an external server.
#
# Example using Server Side Includes:
# #!/usr/local/bin/perl
#
# phpwrap.cgi: redirects a PHP query to an external server.
#
# Example using Server Side Includes:
# #!/usr/local/bin/perl
#
# phpwrap.cgi: redirects a PHP query to an external server.
#
# Example using Server Side Includes:
# #!/usr/local/bin/perl
#
# phpwrap.cgi: redirects a PHP query to an external server.
#
# Example using Server Side Includes:
# #!/usr/local/bin/perl
#
# phpwrap.cgi: redirects a PHP query to an external server.
#
# Example using Server Side Includes:
# #!/usr/local/bin/perl
#
# phpwrap.cgi: redirects a PHP query to an external server.
#
# Example using Server Side Includes:
# #!/usr/local/bin/perl
#
# phpwrap.cgi: redirects a PHP query to an external server.
#
# Example using Server Side Includes:
# #!/usr/local/bin/perl
#
# phpwrap.cgi: redirects a PHP query to an external server.
#
# Example using Server Side Includes:
# [an error occurred while processing this directive]
#
# (c) 2004 Giampiero Salvi
use strict;
use warnings;

use CGI qw/:standard :cgi/;
require HTTP::Request;
require LWP::UserAgent;

# read CGI argument
my $query=new CGI;
my $url = $query->param('url');
my @pars = $query->param();
my $par;
my $val;
my $qstring = "";
foreach $par (@pars) {
    if ($par ne "url") {
	$val = $query->param($par);
	$qstring .= "$par=$val&";
    }
}
# first two standard lines
print "Content-type: text/html\n";
print "\n";
# call the url
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => "$url?$qstring");
my $res = $ua->request($req);
if ( $res->is_success ) {
    print $res->content;
} else {
    print "Failed to GET $url: ", $res->status_line, "\n";
}

#
# (c) 2004 Giampiero Salvi
use strict;
use warnings;

use CGI qw/:standard :cgi/;
require HTTP::Request;
require LWP::UserAgent;

# read CGI argument
my $query=new CGI;
my $url = $query->param('url');
my @pars = $query->param();
my $par;
my $val;
my $qstring = "";
foreach $par (@pars) {
    if ($par ne "url") {
	$val = $query->param($par);
	$qstring .= "$par=$val&";
    }
}
# first two standard lines
print "Content-type: text/html\n";
print "\n";
# call the url
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => "$url?$qstring");
my $res = $ua->request($req);
if ( $res->is_success ) {
    print $res->content;
} else {
    print "Failed to GET $url: ", $res->status_line, "\n";
}

#
# (c) 2004 Giampiero Salvi
use strict;
use warnings;

use CGI qw/:standard :cgi/;
require HTTP::Request;
require LWP::UserAgent;

# read CGI argument
my $query=new CGI;
my $url = $query->param('url');
my @pars = $query->param();
my $par;
my $val;
my $qstring = "";
foreach $par (@pars) {
    if ($par ne "url") {
	$val = $query->param($par);
	$qstring .= "$par=$val&";
    }
}
# first two standard lines
print "Content-type: text/html\n";
print "\n";
# call the url
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => "$url?$qstring");
my $res = $ua->request($req);
if ( $res->is_success ) {
    print $res->content;
} else {
    print "Failed to GET $url: ", $res->status_line, "\n";
}

#
# (c) 2004 Giampiero Salvi
use strict;
use warnings;

use CGI qw/:standard :cgi/;
require HTTP::Request;
require LWP::UserAgent;

# read CGI argument
my $query=new CGI;
my $url = $query->param('url');
my @pars = $query->param();
my $par;
my $val;
my $qstring = "";
foreach $par (@pars) {
    if ($par ne "url") {
	$val = $query->param($par);
	$qstring .= "$par=$val&";
    }
}
# first two standard lines
print "Content-type: text/html\n";
print "\n";
# call the url
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => "$url?$qstring");
my $res = $ua->request($req);
if ( $res->is_success ) {
    print $res->content;
} else {
    print "Failed to GET $url: ", $res->status_line, "\n";
}

#
# (c) 2004 Giampiero Salvi
use strict;
use warnings;

use CGI qw/:standard :cgi/;
require HTTP::Request;
require LWP::UserAgent;

# read CGI argument
my $query=new CGI;
my $url = $query->param('url');
my @pars = $query->param();
my $par;
my $val;
my $qstring = "";
foreach $par (@pars) {
    if ($par ne "url") {
	$val = $query->param($par);
	$qstring .= "$par=$val&";
    }
}
# first two standard lines
print "Content-type: text/html\n";
print "\n";
# call the url
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => "$url?$qstring");
my $res = $ua->request($req);
if ( $res->is_success ) {
    print $res->content;
} else {
    print "Failed to GET $url: ", $res->status_line, "\n";
}

#
# (c) 2004 Giampiero Salvi
use strict;
use warnings;

use CGI qw/:standard :cgi/;
require HTTP::Request;
require LWP::UserAgent;

# read CGI argument
my $query=new CGI;
my $url = $query->param('url');
my @pars = $query->param();
my $par;
my $val;
my $qstring = "";
foreach $par (@pars) {
    if ($par ne "url") {
	$val = $query->param($par);
	$qstring .= "$par=$val&";
    }
}
# first two standard lines
print "Content-type: text/html\n";
print "\n";
# call the url
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => "$url?$qstring");
my $res = $ua->request($req);
if ( $res->is_success ) {
    print $res->content;
} else {
    print "Failed to GET $url: ", $res->status_line, "\n";
}

#
# (c) 2004 Giampiero Salvi
use strict;
use warnings;

use CGI qw/:standard :cgi/;
require HTTP::Request;
require LWP::UserAgent;

# read CGI argument
my $query=new CGI;
my $url = $query->param('url');
my @pars = $query->param();
my $par;
my $val;
my $qstring = "";
foreach $par (@pars) {
    if ($par ne "url") {
	$val = $query->param($par);
	$qstring .= "$par=$val&";
    }
}
# first two standard lines
print "Content-type: text/html\n";
print "\n";
# call the url
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => "$url?$qstring");
my $res = $ua->request($req);
if ( $res->is_success ) {
    print $res->content;
} else {
    print "Failed to GET $url: ", $res->status_line, "\n";
}

#
# (c) 2004 Giampiero Salvi
use strict;
use warnings;

use CGI qw/:standard :cgi/;
require HTTP::Request;
require LWP::UserAgent;

# read CGI argument
my $query=new CGI;
my $url = $query->param('url');
my @pars = $query->param();
my $par;
my $val;
my $qstring = "";
foreach $par (@pars) {
    if ($par ne "url") {
	$val = $query->param($par);
	$qstring .= "$par=$val&";
    }
}
# first two standard lines
print "Content-type: text/html\n";
print "\n";
# call the url
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => "$url?$qstring");
my $res = $ua->request($req);
if ( $res->is_success ) {
    print $res->content;
} else {
    print "Failed to GET $url: ", $res->status_line, "\n";
}

#
# (c) 2004 Giampiero Salvi
use strict;
use warnings;

use CGI qw/:standard :cgi/;
require HTTP::Request;
require LWP::UserAgent;

# read CGI argument
my $query=new CGI;
my $url = $query->param('url');
my @pars = $query->param();
my $par;
my $val;
my $qstring = "";
foreach $par (@pars) {
    if ($par ne "url") {
	$val = $query->param($par);
	$qstring .= "$par=$val&";
    }
}
# first two standard lines
print "Content-type: text/html\n";
print "\n";
# call the url
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => "$url?$qstring");
my $res = $ua->request($req);
if ( $res->is_success ) {
    print $res->content;
} else {
    print "Failed to GET $url: ", $res->status_line, "\n";
}

#
# (c) 2004 Giampiero Salvi
use strict;
use warnings;

use CGI qw/:standard :cgi/;
require HTTP::Request;
require LWP::UserAgent;

# read CGI argument
my $query=new CGI;
my $url = $query->param('url');
my @pars = $query->param();
my $par;
my $val;
my $qstring = "";
foreach $par (@pars) {
    if ($par ne "url") {
	$val = $query->param($par);
	$qstring .= "$par=$val&";
    }
}
# first two standard lines
print "Content-type: text/html\n";
print "\n";
# call the url
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => "$url?$qstring");
my $res = $ua->request($req);
if ( $res->is_success ) {
    print $res->content;
} else {
    print "Failed to GET $url: ", $res->status_line, "\n";
}

#
# (c) 2004 Giampiero Salvi
use strict;
use warnings;

use CGI qw/:standard :cgi/;
require HTTP::Request;
require LWP::UserAgent;

# read CGI argument
my $query=new CGI;
my $url = $query->param('url');
my @pars = $query->param();
my $par;
my $val;
my $qstring = "";
foreach $par (@pars) {
    if ($par ne "url") {
	$val = $query->param($par);
	$qstring .= "$par=$val&";
    }
}
# first two standard lines
print "Content-type: text/html\n";
print "\n";
# call the url
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => "$url?$qstring");
my $res = $ua->request($req);
if ( $res->is_success ) {
    print $res->content;
} else {
    print "Failed to GET $url: ", $res->status_line, "\n";
}