Bug#389597: /usr/lib/perl5/Cyrus/IMAP/Admin.pm: cyrus-admin tools cannot set mailbox annotations

[Ben Poliakoff]

Package: libcyrus-imap-perl22
Version: 2.2.13-7
Severity: normal
File: /usr/lib/perl5/Cyrus/IMAP/Admin.pm
Tags: patch


This bug seems to be related to the application of a kolab patch.  An 'if'
clause was expanded to include '$entry = $values{$entry};', but the
original '$entry = $values{$entry};' that had been outside of the 'if'
clause wasn't removed.  This results in the inablility to set
annotations on mailboxes.  Here's an illustration...

Without the attached patch the current version of Admin.pm sends this to
the IMAP server:

    SETANNOTATION "inbox.bar" "" ("value.shared" "7")

    (the server doesn't like this)

After the attached patch has been applied Admin.pm sends this to
the IMAP server:

    SETANNOTATION "inbox.foo" ("/vendor/cmu/cyrus-imapd/expire" \
        ("value.shared" "7"))

....and the server is happy.

Here's the tiny little patch:

-- begin patch -----------------------------------------------------
--- Admin.pm.dist	2006-09-25 16:17:46.000000000 -0700
+++ Admin.pm	2006-09-26 10:17:53.000000000 -0700
@@ -799,8 +799,6 @@
     $self->{error} = "Unknown parameter $entry" unless substr($entry,0,1) eq "/";
   }
 
-  $entry = $values{$entry};
-
   my ($rc, $msg);
 
   $value = undef if($value eq "none");
-- end patch -----------------------------------------------------

Ben

-- System Information:
Debian Release: 4.0
  APT prefers testing
  APT policy: (500, 'testing')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.17-2-686
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)

Versions of packages libcyrus-imap-perl22 depends on:
ii  libc6                   2.3.6.ds1-4      GNU C Library: Shared libraries
ii  libdb4.2                4.2.52+dfsg-1    Berkeley v4.2 Database Libraries [
ii  libsasl2                2.1.19.dfsg1-0.5 Authentication abstraction library
ii  libssl0.9.8             0.9.8c-1         SSL shared libraries
ii  perl                    5.8.8-6.1        Larry Wall's Practical Extraction 
ii  perl-base [perlapi-5.8. 5.8.8-6.1        The Pathologically Eclectic Rubbis

libcyrus-imap-perl22 recommends no packages.

-- no debconf information