[NET::SSLeay] - Use of uninitialized value ... (gelöst) - #165802 (Fragen zu Perl-Modulen)

MarkusH

2013-02-14 20:48

User since
2012-04-08
161 Artikel
BenutzerIn
[default_avatar]

Hallo,

das Beispiel unten zu Mail::Sender funktioniert unter Perl 5.10.1 (ActiveState).
Mit den Perl Versionen 5.14.3(ActiveState) und 5.16.1 (CitrusPerl) jedoch nicht - die Verbindung zum SMTP wird nicht aufgebaut.
Bei 5.16.1 habe ich es auf zwei Rechnern probiert und einmal auch 5.16.1 ganz neu installiert.
Folgende Fehlermeldungen werden ausgegeben:

Code: (dl )

1
2

Use of uninitialized value in subroutine entry at blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\randomize.al) line 888.
Use of uninitialized value in subroutine entry at blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\randomize.al) line 888, <GEN1> line 10.

und

Code: (dl )

-24: IO::Socket::SSL->start_SSL failed: SSL connect attempt failed with unknown error error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed

Weiß jemand was dazu?

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
use Mail::Sender;

my $mailparams = {
            smtp => 'smtp.udag.de',
            from => 'SPLMget <ABSENDER>',
            auth => 'LOGIN',
            authid => 'POSTFACHNAME',
            authpwd => 'PASSWORT',
            TLS_required => 0,
            on_errors => 'code',
            debug => './mailLog.txt',
            debug_level => 4
           };

my $mail = Mail::Sender->new($mailparams);
$Mail::Sender::NO_X_MAILER = 1;
my $message = '<html><body><h1><center>Heute ist Valentinstag</center></h1></body></html>';
$mail->Open({
            to => 'EMPFÄNGER',
            headers =>  {
                            'X-Mailer' => 'SPLMget',
                            'Accept-Language' => 'de-DE, en-US',
                            'Content-Language' => 'de-DE'
                        },
                        subject => encode_qp(encode("UTF-8", 'Neue Nachricht verfügbar')),
                        ctype => 'text/html; charset=UTF-8',
                        encoding => "quoted-printable",
                        #multipart => 'mixed'
                     });
$mail->SendEnc($message);
$mail->Close();


print "$mail->{error}: $mail->{error_msg}";

$q =~ /(bb|[^b]{2})/