commit perl-Net-SSLGlue for openSUSE:Factory

6 May 2013

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 - mc@suse.com
+
+- 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{(?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: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org

    

commit perl-Net-SSLGlue for openSUSE:Factory

root＠hilbert.suse.de