ALL } sub parse_form{ my %form; foreach my $p (param()) { $form{$p} = param($p); } return %form; } sub parse_queries{ # Hack for now, handle only one my (%form) = @_; my $query = $form{'query'}; my $queryString; $queryString = $query; # if ($query =~ /first:(.*)/){ $queryString = $1} # if ($query =~ /last:(.*)/){ $queryString = $1} print "Your query,
".$queryString." returned the following results. . ."; return $queryString; } sub open_LDAP{ my ($ldapServer) = @_; my $ldap = Net::LDAP->new ( $ldapServer ) or die "$@"; my $mesg = $ldap->bind ( version => 3 ); # use for searches return $ldap; } sub parse_result{ my ($result) = @_; my %recordsTable; my @entries = $result->entries; my $entr; foreach $entr ( @entries ) { my $attr; foreach $attr ( sort $entr->attributes ) { # Skipping binary next if ( $attr =~ /;binary$/ ); $recordsTable{$entr}{$attr} = $entr->get_value ( $attr ); } } return %recordsTable; } sub print_result{ my (%recordsTable) = @_; my ($key, $value); while(($key, $value) = each(%recordsTable)) { my $name = $recordsTable{$key}{'cn'}; my $divID = $name; $divID =~ s/\s/_/; print "
\n";
print h3($name)."\n";
print "
"; print "
\n";
}
}
# Finally running everything
initialize_HTML;
my %form = parse_form;
my $ldap = open_LDAP("ldap.mit.edu");
my @Attrs = ( );
my $searchString=parse_queries(%form);
my $result = LDAPsearch ( $ldap, "cn=".$searchString, \@Attrs );
my %recordsTable = parse_result($result);
print_result(%recordsTable);
print end_html;
# EOF
- \n";
my ($attrName,$attrVal,%value);
while(($attrName,$attrVal) = each(%$value)){
# skip binary we can't handle
next if ( $attrVal =~ /;binary$/ );
print "
- $attrName: ", $attrVal ," \n"; } print "
"; print "