See the IMAP:Admin for all of the commands available. Here is my script
that I will run on the 1st of each month.
It finds all subfolders in the folder Listserv.
It selects only current folders, not archived folders:
Listserv.Cyrus-Info (current)
Listserv.Cyrus-Info.2001-November (archive)
It resets the ACL for current Listserv folders to readonly, renames
these folders with the month and year (archive), creates new folders,
and sets the ACL for the new folders.
Hope this helps
Lance
use strict;
#set parameter for logginn into Cyrus
use IMAP::Admin;
my $mailhost = 'yourhostname';
my $username = 'cyrus-admin';
my $password = 'password';
#Get get and convert to Character month
#Then, combine into desired format
my $cmonth;
my $date;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isday) =
localtime(time);
$year +=1900;
if ($mon==1){$cmonth='January'};
if ($mon==2){$cmonth='February'};
if ($mon==3){$cmonth='March'};
if ($mon==4){$cmonth='April'};
if ($mon==5){$cmonth='May'};
if ($mon==6){$cmonth='June'};
if ($mon==7){$cmonth='July'};
if ($mon==8){$cmonth='August'};
if ($mon==9){$cmonth='September'};
if ($mon==10){$cmonth='October'};
if ($mon==11){$cmonth='November'};
if ($mon==12){$cmonth='December'};
my $date=$year.-$cmonth;
my $imap = IMAP::Admin->new('Server'=>$mailhost,
'Login'=>$username,
'Password'=>$password);
# and any of the SSL_ options from IO::Socket::SSL
# 'Port'=>port# (143 is default),
# 'Separator'=>".", # default is a period
# 'CRAM'=>1, # off by default
# 'SSL'=>1, # off by default
my @list = $imap->list("Listserv.*");
my $listt;
foreach $listt (@list){
if ($listt =~ m/Listserv\.[a-zA-Z\-]+$/){
#print "$listt \n";
my $err =
$imap->set_acl($listt,"all","read","anyone","read","lance","read" );
my $err = $imap->rename($listt, $listt.$date);
my $err = $imap->create($listt);
my $err =
$imap->set_acl($listt,"all","append","anyone","append","lance","write","cyrus","all" );
}
}
$imap->close; # close open imap connection
On Sat, 2001-12-29 at 08:12, Peter Pilsl wrote:
> On Fri, Dec 28, 2001 at 08:51:38PM -0600, Lance Hoffmeyer wrote:
> > Problem solved.
> >
>
> how ? what was the problem. I will deal with this modules in the near
> future, so things like this will prepare me well :)
>
> peter
>
> --
> mag. peter pilsl
>
> phone: +43 676 3574035
> fax : +43 676 3546512
> email: [EMAIL PROTECTED]
> sms : [EMAIL PROTECTED]
>
> pgp-key available
>
