r42619 - in /branches/upstream/libimap-admin-perl/current: Admin.pm Changes META.yml

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Mon Aug 24 01:10:20 2009
New Revision: 42619

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=42619
Log:
[svn-upgrade] Integrating new upstream version, libimap-admin-perl (1.6.7)

Modified:
    branches/upstream/libimap-admin-perl/current/Admin.pm
    branches/upstream/libimap-admin-perl/current/Changes
    branches/upstream/libimap-admin-perl/current/META.yml

Modified: branches/upstream/libimap-admin-perl/current/Admin.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimap-admin-perl/current/Admin.pm?rev=42619&op=diff
==============================================================================
--- branches/upstream/libimap-admin-perl/current/Admin.pm (original)
+++ branches/upstream/libimap-admin-perl/current/Admin.pm Mon Aug 24 01:10:20 2009
@@ -11,7 +11,7 @@
 
 use vars qw($VERSION);
 
-$VERSION = '1.6.6';
+$VERSION = '1.6.7';
 
 sub new {
   my $class = shift;
@@ -276,17 +276,22 @@
   if (!defined($self->{'Socket'})) {
     return 1;
   }
-  if (scalar(@_) != 2) {
+  if ((scalar(@_) != 2) && (scalar(@_) != 3)) {
     $self->_error("rename", "incorrect number of arguments");
     return 1;
   }
   my $old_name = shift;
   my $new_name = shift;
-  
-  my $fh = $self->{'Socket'};
-  print $fh qq{try RENAME "$old_name" "$new_name"\n};
-  my $try = $self->_read;
-  if ($try =~ /^try OK/) {
+  my $partition = shift;
+  
+  my $fh = $self->{'Socket'};
+  if (defined $partition) {
+    print $fh qq{try RENAME "$old_name" "$new_name" $partition\n};
+  } else {
+    print $fh qq{try RENAME "$old_name" "$new_name"\n};
+  }
+  my $try = $self->_read;
+  if (($try =~ /^try OK/) || ($try =~ /^\* OK/)) {
     $self->{'Error'} = 'No Errors';
     return 0;
   } else {
@@ -718,6 +723,7 @@
   $err = $imap->unsubscribe("user.bob");
 
   $err = $imap->rename("bboard", "newbboard");
+  $err = $imap->rename("bboard", "newbboard", "partition");
 
   @quota = $imap->get_quotaroot("user.bob");
   @quota = $imap->get_quota("user.bob");
@@ -791,7 +797,7 @@
 
 subscribe/unsubscribe does this action on given mailbox.
 
-rename renames a mailbox.  IMAP servers seem to be peculiar about how they implement this, so I wouldn't necessarily expect it to do what you think it should.
+rename renames a mailbox.  IMAP servers seem to be peculiar about how they implement this, so I wouldn't necessarily expect it to do what you think it should. The Cyrus IMAP server will move a renamed mailbox to the default partition unless a partition is given. You can optionally supply a partition name as an extra argument to this function.
 
 select selects a mailbox to work on. You need the 'r' acl to select a mailbox.
 This command selects a mailbox that mailbox related commands will be performed on.  This is not a recursive command so sub-mailboxes/folders will not be affected unless for some bizarre reason the IMAP server has it implemented as recursive.  It returns an error or an array that contains information about the mailbox.  For example:

Modified: branches/upstream/libimap-admin-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimap-admin-perl/current/Changes?rev=42619&op=diff
==============================================================================
--- branches/upstream/libimap-admin-perl/current/Changes (original)
+++ branches/upstream/libimap-admin-perl/current/Changes Mon Aug 24 01:10:20 2009
@@ -164,3 +164,6 @@
 1.6.6 Sun Sep 07 10:20:22 CST 2008
   - Thomas Jarosch sent a patch that adds unix socket support for those
     who have their admin restricted to unix socket instead of tcp
+
+1.6.7 Sun Aug 23 14:05:04 CST 2009
+  - David Mayo sent a patch that adds partition support for the rename function

Modified: branches/upstream/libimap-admin-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimap-admin-perl/current/META.yml?rev=42619&op=diff
==============================================================================
--- branches/upstream/libimap-admin-perl/current/META.yml (original)
+++ branches/upstream/libimap-admin-perl/current/META.yml Mon Aug 24 01:10:20 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                IMAP-Admin
-version:             1.6.6
+version:             1.6.7
 abstract:            ~
 license:             ~
 author:              ~