Case study: modattr.pl

$conn = new Mozilla::LDAP::Conn(\%ld);

die "Couldn't connect to LDAP server $ld{host}" unless $conn;

$conn->setDefaultRebindProc($ld{bind}, $ld{pswd});

($change, $search) = @ARGV;

if (($change eq "") || ($search eq "")) {

print "usage: $APPNAM $USAGE\n";

exit;

}

($attr, $value) = split(/=/, $change, 2);

$entry = $conn->search($ld{root}, $ld{scope}, $search);

while ($entry) {

$changed = 0;

if ($opt_d) {

if (defined $entry->{$attr}) {

Previous slide

Next slide

Back to first slide

View graphic version