diff --git a/lib/exim_parser.pm b/lib/exim_parser.pm index bbed246..4b07ef7 100644 --- a/lib/exim_parser.pm +++ b/lib/exim_parser.pm @@ -99,7 +99,11 @@ sub parser { } elsif($string =~ m/ no host name found for IP address /) { $_ = $string; $reply = 'No hostname'; - $hostile = 0; + $hostile = 1; + PARSE: + m/\ ($re_host)/gcix && do { + $host = $1; + }; } elsif($string =~ m/unexpected disconnection while reading SMTP command from/) { $_ = $string; $reply = 'SMTP error, disconnected';