DseWiki: MarkusRechberger/Perl/LDAP

Veränderung (zum vorhergehenden Autor) (Änderung, Korrektur, Normalansicht)

Verändert: 1c1,38

Beschreibe hier die neue Seite.

== Perl LDAP ==

[[Code]

#!/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? ]);
]

[[Tabelle]
url, desc

http://search.cpan.org/~gbarr/perl-ldap-0.33/lib/Net/LDAP/FAQ.pod, LDAP faq

http://search.cpan.org/~gbarr/perl-ldap-0.33/lib/Net/LDAP.pod, LDAP doc
]

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 ]);

url desc

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

http://search.cpan.org/~gbarr/perl-ldap-0.33/lib/Net/LDAP.pod LDAP doc