[Postfixbuch-users] Cyrus und PERL script, ACL setzen?

[Andreas Winkelmann]

Am Montag, 21. Februar 2005 19:57 schrieb Berger, Stefan:

> weiß jemand wie ich meinem Script (setacl_script) beibringe, dass es
> beim Aufruf durch "/setacl_script  username"nicht nur wie unten
> programmiert von der Mailbox user/username die ACL setzt sondern auch
> von allen Unterordnern?
> Habe versucht mit Wildcards (%,*) zu mogeln aber kein Erfolg gehabt. Im
> Cyradm geht das ja auch problemlos mit "sam user/username* cyrus all".
> Wär für jeden Tip dankbar...

cyradm ist Cyrus::IMAP::Shell. Denke mal die Wildcards werden dort 
ausgewertet. Hast Du mal versucht dieses zu benutzen?

> _______________________________________________________________
> #!/usr/bin/perl
> #"authenticate" ["--minssf" N] ["--maxssf" N] ["--mechanisms" list] [user]
> #use strict;
> use Cyrus::IMAP::Admin;
> my $server='localhost';
> my $admin='cyrus';
> my $pass='absolutmegageheim';
> $olduser=$ARGV[0];
>
> my $cyradm = Cyrus::IMAP::Admin->new($server) or
>       die "$0: Unable to connect to IMAP server '$server': $!" ;
>    $cyradm->authenticate(-user => $admin, -password => $pass, -mechanism
> => "LOGIN") or
>                         die "$0: Failed to authenticate to IMAP server
> as '$server': $!";
>
>  !!!!!! Diese Zeile -------->   $cyradm->setacl("user/$olduser", $admin
> => "all") or     <------------ diese Zeile !!!!!
>
>  warn "$0: Unable to setacl for $user on mailbox user/$olduser : $!";
>
> ___________________________________________________________________

-- 
	Andreas