CVS: ispman/bin ispman.listMailboxACL,NONE,1.1

Update of /cvsroot/ispman/ispman/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv3404

Added Files:
	ispman.listMailboxACL 
Log Message:
incomplete script to list mailbox ACL. Will work only for Cyrus

--- NEW FILE ---
#!/usr/bin/perl
BEGIN{
   use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../lib", "$FindBin::Bin/../conf");
   unless  (@ARGV) {
      print "Usage: $FindBin::Script -h host  mailbox [mailbox] [mailbox] .. [mailbox]\n";
      exit;
   }
}

require "cyrusadmin.pm";
@mailboxes=@ARGV;


for $mailbox(@mailboxes){
   $mailbox="$mailbox_prefix$mailbox";
   try($imap->get_acl($mailbox));

   #try($imap->set_acl($mailbox, $admin, "lrswipdca"));
   #try($imap->delete($mailbox));
}


exit;

__END__




-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf