projects
/
mirror
/
userdir-ldap-cgi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b62107b
)
fixed logging
author
tausq
<>
Wed, 10 May 2000 03:01:55 +0000
(
03:01
+0000)
committer
tausq
<>
Wed, 10 May 2000 03:01:55 +0000
(
03:01
+0000)
login.cgi
patch
|
blob
|
history
diff --git
a/login.cgi
b/login.cgi
index
60358a6
..
55d4d31
100755
(executable)
--- a/
login.cgi
+++ b/
login.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl
#!/usr/bin/perl
-# $Id: login.cgi,v 1.
6 2000/05/06 06:10:0
5 tausq Exp $
+# $Id: login.cgi,v 1.
7 2000/05/10 05:01:5
5 tausq Exp $
# (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
use lib '.';
# (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
use lib '.';
@@
-46,7
+46,7
@@
if ($mesg->code == LDAP_SUCCESS) {
my $oldpassword = $entries->{$dn}->{userpassword}->[0];
if ($oldpassword !~ /^{crypt}\$1\$/) {
# Update their password to md5
my $oldpassword = $entries->{$dn}->{userpassword}->[0];
if ($oldpassword !~ /^{crypt}\$1\$/) {
# Update their password to md5
- open (LOG, ">$config{weblogfile}");
+ open (LOG, ">
>
$config{weblogfile}");
print LOG scalar(localtime);
print LOG ": Updating MD5 password for $dn\n";
close LOG;
print LOG scalar(localtime);
print LOG ": Updating MD5 password for $dn\n";
close LOG;