qpsmtpd/plugins/auth/auth_vpopmaild

104 lines
2.6 KiB
Plaintext
Raw Normal View History

#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
use version;
my $VERSION = qv('1.0.1');
sub register {
my ($self, $qp, %args) = @_;
$self->{_vpopmaild_host} = $args{host} || 'localhost';
$self->{_vpopmaild_port} = $args{port} || '89';
$self->register_hook('auth-plain', 'auth_vpopmaild');
$self->register_hook('auth-login', 'auth_vpopmaild');
$self->register_hook('auth-cram-md5', 'auth_vpopmaild');
}
sub auth_vpopmaild {
my ($self, $transaction, $method, $user, $passClear, $passHash, $ticket) = @_;
use Qpsmtpd::Constants;
# create socket
my $vpopmaild_socket =
IO::Socket::INET->new(
PeerAddr => $self->{_vpopmaild_host},
PeerPort => $self->{_vpopmaild_port},
Proto => 'tcp',
Type => SOCK_STREAM
) or return DECLINED;
#$self->log(LOGINFO, "Attempting $method auth via vpopmaild");
# Get server greeting (+OK)
my $connect_response = <$vpopmaild_socket>;
if ( $connect_response !~ /^\+OK/ ) {
$self->log(LOGINFO, "Failed to receive vpopmaild connection response: $connect_response");
close($vpopmaild_socket);
return DECLINED;
};
# send login details
print $vpopmaild_socket "login $user $passClear\n\r";
# get response from server
my $login_response = <$vpopmaild_socket>;
close($vpopmaild_socket);
# check for successful login (single line (+OK) or multiline (+OK+))
return (OK, 'auth_vpopmaild') if $login_response =~ /^\+OK/;
$self->log(LOGINFO, "Failed vpopmaild authentication response: $login_response");
return DECLINED;
}
__END__
=head1 NAME
auth_vpopmaild - Authenticate to vpopmaild
=head1 DESCRIPTION
Authenticates the user against against vpopmaild [1] daemon.
=head1 CONFIGURATION
Add a line to C<config/plugins> as follows:
auth_vpopmaild
By default, the plugin connects to localhot on port 89. If your vpopmaild
daemon is running on a different host or port, specify as follows:
auth_vpopmaild host [host] port [port]
=head1 SEE ALSO
For an overview of the vpopmail authentication plugins and their merits,
please read the VPOPMAIL section in doc/authentication.pod
=head1 LINKS
[1] http://www.qmailwiki.org/Vpopmaild
=head1 AUTHOR
Robin Bowes <robin.bowes@yo61.com>
Matt Simerson (4/2012: added CRAM-MD5 support, updated response parsing)
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2010 Robin Bowes
This plugin is licensed under the same terms as the qpsmtpd package itself.
Please see the LICENSE file included with qpsmtpd for details.
=cut