r1856 - in packages/libimap-admin-perl/trunk: . debian

[Niko Tyni]

Author: ntyni-guest
Date: 2006-01-06 14:56:56 +0000 (Fri, 06 Jan 2006)
New Revision: 1856

Added:
   packages/libimap-admin-perl/trunk/META.yml
Modified:
   packages/libimap-admin-perl/trunk/Admin.pm
   packages/libimap-admin-perl/trunk/Changes
   packages/libimap-admin-perl/trunk/MANIFEST
   packages/libimap-admin-perl/trunk/debian/changelog
Log:
Injected new upstream release.


Modified: packages/libimap-admin-perl/trunk/Admin.pm
===================================================================
--- packages/libimap-admin-perl/trunk/Admin.pm	2006-01-06 14:55:30 UTC (rev 1855)
+++ packages/libimap-admin-perl/trunk/Admin.pm	2006-01-06 14:56:56 UTC (rev 1856)
@@ -1,4 +1,4 @@
-# $Id: Admin.pm,v 1.36 2001/11/06 02:17:17 eric Exp $
+# IMAP::Admin - perl module for helping ease the administration of imap servers
 
 package IMAP::Admin;
 
@@ -11,7 +11,7 @@
 
 use vars qw($VERSION);
 
-$VERSION = '1.6.1';
+$VERSION = '1.6.4';
 
 sub new {
   my $class = shift;
@@ -362,8 +362,7 @@
   my $try = $self->_read;
   while ($try =~ /^\* QUOTA/) {
     if ($try !~ /QUOTAROOT/) { # some imap servers give this extra line
-      $try =~ tr/\)\(//d;
-      @info = (split(' ', $try))[2,4,5];
+      @info = ($try =~ /QUOTA\s(.*?)\s\(STORAGE\s(\d+)\s(\d+)/);
       push @quota, @info;
     }
     $try = $self->_read;
@@ -397,8 +396,7 @@
   print $fh qq{try GETQUOTA "$mailbox"\n};
   my $try = $self->_read;
   while ($try =~ /^\* QUOTA/) {
-    $try =~ tr/\)\(//d;
-    @info = (split(' ',$try))[2,4,5];
+    @info = ($try =~ /QUOTA\s(.*?)\s\(STORAGE\s(\d+)\s(\d+)/);
     push @quota, @info;
     $try = $self->_read;
   }
@@ -785,7 +783,7 @@
 
 =head1 CVS REVISION
 
-$Id: Admin.pm,v 1.36 2001/11/06 02:17:17 eric Exp $
+$Id: Admin.pm,v 1.37 2002/02/01 22:46:57 eric Exp $
 
 =head1 AUTHOR
 

Modified: packages/libimap-admin-perl/trunk/Changes
===================================================================
--- packages/libimap-admin-perl/trunk/Changes	2006-01-06 14:55:30 UTC (rev 1855)
+++ packages/libimap-admin-perl/trunk/Changes	2006-01-06 14:56:56 UTC (rev 1856)
@@ -145,3 +145,17 @@
   - added error condition for CRAM capability, cram use wanted without
     fallback, but cram not available
 
+1.6.2 Sun Jan 30 10:33:50 CST 2005
+  - bug report from Francesco Gennai, get_quota and get_quotaroot improperly
+    handling folders/mailboxes with spaces
+    patched both with a regex to handle the data extraction, should work now.
+
+1.6.3 Sun Jan 30 20:53:22 CST 2005
+  - arrg, I fixed get_quotaroot incorrectly and didn't test it. It should
+    have used the same regex as get_quota instead of what I did. Thanks
+    Franscesco for pointing out the error (again).
+
+1.6.4 Wed Feb 16 07:43:28 CST 2005
+  - I screwed the pooch on 1.6.3, blatant typo pointed out to me by matrix200
+    guess I forgot to run make test before releasing.
+

Modified: packages/libimap-admin-perl/trunk/MANIFEST
===================================================================
--- packages/libimap-admin-perl/trunk/MANIFEST	2006-01-06 14:55:30 UTC (rev 1855)
+++ packages/libimap-admin-perl/trunk/MANIFEST	2006-01-06 14:56:56 UTC (rev 1856)
@@ -8,3 +8,4 @@
 certs/ca-cert.pem
 certs/client-cert.pem
 certs/client-key.pem
+META.yml                                 Module meta-data (added by MakeMaker)

Copied: packages/libimap-admin-perl/trunk/META.yml (from rev 1855, packages/libimap-admin-perl/branches/upstream/current/META.yml)

Modified: packages/libimap-admin-perl/trunk/debian/changelog
===================================================================
--- packages/libimap-admin-perl/trunk/debian/changelog	2006-01-06 14:55:30 UTC (rev 1855)
+++ packages/libimap-admin-perl/trunk/debian/changelog	2006-01-06 14:56:56 UTC (rev 1856)
@@ -1,3 +1,9 @@
+libimap-admin-perl (1.6.4-1) unstable; urgency=low
+
+  * New upstream release. (Closes: #329562)
+
+ -- Niko Tyni <ntyni at iki.fi>  Fri,  6 Jan 2006 16:55:36 +0200
+
 libimap-admin-perl (1.6.1-2) UNRELEASED; urgency=low
 
   * NOT RELEASED YET