| Subject: | NTLM not working; tested on cygwing perl <->Exchange 2003 with NTLM IMAP |
#NTLM not working because phase2 create response without challenge #salt...
#buggy:
elsif ( $scheme eq 'NTLM' ) {
$response ||= sub {
my ( $code, $client ) = @_;
require Authen::NTLM;
Authen::NTLM::ntlm_user( $self->User );
Authen::NTLM::ntlm_password( $self->Password );
Authen::NTLM::ntlm_domain( $self->Domain ) if $self->Domain;
Authen::NTLM::ntlm();
};
}
#working,tested:
elsif ( $scheme eq 'NTLM' ) {
$response ||= sub {
my ( $code, $client ) = @_;
require Authen::NTLM;
Authen::NTLM::ntlm_user( $self->User );
Authen::NTLM::ntlm_password( $self->Password );
Authen::NTLM::ntlm_domain( $self->Domain ) if $self->Domain;
Authen::NTLM::ntlm($code);
};
}