[maildropl] exiting foreach loop?

[<ri...@am...>]

Hi,

I'm trying to get the first IP of received headers which is not of the
form 192. or 127.

So I have this foreach loop:

foreach /^Received: .*!\(.*\[.*\]\)!.*/
{
        if ($MATCH2 !~ /^192/ && $MATCH2 !~ /^127/)
        {
            $RECEIVED_IP = $MATCH2
        }
}

However, I need to be able to exit the foreach loop once I've set
$RECEIVED_IP. Is there a simple way, or must I introduce something else
into the if and let the loop continue?


Another question... I'm trying to generate a unique identifier for a
message. Typically I do that in perl with something like taking the
current time and appending the PID of the program to it. But I can't do
that within maildrop, unless I can somehow retrieve its PID or grab some
other unique value. Does anyone have any suggestion how I could generate
a unique id from within maildrop?

Thanks
Ricardo