# Copyrights 2012 by [Mark Overmeer].
#  For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.00.

use warnings;
use strict;

package Mozilla::Persona::Validate::IMAPTalk;
use vars '$VERSION';
$VERSION = '0.12';

use base 'Mozilla::Persona::Validate';

use Log::Report    qw/persona/;
use Mail::IMAPTalk ();


sub init($)
{   my ($self, $args) = @_;
    $self->{MPVI_server} = $args->{server} or panic;
    $self;
}

#------------

sub server() {shift->{MPVI_server}}

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

    my $imap = Mail::IMAPTalk->new
      ( Server   => $self->server
      , Username => $user
      , Password => $password
      , Uid      => 1
      );

   $imap or return 0;
   $imap->logout;
   1;
}

1;