[NET::SSLeay] - Use of uninitialized value ... (solved) (Fragen zu Perl-Modulen)

[thread]18145[/thread]

[NET::SSLeay] - Use of uninitialized value ... [solved]

Tags: perl5 Net::SSLeay Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+5 replies

MarkusH

2013-02-14 20:48

User since
2012-04-08
162 articles
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})/

+4 replies
GwenDragon

2013-02-14 22:02
User since
2005-01-17
14939 articles
Admin1
Da hat das Skript wohl keine Ahnung wo die Root-CA-Zertifikate auf deinem System sind.

Am Anfang des Skripts z.B.:
Code (perl): (dl )

$ENV{HTTPS_CA_FILE} = "/etc/ssl/certs/cacert.pem";
Alle Zertifikate müssen in einer Datei sein!
Zu finden ist eine Aktuelle Datei mit den Root-CAs unter http://curl.haxx.se/ca/cacert.pem

//EDIT2:
Oder (ungetestet):
Code (perl): (dl )

1 2 3 4 5 6 7 8 9

use IO::Socket::SSL; use Net::SSLeay; BEGIN { IO::Socket::SSL::set_ctx_defaults( SSL_verify_mode => Net::SSLeay->VERIFY_PEER(), SSL_verifycn_scheme => 'smtp', SSL_ca_file => "/etc/ssl/certs/cacert.pem" ); }
//EDIT3:
Quäle: http://api.metacpan.org/source/SULLR/IO-Socket-SSL...

Bis sowas gefunden ist in den Untiefen von OpenSSL und CPAN :/
Last edited: 2013-02-14 22:16:39 +0100 (CET)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- MarkusH
  
  2013-02-14 23:07
  User since
  2012-04-08
  162 articles
  BenutzerIn
  Hallo GwenDragon,
  
  beide Lösungsansätze klappen nicht.
  Der erste Teil der Fehlermeldungen kommt unverändert. Der zweite Teil lautet in beiden Fällen:
  
  Code: (dl )
  
  -14: Connection not established
  
  Ist es unter Umständen möglich, dass ein unverträglicher Datentyp an die Sub randomize übergeben wird?
  Die Version von SSLeay lautet 1.48.
  $q =~ /(bb|[^b]{2})/
- GwenDragon
  
  2013-02-15 12:05
  
  User since
  2005-01-17
  14939 articles
  Admin1
  
  Ich kann derzeit keine Verbindung mit IO::Socket::SSL zu Ports außer 443 erstellen, wenn dabei die SSL-Zertifikate überprüft werden sollen.
  Rätselhaft.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- MarkusH
  
  2013-03-08 14:55
  User since
  2012-04-08
  162 articles
  BenutzerIn
  2013-02-14T21:02:21 GwenDragon
  ...
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  use IO::Socket::SSL; use Net::SSLeay; BEGIN { IO::Socket::SSL::set_ctx_defaults( SSL_verify_mode => Net::SSLeay->VERIFY_PEER(), SSL_verifycn_scheme => 'smtp', SSL_ca_file => "/etc/ssl/certs/cacert.pem" ); }
  
  //EDIT3:
  Quäle: http://api.metacpan.org/source/SULLR/IO-Socket-SSL...
  
  Bis sowas gefunden ist in den Untiefen von OpenSSL und CPAN :/
  
  So, nachdem nochmals ein paar Wochen vergangen sind, habe ich endlich die Lösung gefunden. In dem Code von GwenDragon muß bei jedem Schlüssel das SSL_ am Anfang entfernt werden.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  use IO::Socket::SSL; use Net::SSLeay; BEGIN { IO::Socket::SSL::set_ctx_defaults( ca_file => "/etc/ssl/certs/cacert.pem" ); }
  
  $q =~ /(bb|[^b]{2})/

View all threads created 2013-02-14 20:48.