On Sat, Aug 19, 2000 at 11:53:44PM -0400, Russell Nelson wrote:
> 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;/;
> }
Aye... I was trying to avoid that as maildrop's string handling isn't
quite on perl's level... But I may just have to surrender to the
inevitable.
Thanks yet again,
Ben
--
Ben Beuchler [EMAIL PROTECTED]
MAILER-DAEMON (612) 321-9290 x101
Bitstream Underground www.bitstream.net
