On Monday 28 August 2006 18:54, Jürgen Herz wrote:
> my $mechanisms = $capa->{SASL};
> return () unless $mechanisms;
> instead would still work the same for users but save the try.
Graham says:
"The reason it tries CRAM-MD5 i because there were servers
out there that would accept it but did not publish it in capa. If
there server does not support it then it will return an error when
you try."
The change you suggest breaks interoperability to servers of that kind.
If the user want to check the servers capability he can use
exists $capa->{'SASL'} as described in
<http://perl.grolmsnet.de/authensasl/> and terminate to avoid the try.
> auth () in Net::POP3 would need a
> return () unless $client;
> added between
> my $client = $sasl->client_new('pop3',${*$self}{'net_pop3_host'},0);
What version of Net::POP3 have you used?
The actual version in repository is available at
<http://svn.goingon.net/repos/libnet/trunk/Net/POP3.pm>
(hopefully becoming 2.29, I hope Graham will bring it to CPAN).
Are you willing to discuss Net::POP3 based on that version?
Thank you,
Achim
