|
From: Craig W. <cra...@az...> - 2005-02-10 20:34:10
|
On Thu, 2005-02-10 at 18:51 +0800, Murray Trainer wrote:
> >
> >
> I am sure their people on Perl or Redhat mailing lists that would help
> you to
> get the NetxAP module working on Redhat instead of you having to
> reinvent the wheel.
>
---
I gather that the reason that this perl module has gone cold is the perl
utilities that are supplied as part of cyrus-imap have supplanted the
code in Net::IMAP or known as the perl module NetxAP
# locate Cyrus::IMAP::Admin
/usr/share/man/man3/Cyrus::IMAP::Admin.3pm.gz
[root@linuxserver scripts]# rpm -q --
whatprovides /usr/share/man/man3/Cyrus\:\:IMAP\:\:Admin.3pm.gz
perl-Cyrus-2.2.10-3.fc3
now I know less about perl than I know about cyrus and even less about
webmin though I've used it for a lot of years but I have the following
little program...
# cat ldap_useradmin.deluser
#! /usr/bin/perl -w
use Cyrus::IMAP::Admin;
$imap = Cyrus::IMAP::Admin->new("localhost")
or die "Failed to connect";
$imap->authenticate("-user" => "cyrus",
"-password" => "MY_PASS",
"-mechanism" => "LOGIN")
or die "Failed to authenticate";
$imap->setacl("user.public","cyrus","+c") or die "Failed to set
permissions for cyrus";
$imap->delete("user.public") or die "Failed to delete mailbox";
that can now delete the mailboxes
there is a webmin module (obviously still a little rough around the
edges but entirely functional) called IMAP-Admin which I am certain uses
these perl modules supplied with cyrus.
How long these perl modules have been supplied with cyrus imapd I don't
know - I suppose the change logs would have that info but it does seem
that at best, monkeying with Net::IMAP perl module is a short term fix
and the Users and Groups Module needs to be updated. I would love to
help in this arena but I do have some other things occupying my time and
am going to work it through my way and if and when time permits, I will
slaughter the perl in Jamie's module to see if I can make it work
without the outdated module.
Thanks
Craig
|