Show IMAPAuth.pm syntax highlighted
package IMAPAuth;
use 5.008;
use strict;
use warnings;
use Carp;
use AlphaMail::Middleware;
use AlphaMail::Config;
sub check_credentials
{
my $r = shift;
my $user = shift;
my $password = shift;
my $mx = shift;
my $c;
my $config = new AlphaMail::Config($r->dir_config('AlphamailParameters'));
my $imaps = $config->getIMAPServers;
my $server = $imaps->{$mx}{server} . ":" . $imaps->{$mx}{port};
eval {
$c = new AlphaMail::Middleware($server, $user, $password, $config);
};
if($@) {
$r->log_error("Login failed for $user. Auth failed: $@");
return 0;
}
return 1;
}
1;
See more files for this project here