Thread Frage zu Perl Script bzgl. ldapsearch (3 answers)
Opened by krusty at 2006-08-04 12:55

krusty
 2006-08-04 12:55
#68538 #68538
User since
2006-01-27
91 Artikel
BenutzerIn
[default_avatar]
Hallo zusammen,

habe ein kleines Script geschrieben, bzw. ein Beispielscript von cpan.org verändert.

Will auf einem LDAP einen search ausführen. Der search befehl ist so geschrieben, das es den eintrag entweder gibt oder nicht. Genau das will ich als Ausgabe haben. Habe das unten aufgeführte Script getestet und wenn die Suche erfolgreich war erhalte ich eine 1 und wenn nicht bekomme ich eine 0 zurück. Bin mir nur nicht sicher ob das wirklich so in Ordnung ist.

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl -w
use Net::LDAP;

$ldap = Net::LDAP->new( '127.0.0.1' ) or die "$@";
$mesg = $ldap->bind;
$mesg = $ldap->search(base => "o=test",
filter => "(&(objectclass=domain)(maildomain=test.de))"
);
$mesg->code && die $mesg->error;
print "Debug: ".($mesg->entries)."\n";
$mesg->$ldap->unbind;


Könntet ihr bitte mal drüber schauen? Danke fürs Feedback.

View full thread Frage zu Perl Script bzgl. ldapsearch