I did something for our site but did not push it too far yet. I think it might be interesting for you to use:
#!/usr/bin/perl
use strict;
use CGI();
use LWP::Simple;
my $in = new CGI;
####################################################################
# Enter the path and filename of the script here
####################################################################
my $HOME_URL = "http://www.mydomain.com/path/to/cgi";
####################################################################
# Enter your personal header here
####################################################################
my $HEADER =
qq~
<html>
<head>
</head>
<body>
<p>Your header</p>
~;
####################################################################
# Enter your personal footer here
####################################################################
my $FOOTER =
qq~
<p>Your footer</p>
</body>
</html>
~;
####################################################################
# Please do not make any changes here
####################################################################
my $g = $in->param('g') || undef;
my $url = "http://www.yourdomain.com/...mp;t=partner&d=1";
my $content = get($url);
$content =~ s/http:\/\/www.yourdomain.com\/page.cgi/$HOME_URL/g;
$content =~ s/&d=1//g;
$content =~ s/&t=partner//g;
print $in->header();
print qq~
$HEADER
$content
$FOOTER
~;
exit;
Code:
#!/usr/bin/perl
use strict;
use CGI();
use LWP::Simple;
my $in = new CGI;
####################################################################
# Enter the path and filename of the script here
####################################################################
my $HOME_URL = "http://www.mydomain.com/path/to/cgi";
####################################################################
# Enter your personal header here
####################################################################
my $HEADER =
qq~
<html>
<head>
</head>
<body>
<p>Your header</p>
~;
####################################################################
# Enter your personal footer here
####################################################################
my $FOOTER =
qq~
<p>Your footer</p>
</body>
</html>
~;
####################################################################
# Please do not make any changes here
####################################################################
my $g = $in->param('g') || undef;
my $url = "http://www.yourdomain.com/...mp;t=partner&d=1";
my $content = get($url);
$content =~ s/http:\/\/www.yourdomain.com\/page.cgi/$HOME_URL/g;
$content =~ s/&d=1//g;
$content =~ s/&t=partner//g;
print $in->header();
print qq~
$HEADER
$content
$FOOTER
~;
exit;
