From 4cb879ad5521ea05ac854988266e831c2d7ac170 Mon Sep 17 00:00:00 2001
From: leif <leif>
Date: Thu, 30 Jul 1998 09:52:33 +0000
Subject: [PATCH] *** empty log message ***

---
 directory/perldap/ChangeLog           | 10 ++++++++++
 directory/perldap/examples/ChangeLog  |  5 +++++
 directory/perldap/examples/modattr.pl | 13 ++++---------
 3 files changed, 19 insertions(+), 9 deletions(-)

diff --git a/directory/perldap/ChangeLog b/directory/perldap/ChangeLog
index 687fa0421d40..3982482a8c14 100644
--- a/directory/perldap/ChangeLog
+++ b/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.
 
diff --git a/directory/perldap/examples/ChangeLog b/directory/perldap/examples/ChangeLog
index 025f4db67a92..cc54b962d4ab 100644
--- a/directory/perldap/examples/ChangeLog
+++ b/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.
diff --git a/directory/perldap/examples/modattr.pl b/directory/perldap/examples/modattr.pl
index 80e3512e5d4a..52a99aad1260 100755
--- a/directory/perldap/examples/modattr.pl
+++ b/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 ""))
 {