just loop thru %ENV and print out all the keys and values. this will at
least tell you what's available.
<not tested>
while (my($key,$value)=each%ENV){
print $key, "=", $value, "\n";
}
</not tested>
> -----Original Message-----
> From: Steve Sotis [SMTP:[EMAIL PROTECTED]]
> Sent: 15/10/2000 9:31
> To: [EMAIL PROTECTED]
> Subject: Re: env vars
>
> Wait a minute.
>
> Isn't gethostbyname essentially the equivalent of $ENV{ 'REMOTE_HOST' }?
>
> Isn't gethostbyaddr essentially the equivalent of $ENV{ 'REMOTE_ADDR' }?
>
> If not, please *enlighten* me!
>
> If so, then the response didn't relate to my question.
>
> I need the *machine* name within the domain.
>
> Also, where are the $ENV variables documented?
>
>
> Steve
>
>
> >Date: Sat, 14 Oct 2000 13:21:49 -0700
> >From: "$Bill Luebkert" <[EMAIL PROTECTED]>
> >Organization: DBE Collectibles
> >X-Mailer: Mozilla 4.75 [en] (Win98; U)
> >X-Accept-Language: en,en-GB
> >To: Steve Sotis <[EMAIL PROTECTED]>
> >Subject: Re: env vars
> >
> >Steve Sotis wrote:
> > >
> > > I'm familiar with REMOTE_HOST and REMOTE_ADDR, isn't there a way to
> get the
> > > machine name as with a tracert, i.e. mymachine.mydomain.com?
> > >
> > > I can't find where environment vars are documented or listed as to
> which
> > > ones are available. Anyone know where?
> >
> >I use:
> >
> >sub lookup {
> > local ($_) = shift;
> > use Socket;
> >
> >if (/[^\d\.]/i) {
> >
> > (my $raddr = (gethostbyname ($_))[4] and
> > printf "$_ = %s\n", &inet_ntoa ($raddr)) or
> > print "Error on gethostbyname '$_': $^E\n";
> >} else {
> >
> > s/^0+//; s/\.0+/.0/g;
> > (my $host = gethostbyaddr (&inet_aton ($_), AF_INET) and
> > print "$_ = $host\n") or print "Error on gethostbyaddr '$_':
> > $^E\n";
> >}
> >
> >}
> >
> >
> >You do have timeouts to contend with though. Best to run it as a batch
> >job on your log files and get a cup of coffee. :)
> >
> >--
> > ,-/- __ _ _ $Bill Luebkert ICQ=14439852
> > (_/ / ) // // DBE Collectibles http://www.wgn.net/~dbe/
> > / ) /--< o // // Mailto:[EMAIL PROTECTED]
> http://dbecoll.webjump.com/
> >-/-' /___/_<_</_</_ http://www.freeyellow.com/members/dbecoll/
>
> _______________________________________________
> Perl-Win32-Web mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
