File Coverage

blib/lib/WE/DB/ComplexUser/AuthPOP3S.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	12	30	40.0

# -*- perl -*-

#
# $Id: AuthPOP3S.pm,v 1.1 2005/05/11 09:31:01 eserte Exp $
# Author: Slaven Rezic
#
# Copyright (C) 2004 Slaven Rezic.
# This is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License, see the file COPYING.

#
# Mail: [e-mail]
# WWW:  http://we-framework.sourceforge.net
#

package WE::DB::ComplexUser::AuthPOP3S;

use strict;
use vars qw($VERSION $DEBUG);
$VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);

use mixin::with 'WE::DB::ComplexUser';

sub identify_POP3S {
    my($self, $user, $password) = @_;

    my $host     = $user->{Auth_POP3S_Host}; # XXX || $self->default_pop3_host;
    my $pop_user = $user->{Auth_POP3S_User} || $user->Username;

    warn "Try pop3 with host=$host and user=$pop_user...\n" if $DEBUG;

    require Net::POP3S;
    my $pop = Net::POP3S->new($host, Timeout => 10);
    my $ret = $pop->login($pop_user, $password) ? 1 : 0;
    $pop->quit;
    $ret;
}

1;

__END__