qpsmtpd/sme7/qpsmtpd-0.32-peerhooks.patch

diff -Nur -x '*.orig' -x '*.rej' qpsmtpd-0.32/lib/Qpsmtpd/Plugin.pm mezzanine_patched_qpsmtpd-0.32/lib/Qpsmtpd/Plugin.pm
--- qpsmtpd-0.32/lib/Qpsmtpd/Plugin.pm  2006-02-26 05:22:16.000000000 -0700
+++ mezzanine_patched_qpsmtpd-0.32/lib/Qpsmtpd/Plugin.pm        2007-01-11 20:20:14.000000000 -0700
@@ -4,8 +4,8 @@
 
 our @hooks = qw(
     logging config  queue  data  data_post  quit  rcpt  mail  ehlo  helo
-    auth auth-plain auth-login auth-cram-md5
-    connect  reset_transaction  unrecognized_command  disconnect
+    auth auth-plain auth-login auth-cram-md5  valid_auth
+    set_hooks  connect  reset_transaction  unrecognized_command  disconnect
     deny ok pre-connection post-connection
 );
 our %hooks = map { $_ => 1 } @hooks;
diff -Nur -x '*.orig' -x '*.rej' qpsmtpd-0.32/lib/Qpsmtpd/SMTP.pm mezzanine_patched_qpsmtpd-0.32/lib/Qpsmtpd/SMTP.pm
--- qpsmtpd-0.32/lib/Qpsmtpd/SMTP.pm    2007-01-11 20:22:05.000000000 -0700
+++ mezzanine_patched_qpsmtpd-0.32/lib/Qpsmtpd/SMTP.pm  2007-01-11 20:21:14.000000000 -0700
@@ -91,6 +91,11 @@
     my $self = shift;
     # this should maybe be called something else than "connect", see
     # lib/Qpsmtpd/TcpServer.pm for more confusion.
+    my ($rc, $msg) = $self->run_hooks("set_hooks");
+    if ($rc == DENY) {
+      $self->respond(550, ($msg || 'Connection from you denied, bye bye.'));
+      return $rc;
+    }
+    ($rc, $msg) = $self->run_hooks("connect");
-    my ($rc, $msg) = $self->run_hooks("connect");
     if ($rc == DENY) {
       $self->respond(550, ($msg || 'Connection from you denied, bye bye.'));
@@ -235,7 +241,9 @@
     return $self->respond( 503, "AUTH not defined for HELO" )
       if ( $self->connection->hello eq "helo" );
 
-    return $self->{_auth} = Qpsmtpd::Auth::SASL( $self, $arg, @stuff );
+    $self->{_auth} = Qpsmtpd::Auth::SASL( $self, $arg, @stuff );
+    $self->run_hooks("valid_auth") if $self->{_auth} == OK;
+    return $self->{_auth};
 }
 
 sub mail {
1	diff -Nur -x '.orig' -x '.rej' qpsmtpd-0.32/lib/Qpsmtpd/Plugin.pm mezzanine_patched_qpsmtpd-0.32/lib/Qpsmtpd/Plugin.pm
2	--- qpsmtpd-0.32/lib/Qpsmtpd/Plugin.pm 2006-02-26 05:22:16.000000000 -0700
3	+++ mezzanine_patched_qpsmtpd-0.32/lib/Qpsmtpd/Plugin.pm 2007-01-11 20:20:14.000000000 -0700
4	@@ -4,8 +4,8 @@
5
6	our @hooks = qw(
7	logging config queue data data_post quit rcpt mail ehlo helo
8	- auth auth-plain auth-login auth-cram-md5
9	- connect reset_transaction unrecognized_command disconnect
10	+ auth auth-plain auth-login auth-cram-md5 valid_auth
11	+ set_hooks connect reset_transaction unrecognized_command disconnect
12	deny ok pre-connection post-connection
13	);
14	our %hooks = map { $_ => 1 } @hooks;
15	diff -Nur -x '.orig' -x '.rej' qpsmtpd-0.32/lib/Qpsmtpd/SMTP.pm mezzanine_patched_qpsmtpd-0.32/lib/Qpsmtpd/SMTP.pm
16	--- qpsmtpd-0.32/lib/Qpsmtpd/SMTP.pm 2007-01-11 20:22:05.000000000 -0700
17	+++ mezzanine_patched_qpsmtpd-0.32/lib/Qpsmtpd/SMTP.pm 2007-01-11 20:21:14.000000000 -0700
18	@@ -91,6 +91,11 @@
19	my $self = shift;
20	# this should maybe be called something else than "connect", see
21	# lib/Qpsmtpd/TcpServer.pm for more confusion.
22	+ my ($rc, $msg) = $self->run_hooks("set_hooks");
23	+ if ($rc == DENY) {
24	+ $self->respond(550, ($msg \|\| 'Connection from you denied, bye bye.'));
25	+ return $rc;
26	+ }
27	+ ($rc, $msg) = $self->run_hooks("connect");
28	- my ($rc, $msg) = $self->run_hooks("connect");
29	if ($rc == DENY) {
30	$self->respond(550, ($msg \|\| 'Connection from you denied, bye bye.'));
31	@@ -235,7 +241,9 @@
32	return $self->respond( 503, "AUTH not defined for HELO" )
33	if ( $self->connection->hello eq "helo" );
34
35	- return $self->{_auth} = Qpsmtpd::Auth::SASL( $self, $arg, @stuff );
36	+ $self->{_auth} = Qpsmtpd::Auth::SASL( $self, $arg, @stuff );
37	+ $self->run_hooks("valid_auth") if $self->{_auth} == OK;
38	+ return $self->{_auth};
39	}
40
41	sub mail {