Merge pull request #37 from tpoindessous/patch-1
Add the message id in log
This commit is contained in:
commit
941fac98ae
@ -73,7 +73,11 @@ sub hook_queue {
|
|||||||
or return (DECLINED, "Unable to queue message ($!)");
|
or return (DECLINED, "Unable to queue message ($!)");
|
||||||
}
|
}
|
||||||
$smtp->dataend() or return (DECLINED, "Unable to queue message ($!)");
|
$smtp->dataend() or return (DECLINED, "Unable to queue message ($!)");
|
||||||
|
my $qid = $smtp->message();
|
||||||
|
my @list = split(' ', $qid);
|
||||||
|
$qid = pop(@list);
|
||||||
|
|
||||||
$smtp->quit() or return (DECLINED, "Unable to queue message ($!)");
|
$smtp->quit() or return (DECLINED, "Unable to queue message ($!)");
|
||||||
$self->log(LOGINFO, "finished queueing");
|
$self->log(LOGINFO, "finished queueing");
|
||||||
return (OK, "Queued!");
|
return (OK, "queued as $qid");
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user