[BUG REPORT] file Cyrus/IMAP/Admin.pm procedure mboxconfig

[Andrzej Adam Filip]

Andrzej Adam Filip <anfi at xl.wp.pl> writes:

> * I have been unable to set per mailbox expire times using "mboxconfig"
>   command via cyradm. It gives "mboxconfig: Permission denied"
> * "info" command issued via cyradm reported problerly expire times set
>   "a few upgrades ago"
> * SETANNOTATION issued directly in IMAP session (imptest) has been able
>   to set expire annotation (reported later by "info")
>
> I use cyrus-imapd-2.2.13-6 on debian/testing.
>
> Is it something specific to this debian package or this cyrus release?


I have traced down the problem to "double assigment" in perl module
Cyrus::IMAP::Admin,  procedure  mboxconfig 

/usr/lib/perl5/Cyrus/IMAP/Admin.pm
#v+
  40 # $Id: Admin.pm,v 1.48 2005/11/21 16:39:25 murch Exp $

 796   if(exists($values{$entry})) {
 797     $entry = $values{$entry};
 798   } else {
 799     $self->{error} = "Unknown parameter $entry" unless substr($entry,0,1) eq "/";
 800   }
 801
 802   $entry = $values{$entry};
#v-

Assigment in line 802 is a bug after assigment in line 797.

797: "expire" -> "/vendor/cmu/cyrus-imapd/expire"
802: "/vendor/cmu/cyrus-imapd/expire" -> undef
-- 
[pl2en: Andrew] Andrzej Adam Filip : anfi at priv.onet.pl : anfi at xl.wp.pl