File Coverage

blib/lib/OpenPlugin/Authenticate/DBI.pm

Criterion	Covered	Total	%
statement	9	27	33.3
branch	0	8	0.0
condition	0	9	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	12	49	24.4

package OpenPlugin::Authenticate::DBI;

# $Id: DBI.pm,v 1.11 2003/04/03 01:51:24 andreychek Exp $

use strict;
use OpenPlugin::Authenticate();
use base          qw( OpenPlugin::Authenticate );

#use OpenPlugin::Authenticate();
#$OpenPlugin::Authenticate::DBI::ISA = qw( OpenPlugin::Authenticate );

$OpenPlugin::Authenticate::DBI::VERSION = sprintf("%d.%02d", q$Revision: 1.11 $ =~ /(\d+)\.(\d+)/);

sub authenticate {
    my ($self, $args) = @_;

    return 0 if $args->{username} eq "";

    my $ret = 0;

    $args->{username_field} ||= "username";
    $args->{password_field} ||= "password";
    $args->{table}          ||= "";

    $self->OP->exception->throw ("No datasource or table argument given" )
         unless (($args->{datasource}) && ($args->{table}));

    $self->OP->log->info( "Authenticating $args->{username}");

    my $dbh = eval { $self->OP->datasource->connect( $args->{datasource} ); };

    if ( $@ ) {
        $self->OP->exception->throw("Connection Error: $@\n");
    }

    my $sth = $dbh->prepare("SELECT $args->{username_field} FROM " .
                            "$args->{table} where $args->{username_field} = " .
                            "'$args->{username}' and "     .
                            "$args->{password_field} = " .
                            "'$args->{password}'");
    $sth->execute;

    my $row = $sth->fetchrow_hashref;

    $ret = 1 if $row->{ $args->{username_field} } eq $args->{username};

    $self->OP->log->info( "Authenticate returned ($ret)");

    return($ret);
}


1;

__END__