elsif ( $elt =~ /^R\s[^<]*(<[^>]*>).*$/ ) { | elsif ( $elt =~ /^R\s[^<]*(<[^>]*>).*$/ ) { | ||||
push @rcpts, $1; | push @rcpts, $1; | ||||
} | } | ||||
elsif ( $elt =~ /^S (?:<([^>]+)>)?\s*S.*\[(.+)\]/ ) { | |||||
elsif ( $elt =~ /^S (?:<([^>]+)> )?(?:SMTP|HTTPU?|AIRSYNC|XIMSS) \[([0-9a-f.:]+)\]/ ) { | |||||
if ($1) { | if ($1) { | ||||
$user = $1; | $user = $1; | ||||
} | } |