I was told some of you folks are working with Kerberos auth using
GSSAPI. I am trying to do the same thing with POP rather then LDAP
and I am hoping someone here might be able to help me. It is not
obvious to me what I really need to pass in the 'auth' method so I
suspect that is the crux of my problem. When I try to authenticate to
the POP server it fails and all that shows up in the POP log is
'badlogin'. Here is my relevant code:
use strict;
use Net::POP3;
use Authen::SASL;
.
.
.
my $sasl=new Authen::SASL(mechanism=> "GSSAPI SASL",
callback => {
user => $USERNAME,
pass => $PASSWORD,
}
);
my $pop=Net::POP3->new($SERVER)
or die "Unable to connect to mail server: ",$!,"\n";
if ($pop->auth($sasl) > 0) {
my $messages=$pop->list()
or die "Unable to get messages: ",$!,"\n";
}
else {
print "Authentication failed: ",$!,"\n";
}
Note that '$!' contains nothing when it prints my authentication
failed message.
Can someone on this list help me or at least point me to a more
appropriate forum? Thanks.
