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

Add authenticated method to base Qpsmtpd object.

Browse Source 
Add _auth field to PollServer.
Make sure that check_earlytalker works with PollServer.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@711 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2007-02-07 21:49:45 +00:00
parent bcbe814165
commit fea300ed2e
3 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/Qpsmtpd.pm
View File

@ -497,6 +497,11 @@ sub size_threshold {
return $Size_threshold; return $Size_threshold;
} }
sub authenticated {
my $self = shift;
return (defined $self->{_auth} ? $self->{_auth} : "" );
}
sub auth_user { sub auth_user {
my $self = shift; my $self = shift;
return (defined $self->{_auth_user} ? $self->{_auth_user} : "" ); return (defined $self->{_auth_user} ? $self->{_auth_user} : "" );

1
lib/Qpsmtpd/PollServer.pm
View File

@ -15,6 +15,7 @@ use fields qw(
hooks hooks
start_time start_time
cmd_timeout cmd_timeout
_auth
_auth_mechanism _auth_mechanism
_auth_state _auth_state
_auth_ticket _auth_ticket

2
plugins/check_earlytalker
View File

@ -66,7 +66,7 @@ sub register {
'defer-reject' => 0, 'defer-reject' => 0,
@args, @args,
}; };
if ($qp->{conn} && $qp->{conn}->isa('Apache2::Connection')) { if (exists $qp->{conn} && $qp->{conn}->isa('Apache2::Connection')) {
require APR::Const; require APR::Const;
APR::Const->import(qw(POLLIN SUCCESS)); APR::Const->import(qw(POLLIN SUCCESS));
$self->register_hook('connect', 'apr_connect_handler'); $self->register_hook('connect', 'apr_connect_handler');