qpsmtpd/sme8/0012-fix-copy-paste-error-in-auth_flat_file.patch

From 8b892c33ad456bf8f422b77292d0e288e5994643 Mon Sep 17 00:00:00 2001
From: Matt Simerson <matt@tnpi.net>
Date: Tue, 11 May 2010 01:16:54 -0400
Subject: fix copy/paste error in auth_flat_file

correct copy/paste error, where auth_flat_file methods were named authsql in auth_flat plugin

Signed-off-by: Robert <rspier@pobox.com>
---
 plugins/auth/auth_flat_file        |    4 ++--
 t/plugin_tests/auth/auth_flat_file |    6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/plugins/auth/auth_flat_file b/plugins/auth/auth_flat_file
index 6a82342..32f2512 100644
--- a/plugins/auth/auth_flat_file
+++ b/plugins/auth/auth_flat_file
@@ -35,10 +35,10 @@ use Digest::HMAC_MD5 qw(hmac_md5_hex);
 sub register {
     my ( $self, $qp ) = @_;
 
-    $self->register_hook("auth-cram-md5", "authsql");
+    $self->register_hook("auth-cram-md5", "auth_flat_file");
 }
 
-sub authsql {
+sub auth_flat_file {
     my ( $self, $transaction, $method, $user, $passClear, $passHash, $ticket ) =
       @_;
 
diff --git a/t/plugin_tests/auth/auth_flat_file b/t/plugin_tests/auth/auth_flat_file
index 7f36f23..c4218bd 100644
--- a/t/plugin_tests/auth/auth_flat_file
+++ b/t/plugin_tests/auth/auth_flat_file
@@ -2,7 +2,7 @@
 
 sub register_tests {
     my $self = shift;
-    $self->register_test("test_authsql", 3);
+    $self->register_test("test_auth_flat_file", 3);
 }
 
 my @u_list = qw ( good bad none );
@@ -12,13 +12,13 @@ my %u_data = (
              none => [ 'none@example.com', DECLINED, '' ],
              );
 
-sub test_authsql {
+sub test_auth_flat_file {
     my $self = shift;
     my ($tran, $ret, $note, $u, $r, $p, $a );
     $tran = $self->qp->transaction;
     for $u ( @u_list ) {
        ( $a,$r,$p ) = @{$u_data{$u}};
-       ($ret, $note) = $self->authsql($tran,'CRAMMD5',$a,$p);
+       ($ret, $note) = $self->auth_flat_file($tran,'CRAMMD5',$a,$p);
        defined $note or $note='No-Message';
        is ($ret, $r, $note);
        # - for debugging.
-- 
1.7.2.2

1	slords	1.1	From 8b892c33ad456bf8f422b77292d0e288e5994643 Mon Sep 17 00:00:00 2001
2			From: Matt Simerson <matt@tnpi.net>
3			Date: Tue, 11 May 2010 01:16:54 -0400
4			Subject: fix copy/paste error in auth_flat_file
5
6			correct copy/paste error, where auth_flat_file methods were named authsql in auth_flat plugin
7
8			Signed-off-by: Robert <rspier@pobox.com>
9			---
10			plugins/auth/auth_flat_file \| 4 ++--
11			t/plugin_tests/auth/auth_flat_file \| 6 +++---
12			2 files changed, 5 insertions(+), 5 deletions(-)
13
14			diff --git a/plugins/auth/auth_flat_file b/plugins/auth/auth_flat_file
15			index 6a82342..32f2512 100644
16			--- a/plugins/auth/auth_flat_file
17			+++ b/plugins/auth/auth_flat_file
18			@@ -35,10 +35,10 @@ use Digest::HMAC_MD5 qw(hmac_md5_hex);
19			sub register {
20			my ( $self, $qp ) = @_;
21
22			- $self->register_hook("auth-cram-md5", "authsql");
23			+ $self->register_hook("auth-cram-md5", "auth_flat_file");
24			}
25
26			-sub authsql {
27			+sub auth_flat_file {
28			my ( $self, $transaction, $method, $user, $passClear, $passHash, $ticket ) =
29			@_;
30
31			diff --git a/t/plugin_tests/auth/auth_flat_file b/t/plugin_tests/auth/auth_flat_file
32			index 7f36f23..c4218bd 100644
33			--- a/t/plugin_tests/auth/auth_flat_file
34			+++ b/t/plugin_tests/auth/auth_flat_file
35			@@ -2,7 +2,7 @@
36
37			sub register_tests {
38			my $self = shift;
39			- $self->register_test("test_authsql", 3);
40			+ $self->register_test("test_auth_flat_file", 3);
41			}
42
43			my @u_list = qw ( good bad none );
44			@@ -12,13 +12,13 @@ my %u_data = (
45			none => [ 'none@example.com', DECLINED, '' ],
46			);
47
48			-sub test_authsql {
49			+sub test_auth_flat_file {
50			my $self = shift;
51			my ($tran, $ret, $note, $u, $r, $p, $a );
52			$tran = $self->qp->transaction;
53			for $u ( @u_list ) {
54			( $a,$r,$p ) = @{$u_data{$u}};
55			- ($ret, $note) = $self->authsql($tran,'CRAMMD5',$a,$p);
56			+ ($ret, $note) = $self->auth_flat_file($tran,'CRAMMD5',$a,$p);
57			defined $note or $note='No-Message';
58			is ($ret, $r, $note);
59			# - for debugging.
60			--
61			1.7.2.2
62