Front page | perl.libnet |
Postings from May 2006
On May 28, 2006, at 9:13 AM, Achim Grolms wrote:
> Hello,
>
> I am trying to use Net::POP3 to detect if a POP3 Server
> does *not* support SASL authentication.
>
> My idea is to use CAPA and check if SASL exists in servers answer:
>
> #------------------------------------------------------------------
> #! /usr/bin/perl -w
> use strict;
> use Net::POP3;
>
> my $targethost = 'pop.web.de';
>
> my $pop = Net::POP3->new( 'pop.web.de' ) || die "can not connect to
> $targethost ";
> my $capa = $pop->capa() || die '$pop->capa() failed';
>
> unless ( exists $capa->{'SASL'} ) {
> print "\n I am sure the server does not support SASL\n";
> }
> #------------------------------------------------------------------
>
> My question is:
> Is this code doing what I want, or is it possible the Server
> supports a SASL mechanism (like GSSAPI), but does not answer the
> CAPA question with 'SASL'?
> (Then my code is wrong!)
What do you see if you turn on debug trace with $pop->debug ?
Graham.
Thread Previous