account.pm
branchfoerste
changeset 46 62eb58a0ec39
parent 45 5f7c647f7cc4
child 47 05d5ada37387
equal deleted inserted replaced
45:5f7c647f7cc4 46:62eb58a0ec39
   309 	$e->dump if $Cf->debug;
   309 	$e->dump if $Cf->debug;
   310 
   310 
   311 	if ($modified) {
   311 	if ($modified) {
   312 	    $r = $e->update($ldap);
   312 	    $r = $e->update($ldap);
   313 	    die $r->error.$r->code if $r->code;
   313 	    die $r->error.$r->code if $r->code;
   314 	}
       
   315 
       
   316 	# FIXME: Wenn keine Mailbox existiert, gibt es hier ein Problem
       
   317 	if (defined $Cf->imap_quota) {
       
   318 #	    $imap->setquota($mbox, STORAGE => $Cf->imap_quota * 1024)
       
   319 #	    or die $@;
       
   320 	}
   314 	}
   321 
   315 
   322 	verbose "ok\n";
   316 	verbose "ok\n";
   323 
   317 
   324 	print "\n";
   318 	print "\n";