 |
Gunnar Hjalmarsson |
at Aug 22, 2007 at 6:45 am
|
⇧ | 
| |
Tony Heal wrote:
I want to run a cgi script from another server inside a local cgi page
A quick and dirty example:
#!/usr/bin/perl -T
use strict;
use warnings;
use LWP::Simple;
my ($content, $style) = getpage();
print <<HTML;
Content-type: text/html; charset=ISO-8859-1
<html>
<head>$style</head>
<body style="margin-top: 5em; background: black">
<table align="center" style="border: 3em solid red"><tr><td>
$content
</td></tr></table>
</body></html>
HTML
sub getpage {
my $domain = 'http://pace2020.com';
my $html = get $domain;
my ($style) = $html =~ /(<LINK.+?>)/;
$style =~ s/\Q../$domain/;
for ( $html ) {
s/<!DOCTYPE.+<body>//s;
s/<div style="width:760px.+<\/html>//s;
}
( $html, $style )
}
__END__
