Commit 664ffb1e authored by leif's avatar leif
Browse files

*** empty log message ***

parent 23fe8825

directory/perldap/ChangeLog

+5 −0
Original line number Diff line number Diff line 
1998-07-30  Leif Hedstrom  <leif@netscape.com>



	* Utils.pm (answer): New function, from LdapUtils.pm.



	* Conn.pm (delete): Fixed references to normalizeDN.



	* Utils.pm (userCredentials): Added this function, to make it easy

	to get credentials when binding as a user.

	(normalizeDN): Fixed bugs, because of calling convention...



	* Conn.pm (getError): Fixed bug with passing read-only argument.

directory/perldap/MANIFEST

+4 −0
Original line number Diff line number Diff line
@@ -20,3 +20,7 @@ examples/ChangeLog 
examples/lfinger.pl

examples/qsearch.pl

examples/monitor.pl

examples/ldappasswd.pl

examples/rmentry.pl

examples/tabdump.pl

examples/modattr.pl

directory/perldap/examples/ChangeLog

+2 −0
Original line number Diff line number Diff line 
1998-07-30  Leif Hedstrom  <leif@netscape.com>



	* tabdump.pl: Actually works!



	* ldappasswd.pl: Cleaned out some code, and moved it over to the

	::Utils module.

directory/perldap/examples/qsearch.pl

+2 −6
Original line number Diff line number Diff line 
#!/usr/bin/perl5

#############################################################################

# $Id: qsearch.pl,v 1.2 1998/07/29 09:09:20 leif Exp $

# $Id: qsearch.pl,v 1.3 1998/07/30 10:10:26 leif Exp $

#

# The contents of this file are subject to the Mozilla Public License

# Version 1.0 (the "License"); you may not use this file except in
@@ -49,15 +49,11 @@ if (!getopts('b:h:D:p:s:w:P:')) 




#################################################################################

# Instantiate an LDAP object, which also binds to the LDAP server.

# Now do all the searches, one by one.

#

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

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





#################################################################################

# Now do all the searches, one by one.

#

foreach (@ARGV)

{

  if (/\=/)