Re: [PERL] Net::POP3

["Christian Nielsen" <sslug@sslug>]

On Fri, 31 Oct 2003 22:45:34 +0000, Christian Nielsen wrote:

> Jeg er ved at lave et lille script, som kontrollerer en mailserver.
> Med understående får jeg et fint svar hvis serveren virker.
> $pop = Net::POP3->new('mailserver');
> $pop->close();
> print "$pop\n";
> hvis serveren ikke virker, så dør scriptet med:
> Can't call method "close" on an undefined value at TestServer.pl line 18.
> Er der nogen som kan hjælpe med at få scriptet til at svare noget 
> fornuftigt jeg kan bruge? Scriptet må ikke dø.

Jeg fandt selv ud af det:

$pop = Net::POP3->new('mailserver');
if (! $pop) {
  print "No connection...\n"
} else {
  print "Connected...\n";
  $pop->quit();
}