Hi Renée

I changed the script to the following (this is my small test script not the actual OTRS installation)


print "$@\n";
if (not $smtp = Net::SMTP::SSL->new('smtp.gmail.com',
                                     Port => 465,
                                     Debug => 1)) {
print "$@\n";
   die "Could not connect to mail server\n";
}



The output is

root@XXXXXXXXXX ~ #./perl_test_email_gmail.pl

Net::SMTP::SSL: Bad service ''
Could not connect to mail server

Regards
Kenneth Thorman

On Mon, Apr 12, 2010 at 12:32 PM, Renée Bäcker <mailinglisten@renee-baecker.de> wrote:
Kenneth Thorman schrieb:

my $smtp;
if (not $smtp = Net::SMTP::SSL->new('smtp.gmail.com',
                                    Port => 465,
                                    Debug => 1)) {
  die "Could not connect to mail server\n";
}
 

Can you print the value of $@?


my $smtp;
if (not $smtp = Net::SMTP::SSL->new('smtp.gmail.com',
                                   Port => 465,
                                   Debug => 1)) {
 die "Could not connect to mail server -> $@\n";
}


- Renée

--
Perl-Magazin: http://perl-magazin.de
Perl-Nachrichten: http://perl-nachrichten.de


---------------------------------------------------------------------
OTRS mailing list: otrs - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/otrs
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/otrs

NEW! ENTERPRISE SUBSCRIPTION - Get more information NOW!
http://www.otrs.com/en/support/enterprise-subscription/