r72919 - in /branches/upstream/libnet-sieve-perl/current: Changes META.yml README Todo lib/Net/Sieve.pm t/001_load.t

ansgar at users.alioth.debian.org ansgar at users.alioth.debian.org
Thu Apr 21 14:43:21 UTC 2011 

Author: ansgar
Date: Thu Apr 21 14:43:11 2011
New Revision: 72919

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

Modified:
    branches/upstream/libnet-sieve-perl/current/Changes
    branches/upstream/libnet-sieve-perl/current/META.yml
    branches/upstream/libnet-sieve-perl/current/README
    branches/upstream/libnet-sieve-perl/current/Todo
    branches/upstream/libnet-sieve-perl/current/lib/Net/Sieve.pm
    branches/upstream/libnet-sieve-perl/current/t/001_load.t

Modified: branches/upstream/libnet-sieve-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sieve-perl/current/Changes?rev=72919&op=diff
==============================================================================
--- branches/upstream/libnet-sieve-perl/current/Changes (original)
+++ branches/upstream/libnet-sieve-perl/current/Changes Thu Apr 21 14:43:11 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: branches/upstream/libnet-sieve-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sieve-perl/current/META.yml?rev=72919&op=diff
==============================================================================
--- branches/upstream/libnet-sieve-perl/current/META.yml (original)
+++ branches/upstream/libnet-sieve-perl/current/META.yml Thu Apr 21 14:43:11 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: branches/upstream/libnet-sieve-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sieve-perl/current/README?rev=72919&op=diff
==============================================================================
--- branches/upstream/libnet-sieve-perl/current/README (original)
+++ branches/upstream/libnet-sieve-perl/current/README Thu Apr 21 14:43:11 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: branches/upstream/libnet-sieve-perl/current/Todo
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sieve-perl/current/Todo?rev=72919&op=diff
==============================================================================
--- branches/upstream/libnet-sieve-perl/current/Todo (original)
+++ branches/upstream/libnet-sieve-perl/current/Todo Thu Apr 21 14:43:11 2011
@@ -2,6 +2,5 @@
 
 - add doc in constructor, bugs, support
 - make package with Module::Install
-- skip connection test
 
 

Modified: branches/upstream/libnet-sieve-perl/current/lib/Net/Sieve.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sieve-perl/current/lib/Net/Sieve.pm?rev=72919&op=diff
==============================================================================
--- branches/upstream/libnet-sieve-perl/current/lib/Net/Sieve.pm (original)
+++ branches/upstream/libnet-sieve-perl/current/lib/Net/Sieve.pm Thu Apr 21 14:43:11 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: branches/upstream/libnet-sieve-perl/current/t/001_load.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sieve-perl/current/t/001_load.t?rev=72919&op=diff
==============================================================================
--- branches/upstream/libnet-sieve-perl/current/t/001_load.t (original)
+++ branches/upstream/libnet-sieve-perl/current/t/001_load.t Thu Apr 21 14:43:11 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