r42621 - in /trunk/libimap-admin-perl: Admin.pm Changes META.yml debian/changelog debian/control debian/copyright debian/rules

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Mon Aug 24 01:21:56 UTC 2009 

Author: jawnsy-guest
Date: Mon Aug 24 01:21:43 2009
New Revision: 42621

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=42621
Log:
WAITS for copyright information from upstream
* New upstream release
  + Add partition support for the rename function
* Short rules format (dh 7.0.50, quilt 0.46-7)
* Rewrote control description
* Standards-Version 3.8.3 (no changes)
* Remove duplicate Section/Priority information in binary paragraph
* Add myself to Copyright and Uploaders
* Updated copyright information

Modified:
    trunk/libimap-admin-perl/Admin.pm
    trunk/libimap-admin-perl/Changes
    trunk/libimap-admin-perl/META.yml
    trunk/libimap-admin-perl/debian/changelog
    trunk/libimap-admin-perl/debian/control
    trunk/libimap-admin-perl/debian/copyright
    trunk/libimap-admin-perl/debian/rules

Modified: trunk/libimap-admin-perl/Admin.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libimap-admin-perl/Admin.pm?rev=42621&op=diff
==============================================================================
--- trunk/libimap-admin-perl/Admin.pm (original)
+++ trunk/libimap-admin-perl/Admin.pm Mon Aug 24 01:21:43 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: trunk/libimap-admin-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libimap-admin-perl/Changes?rev=42621&op=diff
==============================================================================
--- trunk/libimap-admin-perl/Changes (original)
+++ trunk/libimap-admin-perl/Changes Mon Aug 24 01:21:43 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: trunk/libimap-admin-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libimap-admin-perl/META.yml?rev=42621&op=diff
==============================================================================
--- trunk/libimap-admin-perl/META.yml (original)
+++ trunk/libimap-admin-perl/META.yml Mon Aug 24 01:21:43 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                IMAP-Admin
-version:             1.6.6
+version:             1.6.7
 abstract:            ~
 license:             ~
 author:              ~

Modified: trunk/libimap-admin-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libimap-admin-perl/debian/changelog?rev=42621&op=diff
==============================================================================
--- trunk/libimap-admin-perl/debian/changelog (original)
+++ trunk/libimap-admin-perl/debian/changelog Mon Aug 24 01:21:43 2009
@@ -1,4 +1,16 @@
-libimap-admin-perl (1.6.6-2) UNRELEASED; urgency=low
+libimap-admin-perl (1.6.7-1) UNRELEASED; urgency=low
+
+  WAITS for copyright information from upstream
+
+  [ Jonathan Yu ]
+  * New upstream release
+    + Add partition support for the rename function
+  * Short rules format (dh 7.0.50, quilt 0.46-7)
+  * Rewrote control description
+  * Standards-Version 3.8.3 (no changes)
+  * Remove duplicate Section/Priority information in binary paragraph
+  * Add myself to Copyright and Uploaders
+  * Updated copyright information
 
   [ gregor herrmann ]
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN
@@ -10,7 +22,7 @@
   [ Nathan Handler ]
   * debian/watch: Update to ignore development releases.
 
- -- Rene Mayorga <rmayorga at debian.org>  Tue, 20 Jan 2009 01:27:38 -0600
+ -- Jonathan Yu <frequency at cpan.org>  Sun, 23 Aug 2009 17:13:49 -0400
 
 libimap-admin-perl (1.6.6-1) unstable; urgency=low
 

Modified: trunk/libimap-admin-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libimap-admin-perl/debian/control?rev=42621&op=diff
==============================================================================
--- trunk/libimap-admin-perl/debian/control (original)
+++ trunk/libimap-admin-perl/debian/control Mon Aug 24 01:21:43 2009
@@ -1,20 +1,23 @@
 Source: libimap-admin-perl
 Section: perl
 Priority: extra
+Build-Depends: debhelper (>= 7.0.50), quilt (>= 0.46-7)
+Build-Depends-Indep: perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Niko Tyni <ntyni at iki.fi>, Rene Mayorga <rmayorga at debian.org>
-Build-Depends: debhelper (>= 7), quilt
-Standards-Version: 3.8.0
+Uploaders: Niko Tyni <ntyni at iki.fi>, Rene Mayorga <rmayorga at debian.org>,
+ Jonathan Yu <frequency at cpan.org>
+Standards-Version: 3.8.3
 Homepage: http://search.cpan.org/dist/IMAP-Admin/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libimap-admin-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libimap-admin-perl/
 
 Package: libimap-admin-perl
 Architecture: all
-Section: perl
-Priority: extra
 Depends: ${perl:Depends}, ${misc:Depends}
 Recommends: libio-socket-ssl-perl, libdigest-hmac-perl
-Description: Administer IMAP servers
- IMAP::Admin is designed to take the pain out of writing programs for
- administering an IMAP server like Cyrus.
+Description: Perl module for administrating IMAP servers
+ IMAP::Admin provides basic IMAP server administration functions, providing
+ functions for creating and deleting mailboxes, as well as setting various
+ information such as quotas and access rights. It should theoretically work
+ with any RFC compliant IMAP server, and also performs CAPABILITY checks for
+ specific extensions to determine if they are supported.

Modified: trunk/libimap-admin-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libimap-admin-perl/debian/copyright?rev=42621&op=diff
==============================================================================
--- trunk/libimap-admin-perl/debian/copyright (original)
+++ trunk/libimap-admin-perl/debian/copyright Mon Aug 24 01:21:43 2009
@@ -1,20 +1,34 @@
-Format-Specification: http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=226
+Format-Specification:
+    http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
 Upstream-Name: IMAP-Admin
-Upstream-Maintainer:  Eric Estabrooks <eric at urbanrage.com>
+Upstream-Maintainer: Eric Estabrooks <eric at urbanrage.com>
 Upstream-Source: http://search.cpan.org/dist/IMAP-Admin
 
 Files: *
-Copyright: © 2002-2008 Eric Estabrooks <eric at urbanrage.com>
+Copyright: Eric Estabrooks <eric at urbanrage.com>
 License: Artistic
- This is licensed under the Artistic license
 
 Files: debian/*
-Copyright: © 2000 Alan Dorman <mdorman at debian.org>
+Copyright: 2009, Jonathan Yu <frequency at cpan.org>
+ 2008, Rene Mayorga <rmayorga at debian.org.sv>
+ 2006, Niko Tyni <ntyni at iki.fi>
+ 2004, Joachim Breitner <nomeata at debian.org>
+ 2003, Daniel Schepler <schepler at debian.org>
+ 2000, Alan Dorman <mdorman at debian.org>
+License-Alias: Perl
 License: GPL-1+ | Artistic
- This library is free software; you can redistribute it and/or modify it
- under the same terms as Perl itself.
 
-On Debian systems, the complete text of the GNU General Public License can be
-found in /usr/share/common-licenses/GPL and the Artistic License in
-/usr/share/common-licenses/Artistic.
+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'
 
+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'
+

Modified: trunk/libimap-admin-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libimap-admin-perl/debian/rules?rev=42621&op=diff
==============================================================================
--- trunk/libimap-admin-perl/debian/rules (original)
+++ trunk/libimap-admin-perl/debian/rules Mon Aug 24 01:21:43 2009
@@ -1,24 +1,7 @@
 #!/usr/bin/make -f
-include /usr/share/quilt/quilt.make
 
-build: build-stamp
-build-stamp: $(QUILT_STAMPFN)
-	NOINTERNET=1 dh build
-	touch $@
+%:
+	dh --with quilt $@
 
-clean: unpatch
-	dh $@
-
-install: install-stamp
-install-stamp: build-stamp
-	dh install
-	touch $@
-
-binary-arch:
-
-binary-indep: install
-	dh $@
-
-binary: binary-arch binary-indep
-
-.PHONY: binary binary-arch binary-indep install clean build
+override_dh_auto_test:
+	NOINTERNET=1 dh_auto_test

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