[Date Prev][Date Next] [Chronological] [Thread] [Top]

Re: WWW LDAP frontends?



On Sat, Apr 07, 2001 at 05:14:54PM +0200, Tarjei Huse wrote:
> Hi all,
> 
> I'm wondering if anyone knows of an ldap-interface (preferably www based as
> it should be usable from a win machine) that can make me setup
> cyrus-mailboxes and homedirs when creating userers?

Stick this in a Perl script for Cyrus:
[Change *ADMIN-LOGIN* and *ADMIN-PASSWORD* as appropriate.]

        print "Creating Cyrus account:\n";
        use IO::Socket;
        $imap_sock = IO::Socket::INET->new(PeerAddr => 'cyrus.tellme.com',
                PeerPort => 'imap', Proto => 'tcp');
        my $r = <$imap_sock>;
        if( $r =~ /^\* OK/ ) { print $r; } else { warn "warn: $r"; }
        print $imap_sock ++$imap_cid . " login *ADMIN-LOGIN* *ADMIN-PASSWORD*\r\n";
        my $r = <$imap_sock>;
        if( $r =~ /^$imap_cid OK/ ) { print $r; } else { warn "warn: $r"; }
        print $imap_sock ++$imap_cid . " create user.$username\r\n";
        my $r = <$imap_sock>;
        if( $r =~ /^$imap_cid OK/ ) { print $r; } else { warn "warn: $r"; }
        print $imap_sock ++$imap_cid . " logout\r\n";
        my $r = <$imap_sock>;
        if( $r =~ /^\* BYE/ ) { print $r; } else { warn "warn: $r"; }

>From what I've found, one will write many scripts when one is an SA.
Has anyone played with OpenLDAP backend stuff to do this sort of thing
automatically when a user is created?

-danny