qpsmtpd/sme9/0010-new-plugin-auth_vpopmaild.patch

From febdb001c684b3b9437fe4425e3f70785de9ba73 Mon Sep 17 00:00:00 2001
From: Robin Bowes <robin-lists@robinbowes.com>
Date: Sat, 8 May 2010 18:25:08 +0100
Subject: new plugin auth_vpopmaild

Signed-off-by: Robert <rspier@pobox.com>
---
 MANIFEST                    |    1 +
 plugins/auth/auth_vpopmaild |   97 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 98 insertions(+), 0 deletions(-)
 create mode 100644 plugins/auth/auth_vpopmaild

diff --git a/MANIFEST b/MANIFEST
index 9d5912a..7ae1b14 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -67,6 +67,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.bowes@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
-- 
1.7.2.2

1	slords	1.1	From febdb001c684b3b9437fe4425e3f70785de9ba73 Mon Sep 17 00:00:00 2001
2			From: Robin Bowes <robin-lists@robinbowes.com>
3			Date: Sat, 8 May 2010 18:25:08 +0100
4			Subject: new plugin auth_vpopmaild
5
6			Signed-off-by: Robert <rspier@pobox.com>
7			---
8			MANIFEST \| 1 +
9			plugins/auth/auth_vpopmaild \| 97 +++++++++++++++++++++++++++++++++++++++++++
10			2 files changed, 98 insertions(+), 0 deletions(-)
11			create mode 100644 plugins/auth/auth_vpopmaild
12
13			diff --git a/MANIFEST b/MANIFEST
14			index 9d5912a..7ae1b14 100644
15			--- a/MANIFEST
16			+++ b/MANIFEST
17			@@ -67,6 +67,7 @@ plugins/auth/auth_cvm_unix_local
18			plugins/auth/auth_flat_file
19			plugins/auth/auth_ldap_bind
20			plugins/auth/auth_vpopmail_sql
21			+plugins/auth/auth_vpopmaild
22			plugins/auth/authdeny
23			plugins/check_badmailfrom
24			plugins/check_badmailfromto
25			diff --git a/plugins/auth/auth_vpopmaild b/plugins/auth/auth_vpopmaild
26			new file mode 100644
27			index 0000000..e4ab940
28			--- /dev/null
29			+++ b/plugins/auth/auth_vpopmaild
30			@@ -0,0 +1,97 @@
31			+#!/usr/bin/env perl
32			+
33			+use strict;
34			+use warnings;
35			+use IO::Socket;
36			+use version; my $VERSION = qv('1.0.0');
37			+
38			+sub register {
39			+ my ($self, $qp, %args) = @_;
40			+
41			+ my %DEFAULT = (
42			+ host => q{localhost},
43			+ port => 89,
44			+ );
45			+
46			+ $self->{_vpopmaild_host} =
47			+ defined $args{host} ? $args{host} : $DEFAULT{host};
48			+ $self->{_vpopmaild_port} =
49			+ defined $args{port} ? $args{port} : $DEFAULT{port};
50			+
51			+ $self->register_hook('auth-plain', 'auth_vpopmaild');
52			+ $self->register_hook('auth-login', 'auth_vpopmaild');
53			+}
54			+
55			+sub auth_vpopmaild {
56			+ my ($self, $transaction, $method, $user, $passClear, $passHash, $ticket) =
57			+ @_;
58			+
59			+ # create socket
60			+ my $vpopmaild_socket =
61			+ IO::Socket::INET->new(
62			+ PeerAddr => $self->{_vpopmaild_host},
63			+ PeerPort => $self->{_vpopmaild_port},
64			+ Proto => 'tcp',
65			+ Type => SOCK_STREAM
66			+ ) or return DECLINED;
67			+
68			+ # Get server greeting (+OK)
69			+ my $connect_response = <$vpopmaild_socket>;
70			+ if (!$connect_response =~ /\+OK.*/) {
71			+ return DECLINED;
72			+ }
73			+
74			+ # send login details
75			+ print $vpopmaild_socket "login $user $passClear\n\r";
76			+
77			+ # get response from server
78			+ my $login_response = <$vpopmaild_socket>;
79			+
80			+ close($vpopmaild_socket);
81			+
82			+ # check for successful login
83			+ if ($login_response =~ /\+OK.*/) {
84			+ return (OK, 'authcheckpassword');
85			+ }
86			+ else {
87			+ return DECLINED;
88			+ }
89			+}
90			+
91			+__END__
92			+
93			+=head1 NAME
94			+
95			+auth_vpopmaild - Authenticate to vpopmaild
96			+
97			+=head1 DESCRIPTION
98			+
99			+Authenticates the user against against vpopmaild [1] daemon.
100			+
101			+=head1 CONFIGURATION
102			+
103			+Add a line to C<config/plugins> as follows:
104			+
105			+auth_vpopmaild
106			+
107			+By default, the plugin connects to localhot on port 89. If your vpopmaild
108			+daemon is running on a different host or port, specify as follows:
109			+
110			+auth_vpopmaild host [host] port [port]
111			+
112			+=head1 LINKS
113			+
114			+[1] http://www.qmailwiki.org/Vpopmaild
115			+
116			+=head1 AUTHOR
117			+
118			+Robin Bowes <robin.bowes@yo61.com>
119			+
120			+=head1 COPYRIGHT AND LICENSE
121			+
122			+Copyright (c) 2010 Robin Bowes
123			+
124			+This plugin is licensed under the same terms as the qpsmtpd package itself.
125			+Please see the LICENSE file included with qpsmtpd for details.
126			+
127			+=cut
128			--
129			1.7.2.2
130