From e83ba63edcae939501f54afc2241a3cc43c690cd Mon Sep 17 00:00:00 2001
From: tausq <>
Date: Wed, 10 May 2000 03:01:55 +0000
Subject: [PATCH] fixed logging

---
 login.cgi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/login.cgi b/login.cgi
index 60358a6..55d4d31 100755
--- a/login.cgi
+++ b/login.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: login.cgi,v 1.6 2000/05/06 06:10:05 tausq Exp $
+# $Id: login.cgi,v 1.7 2000/05/10 05:01:55 tausq Exp $
 # (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
-    open (LOG, ">$config{weblogfile}");
+    open (LOG, ">>$config{weblogfile}");
     print LOG scalar(localtime);
     print LOG ": Updating MD5 password for $dn\n";
     close LOG;
-- 
2.20.1