[PATCH] SMTP-AUTH broken

[Markus Ullmann]

After tracing it down to rev 814-818, a friend of mine came up with this patch and it seems to make it work for me again. Maybe someone with deep qpsmtpd knowledge could take a look at it

Greetz
-Jokey



diff -Nur trunk.orig/lib/Qpsmtpd/SMTP.pm trunk/lib/Qpsmtpd/SMTP.pm
--- trunk.orig/lib/Qpsmtpd/SMTP.pm      2008-03-27 18:46:34.000000000 +0000
+++ trunk/lib/Qpsmtpd/SMTP.pm   2008-03-27 18:48:10.000000000 +0000
@@ -219,7 +219,7 @@
                         : ();  
 
     # Check for possible AUTH mechanisms
-HOOK: foreach my $hook ( keys %{$self->{hooks}} ) {
+HOOK: foreach my $hook ( keys %{$Qpsmtpd::hooks} ) {
         if ( $hook =~ m/^auth-?(.+)?$/ ) {
             if ( defined $1 ) {
                 $auth_mechanisms{uc($1)} = 1;
diff -Nur trunk.orig/lib/Qpsmtpd.pm trunk/lib/Qpsmtpd.pm
--- trunk.orig/lib/Qpsmtpd.pm   2008-03-27 18:46:34.000000000 +0000
+++ trunk/lib/Qpsmtpd.pm        2008-03-27 18:47:19.000000000 +0000
@@ -9,7 +9,7 @@
 
 $VERSION = "0.43rc1";
 
-my $hooks = {};
+our $hooks = {};
 my %defaults = (
                  me      => hostname,
                  timeout => 1200,
diff -Nur trunk.orig/plugins/tls trunk/plugins/tls
--- trunk.orig/plugins/tls      2008-03-27 18:46:33.000000000 +0000
+++ trunk/plugins/tls   2008-03-27 18:48:42.000000000 +0000
@@ -91,7 +91,7 @@
     $self->ssl_context($ssl_ctx);
     
     # Check for possible AUTH mechanisms
-HOOK: foreach my $hook ( keys %{$qp->{hooks}} ) {
+HOOK: foreach my $hook ( keys %{$Qpsmtpd::hooks} ) {
         no strict 'refs';
         if ( $hook =~ m/^auth-?(.+)?$/ ) {
             if ( defined $1 ) {

signature.asc
Description: OpenPGP digital signature