*** empty log message ***

directory/perldap/ChangeLog

@@ -1,5 +1,15 @@
+1998-07-30  Leif Hedstrom  <leif@netscape.com>
+
+	* Utils.pm (userCredentials): Added this function, to make it easy
+	to get credentials when binding as a user.
+
+	* Conn.pm (getError): Fixed bug with passing read-only argument.
+
 1998-07-29  Leif Hedstrom  <leif@netscape.com>
 
+	* Utils.pm (unixCrypt): Moved from my LdapUtils.pm module.
+	Added askPassword to the export tag.
+
 	* Conn.pm (new): Added support for passing a hash array of all the
 	parameters, as returned by the ldapArgs() function.
 

directory/perldap/examples/ChangeLog

@@ -1,3 +1,8 @@
+1998-07-30  Leif Hedstrom  <leif@netscape.com>
+
+	* ldappasswd.pl: Cleaned out some code, and moved it over to the
+	::Utils module.
+
 1998-07-29  Leif Hedstrom  <leif@netscape.com>
 
 	* qsearch.pl: First working version.

directory/perldap/examples/modattr.pl

@@ -1,6 +1,6 @@
 #!/usr/bin/perl5
 #############################################################################
-# $Id: modattr.pl,v 1.2 1998/07/30 06:49:18 leif Exp $
+# $Id: modattr.pl,v 1.3 1998/07/30 09:52:33 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
@@ -48,12 +48,12 @@ if (!getopts('adnvWb:h:D:p:s:w:P:'))
   exit;
 }
 %ld = Mozilla::LDAP::Utils::ldapArgs();
-
-#($ld{bind}, $ld{pswd}) = LdapUtils::getAuthInfo() unless $ld{bind};
+Mozilla::LDAP::Utils::userCredentials(\%ld) unless $opt_n;
 
 
 #############################################################################
-# Instantiate an LDAP object, which also binds to the LDAP server.
+# Let's process the changes requested, and commit them unless the "-n"
+# option was given.
 #
 $conn = new Mozilla::LDAP::Conn(\%ld);
 die "Could't connect to LDAP server $ld{host}" unless $conn;
@@ -61,11 +61,6 @@ die "Could't connect to LDAP server $ld{host}" unless $conn;
 #$conn->setDefaultRebindProc($ld{bind}, $ld{pswd}, 128);
 #$conn->setRebindProc(\&LdapUtils::rebindProc);
 
-
-#############################################################################
-# Let's process the changes requested, and commit them unless the "-n"
-# option was given.
-#
 ($change, $search) = @ARGV;
 if (($change eq "") || ($search eq ""))
 {