byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix auth and tls in light of globalised hooks

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@874 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2008-04-08 10:34:25 +00:00
parent ddc1b91964
commit d0d7412f22
3 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Qpsmtpd.pm
View File

@ -29,6 +29,8 @@ sub TRACE_LEVEL { $TraceLevel }; # leave for plugin compatibility
my $LOGGING_LOADED = 0; my $LOGGING_LOADED = 0;
sub hooks { $hooks; }
sub load_logging { sub load_logging {
# need to do this differently that other plugins so as to # need to do this differently that other plugins so as to
# not trigger logging activity # not trigger logging activity

2
lib/Qpsmtpd/SMTP.pm
View File

@ -219,7 +219,7 @@ sub ehlo_respond {
: (); : ();
# Check for possible AUTH mechanisms # Check for possible AUTH mechanisms
HOOK: foreach my $hook ( keys %{$self->{hooks}} ) { HOOK: foreach my $hook ( keys %{$self->hooks} ) {
if ( $hook =~ m/^auth-?(.+)?$/ ) { if ( $hook =~ m/^auth-?(.+)?$/ ) {
if ( defined $1 ) { if ( defined $1 ) {
$auth_mechanisms{uc($1)} = 1; $auth_mechanisms{uc($1)} = 1;

2
plugins/tls
View File

@ -91,7 +91,7 @@ sub init {
$self->ssl_context($ssl_ctx); $self->ssl_context($ssl_ctx);
# Check for possible AUTH mechanisms # Check for possible AUTH mechanisms
HOOK: foreach my $hook ( keys %{$qp->{hooks}} ) { HOOK: foreach my $hook ( keys %{$qp->hooks} ) {
no strict 'refs'; no strict 'refs';
if ( $hook =~ m/^auth-?(.+)?$/ ) { if ( $hook =~ m/^auth-?(.+)?$/ ) {
if ( defined $1 ) { if ( defined $1 ) {