Browse Source

Log exact failure reason.

master
Dianne Skoll 4 months ago
parent
commit
8a09ba58c9
Signed by: dianne
GPG Key ID: 685A5A5E511D30E2
  1. 4
      perl/lib/Mailmunge/Test/Rspamd.pm

4
perl/lib/Mailmunge/Test/Rspamd.pm

@ -33,7 +33,7 @@ sub rspamd_check @@ -33,7 +33,7 @@ sub rspamd_check
}
if (!$ans) {
return { response => Mailmunge::Response->TEMPFAIL(message => 'Calling rspamd failed') };
return { response => Mailmunge::Response->TEMPFAIL(message => 'Calling rspamd failed: ' . $@) };
}
# If we got back just a Mailmunge::Response, wrap it
@ -55,9 +55,11 @@ sub _rspamd_check_aux @@ -55,9 +55,11 @@ sub _rspamd_check_aux
# Send the request
$sock->print($headers);
print STDERR "Sent $headers\n";
$sock->print("\r\n");
my $buf;
while(read(IN, $buf, 4096)) {
print STDERR "Sent $buf\n";
$sock->print($buf);
}
close(IN);

Loading…
Cancel
Save