Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2025-02-03 20:49:27 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
leif 1998-07-30 09:52:33 +00:00
parent ca6ee837e9
commit 4cb879ad55
3 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
directory/perldap/ChangeLog
View File

@ -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.

5
directory/perldap/examples/ChangeLog
View File

@ -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.

13
directory/perldap/examples/modattr.pl
View File

@ -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 ""))
{