Author: varkoly Date: Mon May 26 19:17:43 2008 New Revision: 47891 URL: http://svn.opensuse.org/viewcvs/yast?rev=47891&view=rev Log: adapt the new acls Modified: trunk/mail/users-plugin/UsersPluginMail.pm Modified: trunk/mail/users-plugin/UsersPluginMail.pm URL: http://svn.opensuse.org/viewcvs/yast/trunk/mail/users-plugin/UsersPluginMail.pm?rev=47891&r1=47890&r2=47891&view=diff ============================================================================== --- trunk/mail/users-plugin/UsersPluginMail.pm (original) +++ trunk/mail/users-plugin/UsersPluginMail.pm Mon May 26 19:17:43 2008 @@ -754,7 +754,7 @@ #return undef; } - $ret = $imap->setacl($fname, $imapadm, "lrswipcda"); + $ret = $imap->setacl($fname, $imapadm, "lrswipkxtea"); if($$ret{Status} ne "ok") { y2internal("setacl failed: Serverresponse:$$ret{Status} => $$ret{Text}\n"); $errtxt .= "setacl failed: Serverresponse:$$ret{Status} => $$ret{Text}\n"; @@ -770,7 +770,7 @@ if( $config->{'what'} eq 'group' ) { # Make acl for the group member - $ret = $imap->setacl($fname, 'group:'.$data->{cn}, "lrswipcd"); + $ret = $imap->setacl($fname, 'group:'.$data->{cn}, "lrswipkxtea"); if($$ret{Status} ne "ok") { y2internal("setacl for group failed: Serverresponse:$$ret{Status} => $$ret{Text}\n"); $errtxt .= "setacl for group failed: Serverresponse:$$ret{Status} => $$ret{Text}\n"; @@ -848,7 +848,7 @@ #return undef; } - $ret = $imap->setacl($fname, $imapadm, "lrswipcda"); + $ret = $imap->setacl($fname, $imapadm, "lrswipkxtea"); if($$ret{Status} ne "ok") { y2internal("setacl failed: Serverresponse:$$ret{Status} => $$ret{Text}\n"); $errtxt .= "setacl failed: Serverresponse:$$ret{Status} => $$ret{Text}\n"; @@ -864,7 +864,7 @@ if( $config->{'what'} eq 'group' ) { # Make acl for the group member - $ret = $imap->setacl($fname, 'group:'.$data->{cn}, "lrswipcd"); + $ret = $imap->setacl($fname, 'group:'.$data->{cn}, "lrswipkxtea"); if($$ret{Status} ne "ok") { y2internal("setacl for group failed: Serverresponse:$$ret{Status} => $$ret{Text}\n"); $errtxt .= "setacl for group failed: Serverresponse:$$ret{Status} => $$ret{Text}\n"; -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org