Applied as 8b892c33ad456bf8f422b77292d0e288e5994643
Matt Simerson wrote:
>
> correct copy/paste error, where auth_flat_file methods were named authsql in
> auth_flat plugin
> ---
> 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 => [ 'n...@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.0.6
>
