Ben Beuchler writes:
> It appears that $TCPREMOTEIP is only available to qmail-smtpd. It is no
> longer in the environment during final message delivery.
No, but you can get the same information from parsing the Received:
headers:
while(<>) {
last if /^$/;
$address = $2 if /^Received:.*\((.*\@)?(\d+\.\d+\.\d+\.\d+)\)/;
$ip = $address if /^ by (192\.203\.178\.\d+|\w+.crynwr.com) with SMTP;/;
}
--
-russ nelson <[EMAIL PROTECTED]> http://russnelson.com | If you think
Crynwr sells support for free software | PGPok | health care is expensive now
521 Pleasant Valley Rd. | +1 315 268 1925 voice | now, wait until you see
Potsdam, NY 13676-3213 | +1 315 268 9201 FAX | what it costs when it's free.