}
}
elsif((($addr, $relay, $delay, $status, $toRmdr) = $logRmdr =~
- /to=<([^>]*)>, (?:orig_to=<[^>]*>, )?relay=([^,]+), delay=([^,]+), status=(\S+)(.*)$/o) >= 4)
+ /to=<([^>]*)>, (?:orig_to=<[^>]*>, )?relay=([^,]+), delay=([^,]+), (?:delays=[^,]+, )?(?:dsn=\d+\.\d+\.\d+, )?status=(\S+)(.*)$/o) >= 4)
{
if($opts{'m'} && $addr =~ /^(.*!)*([^!]+)!([^!@]+)@([^\.]+)$/o) {
sub said_string_trimmer {
my($trimmedString, $maxLen) = @_;
+ # If theres a "deferred ()" in the logfile.
+ if (not defined $trimmedString) { return "" };
+
while(length($trimmedString) > $maxLen) {
if($trimmedString =~ /^.* said: /o) {
$trimmedString =~ s/^.* said: //o;