Hello community, here is the log from the commit of package perl-Net-SSLGlue for openSUSE:Factory checked in at 2013-05-06 10:10:57 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Net-SSLGlue (Old) and /work/SRC/openSUSE:Factory/.perl-Net-SSLGlue.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Net-SSLGlue" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Net-SSLGlue/perl-Net-SSLGlue.changes 2012-02-15 15:58:30.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Net-SSLGlue.new/perl-Net-SSLGlue.changes 2013-05-06 10:10:58.000000000 +0200 @@ -1,0 +2,12 @@ +Sun May 5 12:23:53 UTC 2013 - [email protected] + +- update to version 1.01 + * Net::SSLGlue::LDAP as wrongly named Net::DNSGlue::LDAP + * Net::SSLGlue::SMTP: save hello domain from last hello call, so that the + hello after the starttls uses the same domain argument. + * Net::SSLGlue::SMTP: fixed stripping of port from host/ip for name + verification. Added hello after successful starttls. Extented tests + to check, if we can actually talk after starttls. + * fixed wrong position for include encode_base64 and uri_unescape in *::LWP. + +------------------------------------------------------------------- Old: ---- Net-SSLGlue-0.6.tar.gz New: ---- Net-SSLGlue-1.01.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Net-SSLGlue.spec ++++++ --- /var/tmp/diff_new_pack.E6Qcgs/_old 2013-05-06 10:10:59.000000000 +0200 +++ /var/tmp/diff_new_pack.E6Qcgs/_new 2013-05-06 10:10:59.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Net-SSLGlue # -# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,7 +17,7 @@ Name: perl-Net-SSLGlue -Version: 0.6 +Version: 1.01 Release: 0 %define cpan_name Net-SSLGlue Summary: add/extend SSL support for common perl modules ++++++ Net-SSLGlue-0.6.tar.gz -> Net-SSLGlue-1.01.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSLGlue-0.6/Changes new/Net-SSLGlue-1.01/Changes --- old/Net-SSLGlue-0.6/Changes 2011-05-02 17:46:15.000000000 +0200 +++ new/Net-SSLGlue-1.01/Changes 2012-01-31 07:50:44.000000000 +0100 @@ -1,3 +1,24 @@ +1.01 2012/01/31 +Net::SSLGlue::LDAP as wrongly named Net::DNSGlue::LDAP + +1.0 2012/01/30 +Net::SSLGlue::SMTP: save hello domain from last hello call, so that the +hello after the starttls uses the same domain argument. +Thanks to zaucker[AT]oetiker[DOT]ch for reporting problem. + +0.9 2012/01/24 +Net::SSLGlue::SMTP: fixed stripping of port from host/ip for name +verification. Added hello after successful starttls. Extented tests +to check, if we can actually talk after starttls. +Thanks to zaucker[AT]oetiker[DOT]ch for reporting problem. + +0.8 2011/07/17 +fixed wrong position for include encode_base64 and uri_unescape in *::LWP. +Thanks to mtelle[AT]kamp-dsl[DOT]de for reporting + +0.7 2011/05/27 +strip port from host/ip for name verification in Net::SSLGlue::SMTP + 0.6 2011/05/02 fixed english, thanks to dom, https://rt.cpan.org/Ticket/Display.html?id=46284 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSLGlue-0.6/META.yml new/Net-SSLGlue-1.01/META.yml --- old/Net-SSLGlue-0.6/META.yml 2011-05-02 19:30:05.000000000 +0200 +++ new/Net-SSLGlue-1.01/META.yml 2012-01-31 07:51:19.000000000 +0100 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: Net-SSLGlue -version: 0.6 +version: 1.01 abstract: ~ author: [] license: unknown @@ -15,7 +15,7 @@ directory: - t - inc -generated_by: ExtUtils::MakeMaker version 6.55_02 +generated_by: ExtUtils::MakeMaker version 6.56 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSLGlue-0.6/lib/Net/SSLGlue/LDAP.pm new/Net-SSLGlue-1.01/lib/Net/SSLGlue/LDAP.pm --- old/Net-SSLGlue-0.6/lib/Net/SSLGlue/LDAP.pm 2011-05-02 17:42:11.000000000 +0200 +++ new/Net-SSLGlue-1.01/lib/Net/SSLGlue/LDAP.pm 2012-01-31 07:50:58.000000000 +0100 @@ -1,7 +1,7 @@ use strict; use warnings; -package Net::DNSGlue::LDAP; -our $VERSION = 0.2; +package Net::SSLGlue::LDAP; +our $VERSION = '1.01'; use Net::LDAP; use IO::Socket::SSL 1.19; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSLGlue-0.6/lib/Net/SSLGlue/LWP.pm new/Net-SSLGlue-1.01/lib/Net/SSLGlue/LWP.pm --- old/Net-SSLGlue-0.6/lib/Net/SSLGlue/LWP.pm 2011-05-02 17:42:11.000000000 +0200 +++ new/Net-SSLGlue-1.01/lib/Net/SSLGlue/LWP.pm 2012-01-24 08:33:40.000000000 +0100 @@ -1,11 +1,9 @@ use strict; use warnings; package Net::SSLGlue::LWP; -our $VERSION = 0.3; +our $VERSION = 0.4; use LWP::UserAgent '5.822'; use IO::Socket::SSL 1.19; -use URI::Escape 'uri_unescape'; -use MIME::Base64 'encode_base64'; use URI; # force Net::SSLGlue::LWP::Socket as superclass of Net::HTTPS, because @@ -67,6 +65,8 @@ use IO::Socket::SSL; use base 'IO::Socket::SSL'; my $sockclass = 'IO::Socket::INET'; + use URI::Escape 'uri_unescape'; + use MIME::Base64 'encode_base64'; $sockclass .= '6' if eval "require IO::Socket::INET6"; sub configure { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSLGlue-0.6/lib/Net/SSLGlue/SMTP.pm new/Net-SSLGlue-1.01/lib/Net/SSLGlue/SMTP.pm --- old/Net-SSLGlue-0.6/lib/Net/SSLGlue/SMTP.pm 2011-05-02 17:45:02.000000000 +0200 +++ new/Net-SSLGlue-1.01/lib/Net/SSLGlue/SMTP.pm 2012-01-30 12:17:27.000000000 +0100 @@ -4,7 +4,7 @@ package Net::SSLGlue::SMTP; use IO::Socket::SSL 1.19; use Net::SMTP; -our $VERSION = 0.5; +our $VERSION = 1.0; ############################################################################## # mix starttls method into Net::SMTP which on SSL handshake success @@ -13,12 +13,19 @@ sub Net::SMTP::starttls { my $self = shift; $self->_STARTTLS or return; + my $host = $self->host; + # for name verification strip port from domain:port, ipv4:port, [ipv6]:port + $host =~s{(?<!:):\d+$}{}; + Net::SMTP::_SSLified->start_SSL( $self, SSL_verify_mode => 1, SSL_verifycn_scheme => 'smtp', - SSL_verifycn_name => ${*$self}{net_smtp_host}, + SSL_verifycn_name => $host, @_ - ); + ) or return; + + # another hello after starttls to read new ESMTP capabilities + return $self->hello(${*$self}{net_smtp_hello_domain}); } sub Net::SMTP::_STARTTLS { shift->command("STARTTLS")->response() == Net::SMTP::CMD_OK @@ -37,6 +44,13 @@ } }; +my $old_hello = \&Net::SMTP::hello; +*Net::SMTP::hello = sub { + my ($self,$domain) = @_; + ${*$self}{net_smtp_hello_domain} = $domain if $domain; + goto &$old_hello; +}; + ############################################################################## # Socket class derived from IO::Socket::SSL # strict certificate verification per default @@ -53,7 +67,7 @@ if ! exists $arg_hash->{SSL_verify_mode}; $arg_hash->{SSL_verifycn_scheme} = 'smtp' if ! exists $arg_hash->{SSL_verifycn_scheme}; - $arg_hash->{SSL_verifycn_name} = ${*$self}{net_smtp_host} + $arg_hash->{SSL_verifycn_name} = $self->host if ! exists $arg_hash->{SSL_verifycn_name}; # force keys from %SSLopts diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSLGlue-0.6/lib/Net/SSLGlue.pm new/Net-SSLGlue-1.01/lib/Net/SSLGlue.pm --- old/Net-SSLGlue-0.6/lib/Net/SSLGlue.pm 2011-05-02 17:46:39.000000000 +0200 +++ new/Net-SSLGlue-1.01/lib/Net/SSLGlue.pm 2012-01-31 07:50:38.000000000 +0100 @@ -1,5 +1,5 @@ package Net::SSLGlue; -our $VERSION = 0.6; +our $VERSION = '1.01'; =head1 NAME diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-SSLGlue-0.6/t/external/02_smtp.t new/Net-SSLGlue-1.01/t/external/02_smtp.t --- old/Net-SSLGlue-0.6/t/external/02_smtp.t 2008-12-31 15:48:49.000000000 +0100 +++ new/Net-SSLGlue-1.01/t/external/02_smtp.t 2012-01-24 08:30:17.000000000 +0100 @@ -33,7 +33,7 @@ SSL_ca_path => $capath, SSL_verify_mode => 1, SSL_verifycn_scheme => 'smtp' - ) or do { +) or do { print "1..0 # mail.gmx.net:465 not reachable with SSL\n"; exit }; @@ -46,12 +46,12 @@ SSL_ca_path => $capath, SSL_verify_mode => 1, SSL_verifycn_scheme => 'smtp' - ) and do { +) and do { print "1..0 # mail.gmx.de:465 reachable with SSL\n"; exit }; -print "1..5\n"; +print "1..6\n"; # first direct SSL my $smtp = Net::SMTP->new( 'mail.gmx.net', @@ -64,6 +64,8 @@ $smtp = Net::SMTP->new( 'mail.gmx.net' ); my $ok = $smtp->starttls( SSL_ca_path => $capath ); print $ok ? "ok\n" : "not ok # smtp starttls mail.gmx.net\n"; +# check that we can talk on connection +print $smtp->quit ? "ok\n": "not ok # quit failed\n"; # against wrong host should fail $smtp = Net::SMTP->new( 'mail.gmx.de' ); # should succeed -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
