| 1 |
stephdl |
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 |
|
|
|
Parent Directory
| 
Revision Log
| 
Revision Graph
