in reply to SOAP::Lite - Finding callers IP
How 'bout some inspiration.
Please forgive all the forward slashing, I've got a hacked-up version of Perl <shrug>
Update:foxops shakes fist at Pardus
Please forgive all the forward slashing, I've got a hacked-up version of Perl <shrug>
#!c:/Perl/bin/Perl.exe ## ## printenv -- demo CGI program which just prints its environment ## print "Content-type: text/plain\n\n"; print "\<HTML\>\n"; print "\<HEAD\>\n"; print " \<TITLE\>Testies, Testies, 1-2-3\<\/TITLE\>\n"; print "\<\/HEAD\>\n"; print "\<BODY BGCOLOR\=\"\#c0c0c0\" TEXT\=\"\#000000\" LINK\=\"\#ff000 +0\" VLINK\=\"\#0F0000\"\>\n"; foreach $var (sort(keys(%ENV))) { $val = $ENV{$var}; $val =~ s|\n|\\n|g; $val =~ s|"|\\"|g; print "${var}=\"${val}\"\n"; } print "\<\/BODY\>\<\/HTML\>\n";
Update:foxops shakes fist at Pardus
|
---|
Replies are listed 'Best First'. | |
---|---|
(jeffa) Re: SOAP::Lite - Finding callers IP
by jeffa (Bishop) on Jan 23, 2003 at 14:54 UTC |
In Section
Seekers of Perl Wisdom