Case study: modattr.pl

#!/usr/bin/perl5

use Getopt::Std;

use Mozilla::LDAP::Conn;

use Mozilla::LDAP::Utils;

use strict;

no strict "vars";

$APPNAM = "modattr";

$USAGE = "$APPNAM [-dnvW] -b base -h host -D bind\

-w pswd -P cert attr=value filter";

if (!getopts('adnvWb:h:D:p:s:w:P:')) {

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

exit;

}

%ld = Mozilla::LDAP::Utils::ldapArgs();

Mozilla::LDAP::Utils::userCredentials(\%ld) unless $opt_n;

Previous slide

Next slide

Back to first slide

View graphic version