Hi,
I committed my auth_vpopmaild plugin to my github fork [1].
I've also attached the patch against Ask's upstream master to this msg.
R.
[1] http://github.com/robinbowes/qpsmtpd
diff --git a/MANIFEST b/MANIFEST
index 930ddbf..34f353a 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -66,6 +66,7 @@ plugins/auth/auth_cvm_unix_local
plugins/auth/auth_flat_file
plugins/auth/auth_ldap_bind
plugins/auth/auth_vpopmail_sql
+plugins/auth/auth_vpopmaild
plugins/auth/authdeny
plugins/check_badmailfrom
plugins/check_badmailfromto
diff --git a/plugins/auth/auth_vpopmaild b/plugins/auth/auth_vpopmaild
new file mode 100644
index 0000000..e4ab940
--- /dev/null
+++ b/plugins/auth/auth_vpopmaild
@@ -0,0 +1,97 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use IO::Socket;
+use version; my $VERSION = qv('1.0.0');
+
+sub register {
+ my ($self, $qp, %args) = @_;
+
+ my %DEFAULT = (
+ host => q{localhost},
+ port => 89,
+ );
+
+ $self->{_vpopmaild_host} =
+ defined $args{host} ? $args{host} : $DEFAULT{host};
+ $self->{_vpopmaild_port} =
+ defined $args{port} ? $args{port} : $DEFAULT{port};
+
+ $self->register_hook('auth-plain', 'auth_vpopmaild');
+ $self->register_hook('auth-login', 'auth_vpopmaild');
+}
+
+sub auth_vpopmaild {
+ my ($self, $transaction, $method, $user, $passClear, $passHash, $ticket) =
+ @_;
+
+ # 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;
+
+ # Get server greeting (+OK)
+ my $connect_response = <$vpopmaild_socket>;
+ if (!$connect_response =~ /\+OK.*/) {
+ 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
+ if ($login_response =~ /\+OK.*/) {
+ return (OK, 'authcheckpassword');
+ }
+ else {
+ 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 LINKS
+
+[1] http://www.qmailwiki.org/Vpopmaild
+
+=head1 AUTHOR
+
+Robin Bowes <robin.bo...@yo61.com>
+
+=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
