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

r...@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 <
[email protected]> 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/
>
---------------------------------------------------------------------
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/

Reply via email to