Personally, I like the remote_host() command, (which you can get from reading the CGI documentation):

use strict;
use warnings;

use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);

my $ipaddr = remote_host();
                                               
# Now log the address $ipaddr ...
[download]

use CGI::Carp qw(fatalsToBrowser);

One comment: Don't use fatalsToBrowser in a production environment. It could potentially provide an information leak. In production CGI::Carp is going to log to your web server's log files any spew that comes forth. The user just sees something went wrong without knowing what.

---

Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg

blue_cowdawg,

    Don't use fatalsToBrowser in a production environment.

Thanks; that is a good tip.

To date, all of my own CGI experience has been limited to a local network, where the consumers of my work are mostly other developers, so it's seemed natural to provide as much detail as possible.  But I've had in the back of my mind that it probably isn't what you'd want to do in a larger (ie. visible-to-the-outside) context.

I'm glad you gave that advice, which I'll remember in case I ever do happen to develop for a "production environment".

---

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

Is this a CGI application? CGI servers set $ENV{REMOTE_ADDR} to the IP address, and sometimes (configurable in Apache) set $ENV{REMOTE_HOST} to the reverse lookup of the IP address.

Where I'm stuck is that I will need to determine the ip address of the machine from which the login attempt failed.

On a non-production machine that you don't care about try the following very evil code:

#!/usr/bin/perl -w
use CGI qw/ :standard /;

my $cgi=new CGI;
print header,start_html;

print h1("Environment");
print table(
Tr(th("Environment Variable"),th("Value")),
map { Tr(td($_),td($ENV{$_})) } sort keys %ENV );
print hr;

print h1('CGI Varialbes');
print table (
Tr(th("parameter"),th("parameter value")),
map { Tr(td($_),td($cgi->param($_))) } sort $cgi->param ) ;

print end_html;
[download]

Of particular interest in your case is the following key and value that are found in the %ENV hash:

REMOTE_ADDR     68.37.227.52
[download]

Update: (GAH!) ikegami got his post out there before I hit "submit" Oh well, the code I put up there is good stuff anyway if you want to "play."

where employees evaluate departmental procedures ...logins are required ...

<sarcasm>Nothing like honest feedback, is there?</sarcasm>