use strict;
use Net::LDAP;
# global variables
#
my $bind_dn = "uid=xxx,ou=Directory Administrators,dc=xxx,dc=com";
my $bind_pw = "secret";
my $host = "ldapd1.xxx.com";
my $port = 389;
my $group = "Operator";
my $action = "add";
# Read in user name from Web Field
my ($buffer, @pairs, %FORM);
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "POST")
{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach my $pair (@pairs)
{
my ($name, $fvalue) = split(/=/, $pair);
$fvalue =~ tr/+/ /;
$fvalue =~ s/%(..)/pack("C", hex($1))/eg;
$FORM{$name} = $fvalue;
}
my $mail = $FORM{'j_username'};
# Print out header stuff
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "Request Access\n";
if ($mail eq "") {
printError ("You must enter a user name");
}
# configuration
#
my $usr_base_dn = "ou=people,ou=global,dc=xxx,dc=com";
my $grp_base_dn = "ou=xxx,ou=groups,ou=services,ou=global,dc=xxx,dc=com";
# open an LDAP connection
my $ldap = new Net::LDAP($host, port => $port);
if (!$ldap)
{
printError ("Cannot contact Directory Server: $@\n");
exit;
}