[PATCH 1/2] domainkeys: only register hooks if Mail::DomainKeys is loadable
[email protected] (Matt Simerson) Mon, 21 May 2012 06:04:04 -0400
| Newsgroups | perl.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
---
plugins/domainkeys | 17 ++++++++++++++++-
1 file changed, 16 insertions(+), 1 deletion(-)
diff --git a/plugins/domainkeys b/plugins/domainkeys
index dfd4e8f..5f4b353 100644
--- a/plugins/domainkeys
+++ b/plugins/domainkeys
@@ -68,7 +68,22 @@ sub init {
};
}
-sub hook_data_post {
+sub register {
+ my $self = shift;
+
+ for my $m ( qw/ Mail::DomainKeys::Message Mail::DomainKeys::Policy / ) {
+ eval "use $m";
+ if ( $@ ) {
+ warn "skip: plugin disabled, could not load $m\n";
+ $self->log(LOGERROR, "skip: plugin disabled, is $m installed?");
+ return;
+ };
+ };
+
+ $self->register_hook('data_post', 'data_post_handler');
+};
+
+sub data_post_handler {
my ($self, $transaction) = @_;
if ( ! $transaction->header->get('DomainKey-Signature') ) {
--
1.7.9.6