r60169 - in /branches/upstream/libnet-managesieve-perl/current: Changes META.yml SIGNATURE lib/Net/ManageSieve.pm

Fri Jul 9 14:17:05 UTC 2010

Author: ansgar-guest
Date: Fri Jul  9 14:13:51 2010
New Revision: 60169

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60169
Log:
[svn-upgrade] new version libnet-managesieve-perl (0.10)

Modified:
    branches/upstream/libnet-managesieve-perl/current/Changes
    branches/upstream/libnet-managesieve-perl/current/META.yml
    branches/upstream/libnet-managesieve-perl/current/SIGNATURE
    branches/upstream/libnet-managesieve-perl/current/lib/Net/ManageSieve.pm

Modified: branches/upstream/libnet-managesieve-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-managesieve-perl/current/Changes?rev=60169&op=diff
==============================================================================

--- branches/upstream/libnet-managesieve-perl/current/Changes (original)
+++ branches/upstream/libnet-managesieve-perl/current/Changes Fri Jul  9 14:13:51 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: branches/upstream/libnet-managesieve-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-managesieve-perl/current/META.yml?rev=60169&op=diff
==============================================================================
--- branches/upstream/libnet-managesieve-perl/current/META.yml (original)
+++ branches/upstream/libnet-managesieve-perl/current/META.yml Fri Jul  9 14:13:51 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: branches/upstream/libnet-managesieve-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-managesieve-perl/current/SIGNATURE?rev=60169&op=diff
==============================================================================
--- branches/upstream/libnet-managesieve-perl/current/SIGNATURE (original)
+++ branches/upstream/libnet-managesieve-perl/current/SIGNATURE Fri Jul  9 14:13:51 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: branches/upstream/libnet-managesieve-perl/current/lib/Net/ManageSieve.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-managesieve-perl/current/lib/Net/ManageSieve.pm?rev=60169&op=diff
==============================================================================
--- branches/upstream/libnet-managesieve-perl/current/lib/Net/ManageSieve.pm (original)
+++ branches/upstream/libnet-managesieve-perl/current/lib/Net/ManageSieve.pm Fri Jul  9 14:13:51 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.
 


