Changeset 1372

Show
Ignore:
Timestamp:
08/18/06 01:42:52
Author:
miyagawa
Message:

Publish::Gmail: support APOP

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/plagger/lib/Plagger/Plugin/Publish/Gmail.pm

    r1173 r1372  
    4141        require Net::POP3; 
    4242        my $pop = Net::POP3->new($conf->{host}); 
    43         if ($pop->login($conf->{username}, $conf->{password})) { 
     43        if ($pop->apop($conf->{username}, $conf->{password})) { 
     44            $context->log(info => 'APOP login succeed'); 
     45        } elsif ($pop->login($conf->{username}, $conf->{password})) { 
    4446            $context->log(info => 'POP3 login succeed'); 
    4547        } else {