Markus Rechberger / Perl / LDAP
 
StartSeite | MarkusRechberger/ Perl/ | Neues | TestSeite | ForumSeite | Teilnehmer | Kategorien | Index | Hilfe | Einstellungen | Ändern

Perl LDAP

#!/bin/perl -w
use strict;

use DBI;
use Net::LDAP qw(:all);

my $ldap = Net::LDAP->new("localhost") or die "$@";

my $mesg;

$mesg = $ldap->bind("cn=admin,dc=local,dc=net",password=>'xxxx',version=>3);

my $DNbranch = "ou=People,dc=local,dc=net";
my $CreateArray = [
        objectClass => ["top", "person", "inetOrgPerson"],
        cn => "Markus Rechberger test",
        sn => "Markus",
        mail => "mare\@gemail.net"
        ];

my $NewDN = "@$CreateArray[2]=".
            "@$CreateArray[3],".
            $DNbranch;


print $NewDN."\n";
my $result = $ldap-> add ($NewDN, attrs=> [ @$CreateArray ]);

urldesc
http://search.cpan.org/~gbarr/perl-ldap-0.33/lib/Net/LDAP/FAQ.podLDAP faq
http://search.cpan.org/~gbarr/perl-ldap-0.33/lib/Net/LDAP.podLDAP doc


StartSeite | MarkusRechberger/ Perl/ | Neues | TestSeite | ForumSeite | Teilnehmer | Kategorien | Index | Hilfe | Einstellungen | Ändern
Text dieser Seite ändern (zuletzt geändert: 25. Mai 2005 15:39 (diff))
Suchbegriff: gesucht wird
im Titel
im Text