File Coverage

blib/lib/Authen/Simple/Gmail.pm

Criterion	Covered	Total	%
statement	15	42	35.7
branch	0	12	0.0
condition			n/a
subroutine	5	7	71.4
pod	1	1	100.0
total	21	62	33.8

package Authen::Simple::Gmail;

use strict;
use warnings;

$Authen::Simple::Gmail::VERSION = '0.2';

use IO::Socket::SSL         ();
use Authen::Simple::Adapter ();
use base 'Authen::Simple::Adapter';

my $portable_crlf = "\015\012";    # "\r\n" is not portable

sub check {
    my ( $self, $username, $password ) = @_;

    my $sock = IO::Socket::SSL->new(
        'PeerHost'        => "pop.gmail.com",
        'PeerPort'        => "995",
        'SSL_verify_mode' => IO::Socket::SSL::SSL_VERIFY_NONE,    # Patches welcome!
    );

    if ( !$sock ) {
        $self->log->error( IO::Socket::SSL->errstr() ) if $self->log;
        return;
    }

    my $line = <$sock>;                                           # welcome msg

    # d("init: $line");
    print {$sock} "USER $username$portable_crlf";
    $line = <$sock>;

    # d("user: $line");
    if ( $line !~ /^\+OK/ ) {
        $self->log->debug("user not OK: $line") if $self->log;
        __socket_end($sock);
        return;
    }

    print {$sock} "PASS $password$portable_crlf";
    $line = <$sock>;

    # d("pass: $line");
    if ( $line !~ /^\+OK/ ) {
        $self->log->debug("user/pass not OK: $line") if $self->log;
        __socket_end($sock);
        return;
    }

    __socket_end($sock);
    return 1;
}

sub __socket_end {
    my ($sock) = @_;
    print {$sock} "QUIT$portable_crlf";
    $sock->close( 'SSL_ctx_free' => 1 );
    return;
}

1;

__END__