account.pm
branchcms
changeset 36 59c7146ec6f0
parent 23 72ba031fec20
child 72 66bf85163780
child 73 e3d571c7734d
equal deleted inserted replaced
32:de9cba81ab3e 36:59c7146ec6f0
   159     if($Cf->mbox) {
   159     if($Cf->mbox) {
   160 	verbose("\n\t$mbox...");
   160 	verbose("\n\t$mbox...");
   161 
   161 
   162 	if ($imap->list($mbox)) { verbose("exists") }
   162 	if ($imap->list($mbox)) { verbose("exists") }
   163 	else {
   163 	else {
   164 	    $imap->create($mbox) and verbose("ok") or die $@;
   164 	    $imap->create($mbox) and verbose("ok") or die $imap->error();
   165 	    $imap->setacl($mbox, $Cf->imap_admin => "lrswipcda") or die $@;
   165 	    $imap->setacl($mbox, $Cf->imap_admin => "lrswipcda") or die $imap->error();
   166 	    $imap->setquota($mbox, STORAGE => 1024 * $Cf->imap_quota) or die $@;
   166 	    $imap->setquota($mbox, STORAGE => 1024 * $Cf->imap_quota) or die $imap->errror();
   167 	}
   167 	}
   168     }
   168     }
   169 
   169 
   170 
   170 
   171     verbose("\n");
   171     verbose("\n");