r60173 - in /trunk/libnet-managesieve-perl: ./ debian/ debian/patches/ debian/source/ lib/Net/

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Fri Jul 9 14:34:29 UTC 2010


Author: ansgar-guest
Date: Fri Jul  9 14:34:15 2010
New Revision: 60173

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60173
Log:
* New upstream release.
* debian/copyright: Update years of copyright.
* debian/copyright: Formatting changes for current DEP-5 proposal.
* Use source format 3.0 (quilt); drop README.source and quilt framework.
* Fix spelling errors in the documentation.
  + new patch: spelling.patch
* Bump Standards-Version to 3.9.0 (no changes).
* Add myself to Uploaders.

Added:
    trunk/libnet-managesieve-perl/debian/patches/spelling.patch
    trunk/libnet-managesieve-perl/debian/source/
    trunk/libnet-managesieve-perl/debian/source/format
Removed:
    trunk/libnet-managesieve-perl/debian/README.source
Modified:
    trunk/libnet-managesieve-perl/Changes
    trunk/libnet-managesieve-perl/META.yml
    trunk/libnet-managesieve-perl/SIGNATURE
    trunk/libnet-managesieve-perl/debian/changelog
    trunk/libnet-managesieve-perl/debian/control
    trunk/libnet-managesieve-perl/debian/copyright
    trunk/libnet-managesieve-perl/debian/patches/series
    trunk/libnet-managesieve-perl/debian/rules
    trunk/libnet-managesieve-perl/lib/Net/ManageSieve.pm

Modified: trunk/libnet-managesieve-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-managesieve-perl/Changes?rev=60173&op=diff
==============================================================================
--- trunk/libnet-managesieve-perl/Changes (original)
+++ trunk/libnet-managesieve-perl/Changes Fri Jul  9 14:34:15 2010
@@ -1,4 +1,19 @@
 Revision history for Perl extension Net::ManageSieve.
+
+0.10	Fri Jul  8 15:45:42 CEST 2010
+	- fix: authentificate against Cyrus CPAN bug #58192 Rudy Gevaert
+		You can pass different user and authname to auth() now
+	- fix: added missed entry in Changes of v0.09
+	- fix: stall in select() CPAN bug #58235 Rudy Gevaert
+		When the SSL layer buffers data, select() does not return
+		true, hence, is not indicating that pending data. It seems
+		that select() queries the TCP stack only.
+		The now choosen maximal size in sysread() is larger than
+		the block size of Net::SSLeay at the current time of 32KB.
+
+0.09	Thu Sep 24 14:29:07 CEST 2009
+	- fix: CPAN bug#49333: bug in Mangesieve by Oliver Eales
+		base64 encoded password in fallback branch contains line feeds
 
 0.08	Tue Aug  4 13:56:26 CEST 2009
 	- chg: accept ucfirst options on new() constructor for all options

Modified: trunk/libnet-managesieve-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-managesieve-perl/META.yml?rev=60173&op=diff
==============================================================================
--- trunk/libnet-managesieve-perl/META.yml (original)
+++ trunk/libnet-managesieve-perl/META.yml Fri Jul  9 14:34:15 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Net-ManageSieve
-version:            0.09
+version:            0.10
 abstract:           ManageSieve Protocol Client
 author:
     - Steffen Kaiser <cpan at skaus.info>

Modified: trunk/libnet-managesieve-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-managesieve-perl/SIGNATURE?rev=60173&op=diff
==============================================================================
--- trunk/libnet-managesieve-perl/SIGNATURE (original)
+++ trunk/libnet-managesieve-perl/SIGNATURE Fri Jul  9 14:34:15 2010
@@ -15,15 +15,15 @@
 Hash: SHA1
 
 SHA1 9b1e6ccab9aae1f3abbc00a8bbc1a948c92d7dca COPYING
-SHA1 a28bc0e489c4189da665ad846946ba1132cfaf09 Changes
+SHA1 aad08c12fbe75345acba882df3722ed68c318d30 Changes
 SHA1 dcaa0c0dc2cbd898152fb57a8b3e1747fd857504 LICENSE
 SHA1 a2e4e1d7b15aa75d31c28d4dd3721deaacf5215d MANIFEST
 SHA1 f6aafb59d1c051fde474599535891fc5e49bc31b MANIFEST.SKIP
-SHA1 bf755c6099dbcd0dca2c6a6d1ad4819ff06efd7e META.yml
+SHA1 db533235844457c2dd1382c9e133f45bed0428ce META.yml
 SHA1 60083cedbf92adea30b31c96c1fa07005f5ca52f Makefile.PL
 SHA1 4761910f6e1d95d00a89008dff894a94fc77731a README
 SHA1 b810608c247c68111eb2d95d809116e7d6548c92 TODO
-SHA1 21659c86c1738def40bf24952c0a628a7928cc38 lib/Net/ManageSieve.pm
+SHA1 7080c2547c9d4052b4baeef31cb37b34565dfb38 lib/Net/ManageSieve.pm
 SHA1 e1fd5931b8c313a295550da26b7914f4fd4c05bc managesieve-test-account.sample
 SHA1 e84b212ac2a465c56266c9bb2d3b1f8016ac4b21 t/00-signature.t
 SHA1 4bd8d2b8ee556deb6c6151bf7108c731e8004919 t/Net-ManageSieve.t
@@ -32,11 +32,11 @@
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1.4.6 (GNU/Linux)
 
-iQEVAwUBSrtmljLh+Gx9F1xpAQKnvAf/RCP4wuZn4N5R9VsOCnBRL+uiRCJcrPxr
-mgLJnjt1AiwLwrp+Q28qiwSziCCHdEyTMQAwxGHCJO8aI9ce4+zJrT2n+CWezeHQ
-d3p9SSdtDb/Z/bUeEZA4qVoImwhlkf1ifi7fn6Nqxhom6OZ538jCZcHXp7yF4FCT
-7nz9AGMmtF8NafFMnxlMhWugqsawI3QLTIuuyXMLhW1J8vfWbiBOC00J4l7Vwbt3
-bJMxsiFyQnZJvDUyCGqlrNxk1CJR0DU6wWabuf9V8fukOSQITnatJu4jmR0Du2YR
-5loBvW0gqTy21xLblYId8e2PMh13sZ1inoJKeA8bXYOVLKL8rGX9Mw==
-=sgJq
+iQEVAwUBTDXWzDLh+Gx9F1xpAQKYWAf+JttkzbolMIVZXoU+pYWYbuVb/b9/tE7f
+/XZKejlaZ+Xo0c7nQMvlpZbksHSb3PUEiNIPqhAuhhThMc6r50gBB7kzfHFuhquY
+YIcsiEyI0TkuKWHj+zUTssnwSjbUF4pTFMu1wDhqfgBue/U8YVX92V1tEsgU/IjN
+C5St703XGgzZnvj7nIhXyFbZ6RrX6WH0y6YMdVa0LrxHdP8zhvIKCTD6aXuNS3xN
+/JkwMX4WA5l5/FPoXk49Ly4Ez/VzBtuCXIKz7g7464wcRJVvs65gx0WNrslB3Km1
+1tbQ89+bmmggDLMRjEO1ndE5zwkilTErd40Xves5nb7iaSKa4ZqEjQ==
+=3gmT
 -----END PGP SIGNATURE-----

Modified: trunk/libnet-managesieve-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-managesieve-perl/debian/changelog?rev=60173&op=diff
==============================================================================
--- trunk/libnet-managesieve-perl/debian/changelog (original)
+++ trunk/libnet-managesieve-perl/debian/changelog Fri Jul  9 14:34:15 2010
@@ -1,3 +1,16 @@
+libnet-managesieve-perl (0.10-1) unstable; urgency=low
+
+  * New upstream release.
+  * debian/copyright: Update years of copyright.
+  * debian/copyright: Formatting changes for current DEP-5 proposal.
+  * Use source format 3.0 (quilt); drop README.source and quilt framework.
+  * Fix spelling errors in the documentation.
+    + new patch: spelling.patch
+  * Bump Standards-Version to 3.9.0 (no changes).
+  * Add myself to Uploaders.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Fri, 09 Jul 2010 23:33:53 +0900
+
 libnet-managesieve-perl (0.09-1) unstable; urgency=low
 
   [ Jonathan Yu ]

Modified: trunk/libnet-managesieve-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-managesieve-perl/debian/control?rev=60173&op=diff
==============================================================================
--- trunk/libnet-managesieve-perl/debian/control (original)
+++ trunk/libnet-managesieve-perl/debian/control Fri Jul  9 14:34:15 2010
@@ -1,12 +1,12 @@
 Source: libnet-managesieve-perl
 Section: perl
 Priority: optional
-Build-Depends: debhelper (>= 7.0.8), quilt (>= 0.46-7)
+Build-Depends: debhelper (>= 7)
 Build-Depends-Indep: perl, libtest-pod-coverage-perl,
  libtest-pod-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Jonathan Yu <jawnsy at cpan.org>
-Standards-Version: 3.8.3
+Uploaders: Jonathan Yu <jawnsy at cpan.org>, Ansgar Burchardt <ansgar at 43-1.org>
+Standards-Version: 3.9.0
 Homepage: http://search.cpan.org/dist/Net-ManageSieve/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libnet-managesieve-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libnet-managesieve-perl/

Modified: trunk/libnet-managesieve-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-managesieve-perl/debian/copyright?rev=60173&op=diff
==============================================================================
--- trunk/libnet-managesieve-perl/debian/copyright (original)
+++ trunk/libnet-managesieve-perl/debian/copyright Fri Jul  9 14:34:15 2010
@@ -1,18 +1,16 @@
-Format-Specification:
-    http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
-Upstream-Maintainer: Steffen Kaiser
-Upstream-Source: http://search.cpan.org/dist/Net-ManageSieve/
-Upstream-Name: Net-ManageSieve
+Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=135
+Maintainer: Steffen Kaiser
+Source: http://search.cpan.org/dist/Net-ManageSieve/
+Name: Net-ManageSieve
 
-Files: *
-Copyright: 2008, Steffen Kaiser
-License-Alias: Perl
-License: Artistic | GPL-1+
+Copyright: 2008-2010, Steffen Kaiser
+License: Artistic or GPL-1+
 
 Files: debian/*
-Copyright: 2009, Jonathan Yu <jawnsy at cpan.org>
+Copyright:
+ 2009, Jonathan Yu <jawnsy at cpan.org>
  2009, Christoph Berg <myon at debian.org>
-License: Artistic | GPL-1+
+License: Artistic or GPL-1+
 
 License: Artistic
     This program is free software; you can redistribute it and/or modify

Modified: trunk/libnet-managesieve-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-managesieve-perl/debian/patches/series?rev=60173&op=diff
==============================================================================
--- trunk/libnet-managesieve-perl/debian/patches/series (original)
+++ trunk/libnet-managesieve-perl/debian/patches/series Fri Jul  9 14:34:15 2010
@@ -1,1 +1,2 @@
 disable-signature-test.patch
+spelling.patch

Added: trunk/libnet-managesieve-perl/debian/patches/spelling.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-managesieve-perl/debian/patches/spelling.patch?rev=60173&op=file
==============================================================================
--- trunk/libnet-managesieve-perl/debian/patches/spelling.patch (added)
+++ trunk/libnet-managesieve-perl/debian/patches/spelling.patch Fri Jul  9 14:34:15 2010
@@ -1,0 +1,35 @@
+From: Ansgar Burchardt <ansgar at 43-1.org>
+Date: Fri, 09 Jul 2010 23:28:08 +0900
+Origin: vendor
+Subject: Fix spelling errors in documentation
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=59225
+
+--- libnet-managesieve-perl.orig/lib/Net/ManageSieve.pm
++++ libnet-managesieve-perl/lib/Net/ManageSieve.pm
+@@ -308,7 +308,7 @@
+ =item starttls ( %SSL_opts )
+ 
+ Initiates a TLS session, may be used only before any
+-authentification.
++authentication.
+ 
+ The C<SSL_opts> is a HASH containing any options you can
+ pass to L<< IO::Socket::SSL->new() >>. No one is passed by default.
+@@ -405,7 +405,7 @@
+ Authentificates as C<USER>.
+ 
+ If the module L<Authen::SASL> is available, this module is tried first. In
+-this case, the C<USER> paramter may be a C<Authen::SASL> object, that
++this case, the C<USER> parameter may be a C<Authen::SASL> object, that
+ is not furtherly modified. If C<USER> is no C<Authen::SASL> object, 
+ C<USER> is passed as C<user>, C<PASSWORD> as C<pass> and C<AUTHNAME>
+ as C<authname> to C<< Authen::SASL->new() >>. If C<AUTHNAME> is
+@@ -566,7 +566,7 @@
+ 
+ =item capabilities ([reget])
+ 
+-Returns the capabilites as HASH ref, e.g.:
++Returns the capabilities as HASH ref, e.g.:
+ 
+ 	{
+ 	  'starttls' => 1,

Modified: trunk/libnet-managesieve-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-managesieve-perl/debian/rules?rev=60173&op=diff
==============================================================================
--- trunk/libnet-managesieve-perl/debian/rules (original)
+++ trunk/libnet-managesieve-perl/debian/rules Fri Jul  9 14:34:15 2010
@@ -1,4 +1,4 @@
 #!/usr/bin/make -f
 
 %:
-	dh --with quilt $@
+	dh $@

Added: trunk/libnet-managesieve-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-managesieve-perl/debian/source/format?rev=60173&op=file
==============================================================================
--- trunk/libnet-managesieve-perl/debian/source/format (added)
+++ trunk/libnet-managesieve-perl/debian/source/format Fri Jul  9 14:34:15 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)

Modified: trunk/libnet-managesieve-perl/lib/Net/ManageSieve.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-managesieve-perl/lib/Net/ManageSieve.pm?rev=60173&op=diff
==============================================================================
--- trunk/libnet-managesieve-perl/lib/Net/ManageSieve.pm (original)
+++ trunk/libnet-managesieve-perl/lib/Net/ManageSieve.pm Fri Jul  9 14:34:15 2010
@@ -115,7 +115,7 @@
 use IO::Socket;
 use Encode;
 
-$VERSION = "0.09";
+$VERSION = "0.10";
 
 @ISA = qw();
 
@@ -400,13 +400,17 @@
 	return $_[0]->{fh}->peer_certificate(@_);
 }
 
-=item auth (USER [, PASSWORD ])
+=item auth (USER [, PASSWORD [, AUTHNAME ] ])
 
 Authentificates as C<USER>.
 
-If the module L<Authen::SASL> is available, this module is tried first. In this
-case, the C<USER> paramter may be a C<Authen::SASL> object, that is not furtherly
-modified, C<PASSWORD> is ignored in this case.
+If the module L<Authen::SASL> is available, this module is tried first. In
+this case, the C<USER> paramter may be a C<Authen::SASL> object, that
+is not furtherly modified. If C<USER> is no C<Authen::SASL> object, 
+C<USER> is passed as C<user>, C<PASSWORD> as C<pass> and C<AUTHNAME>
+as C<authname> to C<< Authen::SASL->new() >>. If C<AUTHNAME> is
+undefined, C<USER> is passed as C<authname>. This way you can
+authentificate against Cyrus: C<auth('cyrus', $password, $username)>.
 
 If L<Authen::SASL> is I<not> available or the initialization of it fails,
 this function attempts to authentificate via the C<PLAIN> method.
@@ -431,8 +435,7 @@
 	return $r;
 }
 sub auth {
-    my ($self, $username, $password) = @_;
-
+	my ($self, $username, $password, $authname) = @_;
     
     if(my $mech = $self->{capabilities}{sasl}) {
      # If the server does not announce SASL, we try PLAIN anyway
@@ -453,6 +456,9 @@
 				unless(length $username) {
 					$self->_set_error("need username or Authen::SASL object");
 					return undef;
+				}
+				unless(defined $authname) {
+					$authname = $username;
 				}
 				# for unknown reason to pass in a space
 				# separated string leads to the problem
@@ -466,8 +472,8 @@
 				$sasl = Authen::SASL->new(mechanism=> "".$mech, # without "". the behaviour is funny
 					callback => { user => $username,
 						pass => $password,
-						password => $password,
-						authname => $username,
+						password => $password,	# needed it to work properly
+						authname => $authname,
 					}
 				);
 			}
@@ -989,7 +995,7 @@
 
 	until(scalar(@{$self->{line_buffer}})) {
 		if(select($out, undef, undef, $timeout)) {
-			unless(sysread($fh, $buf, 2048, length($buf))) {
+			unless(sysread($fh, $buf, 64 * 1024, length($buf))) {
 				$self->_set_error("socket empty although there is data pending: $!");
 				$self->close();
 				return undef;
@@ -1215,7 +1221,7 @@
 
 =head1 COPYRIGHT
 
-Copyright (c) 2008 Steffen Kaiser. All rights reserved.
+Copyright (c) 2008-2010 Steffen Kaiser. All rights reserved.
 This program is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.
 




More information about the Pkg-perl-cvs-commits mailing list