You can grab a 'newer' version of verify_install.cgi from our Unsupport
directory in the Client Code Library:
http://www.opensrs.org/src/.src.shtml
Enjoy :)
Charles Daminato
OpenSRS Support Manager
[EMAIL PROTECTED]
On Wed, 16 Aug 2000, Doytchin Spiridonov wrote:
> hi
>
> i was asked to post here an improved script
> which detects the true ip of your virtual server.
> i'm too lazy to describe how it works :)
> (recursive cgi - nah nah :)
>
> regards,
> doytchin
>
>
> ---------------
>
> #!/usr/bin/perl
>
> # (c)2000 doytchin spiridonov
>
> use IO::Socket;
>
> $server = $ENV{'HTTP_HOST'};
> $port = $ENV{'SERVER_PORT'};
> $script = $ENV{'SCRIPT_NAME'};
> $address = $ENV{'REMOTE_ADDR'};
> $qs = $ENV{'QUERY_STRING'};
>
> print "Content-type: text/plain\n\n";
> if ($qs eq 'a') {
> print "A=$address\n";
> } else {
> print "Server: $server\r\nPort: $port\r\n";
> if ($s = IO::Socket::INET->new(Proto => "tcp",
> PeerAddr => $server, PeerPort => $port)) {
> $s->autoflush(1);
> print $s "GET $script?a HTTP/1.0\n\n";
> while (<$s>) {
> chomp;
> if (/^A=(.*)$/) { $ip = $1; }
> }
> print "IP: $ip\r\n";
> } else { print "Unable to connect!\r\n"; }
> }
>
>
>
