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__
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
