Example: Authentication

#!/usr/bin/perl5

use Mozilla::LDAP::Conn;

#setup global parameters, using Getopt

$srch = “(uid=“ . $ENV{USER} . “);

$c = new Mozilla::LDAP::Conn($host,$port);

$entry = $c->search($base, “SUB”, $srch);

if ($entry && !$c->nextEntry() {

$dn = $entry->getDN();

die “Bummer dude!” unless

$conn->simpleAuth($dn,$pwd);

# We had a good authentication, go on!

}

$c->close() if $c;

Previous slide

Next slide

Back to first slide

View graphic version