add pmg-smtp-filter ID to reply

[pmg-api.git] / src / PMG / SMTP.pm

diff --git a/src/PMG/SMTP.pm b/src/PMG/SMTP.pm
index 544d0a505d37052181fd8261141614e17e64c01a..68c833e39dc96aa73b0207da069d38a2ad9cbccb 100644 (file)
--- a/src/PMG/SMTP.pm
+++ b/src/PMG/SMTP.pm
@@ -161,7 +161,7 @@ sub loop {
                    my @reject_rec = grep { $qstat->{$_} eq 'blocked' } @rec;
 
                    if (scalar(@reject_rec) == scalar(@rec)) {
-                       $self->reply ("554 5.7.1 Rejected for policy reasons");
+                       $self->reply ("554 5.7.1 Rejected for policy reasons ($queueid)");
                        syslog('info', "reject mail $queueid");
                    } elsif ((scalar(@reject_rec) + scalar(@success_rec)) == scalar(@rec)) {
                        $self->reply ("250 2.5.0 OK ($queueid)");
@@ -170,7 +170,7 @@ sub loop {
                            generate_ndr($self->{from}, [ @reject_rec ], $dnsinfo->{fqdn}, $queueid) if scalar(@reject_rec);
                        }
                    } else {
-                       $self->reply ("451 4.4.0 detected undelivered mail");
+                       $self->reply ("451 4.4.0 detected undelivered mail ($queueid)");
                    }
                }
            }