r72923 - in /trunk/libnet-sieve-perl: Changes META.yml README Todo debian/changelog debian/control debian/copyright debian/patches/ debian/source/local-options lib/Net/Sieve.pm t/001_load.t
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Thu Apr 21 14:48:36 UTC 2011
Author: ansgar
Date: Thu Apr 21 14:48:20 2011
New Revision: 72923
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=72923
Log:
* New upstream release.
* Drop patch spelling.patch: applied upstream.
* debian/copyright: Update years of copyright, refer to GPL-1, refer to
"Debian systems" instead of "Debian GNU/Linux systems".
* Bump Standards-Version to 3.9.2.
Added:
trunk/libnet-sieve-perl/debian/source/local-options
Removed:
trunk/libnet-sieve-perl/debian/patches/
Modified:
trunk/libnet-sieve-perl/Changes
trunk/libnet-sieve-perl/META.yml
trunk/libnet-sieve-perl/README
trunk/libnet-sieve-perl/Todo
trunk/libnet-sieve-perl/debian/changelog
trunk/libnet-sieve-perl/debian/control
trunk/libnet-sieve-perl/debian/copyright
trunk/libnet-sieve-perl/lib/Net/Sieve.pm
trunk/libnet-sieve-perl/t/001_load.t
Modified: trunk/libnet-sieve-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sieve-perl/Changes?rev=72923&op=diff
==============================================================================
--- trunk/libnet-sieve-perl/Changes (original)
+++ trunk/libnet-sieve-perl/Changes Thu Apr 21 14:48:20 2011
@@ -1,4 +1,8 @@
Revision history for Perl module Net::Sieve
+
+0.07 Fri, 01 Apr 2011 10:34:19 +0200
+ * fix connection closes thx to Klaus-Dieter Krannich [rt.cpan.org #67136]
+ * fix spelling error thx to Ansgar Burchardt [rt.cpan.org #58154]
0.06 Fri, 04 Jun 2010 15:28:17 +0200
* patch for new dovecot servers thx to Heiko Schlittermann
Modified: trunk/libnet-sieve-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sieve-perl/META.yml?rev=72923&op=diff
==============================================================================
--- trunk/libnet-sieve-perl/META.yml (original)
+++ trunk/libnet-sieve-perl/META.yml Thu Apr 21 14:48:20 2011
@@ -1,17 +1,23 @@
-abstract: Implementation of managesieve protocol to manage sieve scripts
-author: Yves Agostini - Univ Metz <agostini at univ-metz.fr>
+---
+abstract: 'Implementation of managesieve protocol to manage sieve scripts'
+author:
+ - 'Yves Agostini - Univ Metz <agostini at univ-metz.fr>'
distribution_type: module
-generated_by: Module::Install version 0.64
+generated_by: 'Module::Install version 0.76'
license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
name: Net-Sieve
-no_index:
- directory:
+no_index:
+ directory:
- inc
- t
-requires:
+requires:
Authen::SASL: 2.11
IO::Socket::INET6: 0
IO::Socket::SSL: 0
MIME::Base64: 0
-tests: t/*.t
-version: 0.04
+resources:
+ license: http://dev.perl.org/licenses/
+version: 0.07
Modified: trunk/libnet-sieve-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sieve-perl/README?rev=72923&op=diff
==============================================================================
--- trunk/libnet-sieve-perl/README (original)
+++ trunk/libnet-sieve-perl/README Thu Apr 21 14:48:20 2011
@@ -73,6 +73,7 @@
realm : pass realm information to the authentication mechanism
ssl_verif : default 0x01, set 0x00 to don't verify and allow self-signed cerificate
debug : default 0, set 1 to have transmission logs
+ dumptlsinfo : dump tls information
METHODS
sock
@@ -126,8 +127,32 @@
Argument : name
Purpose : delete script on server
+Minor public methods
+ ssend
+ Usage : $self->ssend("GETSCRIPT \"$name\"");
+
+ sget
+ Usage:
+ $self->sget();
+ unless (/^OK((?:\s.*)?)$/) {
+ warn "SETACTIVE($name) failed: $_\n";
+ return 0;
+ }
+
+ sfinish
+ send LOGOUT
+
+ closedie
+ send LOGOUT and die
+
+ closedie_NOmsg
+ closedie whitout message
+
+ die_NOmsg
+ die
+
BUGS
- I don't try plain text or client certificate authentification.
+ I don't try plain text or client certificate authentication.
You can debug TLS connexion with openssl : openssl s_client -connect
your.server.org:2000 -tls1 -CApath /etc/apache/ssl.crt/somecrt.crt
@@ -148,6 +173,8 @@
<http://www.crium.univ-metz.fr>
COPYRIGHT
+ Copyright 2008-2011 Yves Agostini - <agostini at univ-metz.fr>
+
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
Modified: trunk/libnet-sieve-perl/Todo
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sieve-perl/Todo?rev=72923&op=diff
==============================================================================
--- trunk/libnet-sieve-perl/Todo (original)
+++ trunk/libnet-sieve-perl/Todo Thu Apr 21 14:48:20 2011
@@ -2,6 +2,5 @@
- add doc in constructor, bugs, support
- make package with Module::Install
-- skip connection test
Modified: trunk/libnet-sieve-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sieve-perl/debian/changelog?rev=72923&op=diff
==============================================================================
--- trunk/libnet-sieve-perl/debian/changelog (original)
+++ trunk/libnet-sieve-perl/debian/changelog Thu Apr 21 14:48:20 2011
@@ -1,8 +1,13 @@
-libnet-sieve-perl (0.06-2) UNRELEASED; urgency=low
+libnet-sieve-perl (0.07-1) unstable; urgency=low
+ * New upstream release.
+ * Drop patch spelling.patch: applied upstream.
+ * debian/copyright: Update years of copyright, refer to GPL-1, refer to
+ "Debian systems" instead of "Debian GNU/Linux systems".
+ * Bump Standards-Version to 3.9.2.
* Update my email address.
- -- Ansgar Burchardt <ansgar at debian.org> Mon, 01 Nov 2010 11:17:10 +0100
+ -- Ansgar Burchardt <ansgar at debian.org> Thu, 21 Apr 2011 16:48:02 +0200
libnet-sieve-perl (0.06-1) unstable; urgency=low
Modified: trunk/libnet-sieve-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sieve-perl/debian/control?rev=72923&op=diff
==============================================================================
--- trunk/libnet-sieve-perl/debian/control (original)
+++ trunk/libnet-sieve-perl/debian/control Thu Apr 21 14:48:20 2011
@@ -8,7 +8,7 @@
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: AGOSTINI Yves <agostini at univ-metz.fr>,
Ansgar Burchardt <ansgar at debian.org>
-Standards-Version: 3.8.4
+Standards-Version: 3.9.2
Homepage: http://search.cpan.org/dist/Net-Sieve/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libnet-sieve-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libnet-sieve-perl/
Modified: trunk/libnet-sieve-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sieve-perl/debian/copyright?rev=72923&op=diff
==============================================================================
--- trunk/libnet-sieve-perl/debian/copyright (original)
+++ trunk/libnet-sieve-perl/debian/copyright Thu Apr 21 14:48:20 2011
@@ -3,29 +3,31 @@
Source: http://search.cpan.org/dist/Net-Sieve/
Name: Net-Sieve
-Copyright: 2008-2010, Yves Agostini <agostini at univ-metz.fr>
+Copyright: 2008-2011, Yves Agostini <agostini at univ-metz.fr>
License: Artistic or GPL-1+
Files: ./inc/Module/*
-Copyright: © 2002-2008, Brian Ingerson, Audrey Tang and Adam Kennedy
+Copyright: 2002-2008, Brian Ingerson, Audrey Tang and Adam Kennedy
License: Artistic or GPL-1+
Files: ./debian/*
Copyright:
2008, AGOSTINI Yves <agostini at univ-metz.fr>
- 2010, Ansgar Burchardt <ansgar at debian.org>
+ 2010-2011, Ansgar Burchardt <ansgar at debian.org>
License: Artistic or GPL-1+
License: Artistic
- This program is free software; you can redistribute it and/or modify
- it under the terms of the Artistic License, which comes with Perl.
- On Debian GNU/Linux systems, the complete text of the Artistic License
- can be found in `/usr/share/common-licenses/Artistic'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ .
+ On Debian systems, the complete text of the Artistic License can be
+ found in `/usr/share/common-licenses/Artistic'.
License: GPL-1+
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 1, or (at your option)
- any later version.
- On Debian GNU/Linux systems, the complete text of the GNU General
- Public License can be found in `/usr/share/common-licenses/GPL'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ .
+ On Debian systems, the complete text of version 1 of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL-1'.
Added: trunk/libnet-sieve-perl/debian/source/local-options
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sieve-perl/debian/source/local-options?rev=72923&op=file
==============================================================================
--- trunk/libnet-sieve-perl/debian/source/local-options (added)
+++ trunk/libnet-sieve-perl/debian/source/local-options Thu Apr 21 14:48:20 2011
@@ -1,0 +1,2 @@
+abort-on-upstream-changes
+unapply-patches
Modified: trunk/libnet-sieve-perl/lib/Net/Sieve.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sieve-perl/lib/Net/Sieve.pm?rev=72923&op=diff
==============================================================================
--- trunk/libnet-sieve-perl/lib/Net/Sieve.pm (original)
+++ trunk/libnet-sieve-perl/lib/Net/Sieve.pm Thu Apr 21 14:48:20 2011
@@ -69,7 +69,7 @@
BEGIN {
use Exporter ();
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
- $VERSION = '0.06';
+ $VERSION = '0.07';
@ISA = qw(Exporter);
#Give a hoot don't pollute, do not export more than needed by default
@EXPORT = qw();
@@ -414,7 +414,7 @@
sub DESTROY {
my $self = shift;
- $self->sfinish();
+ $self->sfinish() if $self->{_sock};
}
#############
@@ -824,11 +824,15 @@
my $self = shift;
my $sock = $self->{_sock};
if (defined $_[0]) {
- $self->ssend($sock, $_[0]);
+ $self->ssend($_[0]);
$self->sget();
}
- $self->ssend($sock, "LOGOUT");
+ $self->ssend("LOGOUT");
$self->sget();
+ if (/^OK/) {
+ undef $self->{_sock};
+ return 1;
+ };
}
=head2 closedie
@@ -883,7 +887,7 @@
=head1 BUGS
-I don't try plain text or client certificate authentification.
+I don't try plain text or client certificate authentication.
You can debug TLS connexion with openssl :
openssl s_client -connect your.server.org:2000 -tls1 -CApath /etc/apache/ssl.crt/somecrt.crt -starttls smtp
@@ -902,7 +906,7 @@
=head1 COPYRIGHT
-Copyright 2008-2010 Yves Agostini - <agostini at univ-metz.fr>
+Copyright 2008-2011 Yves Agostini - <agostini at univ-metz.fr>
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
Modified: trunk/libnet-sieve-perl/t/001_load.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sieve-perl/t/001_load.t?rev=72923&op=diff
==============================================================================
--- trunk/libnet-sieve-perl/t/001_load.t (original)
+++ trunk/libnet-sieve-perl/t/001_load.t Thu Apr 21 14:48:20 2011
@@ -2,7 +2,7 @@
# t/001_load.t - check module loading and create testing directory
-use Test::More tests => 10;
+use Test::More tests => 11;
use strict;
use warnings;
use lib qw(lib);
@@ -10,7 +10,7 @@
BEGIN { use_ok ( 'Net::Sieve' ); }
SKIP: {
- skip "set your own server, user, password to make tests", 9;
+ skip "set your own server, user, password to make tests", 10;
my $sieve = Net::Sieve->new (
server => 'imap.server.org',
@@ -57,4 +57,6 @@
is ( $sieve->capabilities, "fileinto reject envelope vacation imapflags notify subaddress relational regex", "sieve script capabilities");
+ok($sieve->sfinish(),"test end connection");
+
} #SKIP
More information about the Pkg-perl-cvs-commits
mailing list