r1854 - packages/libimap-admin-perl/branches/upstream/current

[Niko Tyni]

Author: ntyni-guest
Date: 2006-01-06 14:55:25 +0000 (Fri, 06 Jan 2006)
New Revision: 1854

Added:
   packages/libimap-admin-perl/branches/upstream/current/META.yml
Modified:
   packages/libimap-admin-perl/branches/upstream/current/Admin.pm
   packages/libimap-admin-perl/branches/upstream/current/Changes
   packages/libimap-admin-perl/branches/upstream/current/MANIFEST
Log:
Load /tmp/tmp.2Fdt5u/libimap-admin-perl-1.6.4 into
packages/libimap-admin-perl/branches/upstream/current.


Modified: packages/libimap-admin-perl/branches/upstream/current/Admin.pm
===================================================================
--- packages/libimap-admin-perl/branches/upstream/current/Admin.pm	2006-01-05 16:10:09 UTC (rev 1853)
+++ packages/libimap-admin-perl/branches/upstream/current/Admin.pm	2006-01-06 14:55:25 UTC (rev 1854)
@@ -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/branches/upstream/current/Changes
===================================================================
--- packages/libimap-admin-perl/branches/upstream/current/Changes	2006-01-05 16:10:09 UTC (rev 1853)
+++ packages/libimap-admin-perl/branches/upstream/current/Changes	2006-01-06 14:55:25 UTC (rev 1854)
@@ -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/branches/upstream/current/MANIFEST
===================================================================
--- packages/libimap-admin-perl/branches/upstream/current/MANIFEST	2006-01-05 16:10:09 UTC (rev 1853)
+++ packages/libimap-admin-perl/branches/upstream/current/MANIFEST	2006-01-06 14:55:25 UTC (rev 1854)
@@ -8,3 +8,4 @@
 certs/ca-cert.pem
 certs/client-cert.pem
 certs/client-key.pem
+META.yml                                 Module meta-data (added by MakeMaker)

Added: packages/libimap-admin-perl/branches/upstream/current/META.yml
===================================================================
--- packages/libimap-admin-perl/branches/upstream/current/META.yml	2006-01-05 16:10:09 UTC (rev 1853)
+++ packages/libimap-admin-perl/branches/upstream/current/META.yml	2006-01-06 14:55:25 UTC (rev 1854)
@@ -0,0 +1,10 @@
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
+name:         IMAP-Admin
+version:      1.6.4
+version_from: Admin.pm
+installdirs:  site
+requires:
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.17