[interchange] UserDB password debug logging of marginal usefulness.

Dan Browning interchange-cvs at icdevgroup.org
Sat Apr 2 06:39:25 UTC 2011


commit 1026a682bceaf8812e24579372b6087e72865a35
Author: Daniel Browning <db at kavod.com>
Date:   Fri Apr 1 21:52:10 2011 -0700

    UserDB password debug logging of marginal usefulness.

 lib/Vend/UserDB.pm |    4 ++++
 1 files changed, 4 insertions(+), 0 deletions(-)
---
diff --git a/lib/Vend/UserDB.pm b/lib/Vend/UserDB.pm
index 689148b..cb149e0 100644
--- a/lib/Vend/UserDB.pm
+++ b/lib/Vend/UserDB.pm
@@ -1517,6 +1517,10 @@ sub login {
 			else {
 				$db_pass = lc $db_pass if $self->{OPTIONS}{ignore_case};
 			}
+#::logDebug(errmsg("crypt: %s", $self->{CRYPT}));
+#::logDebug(errmsg("ignore_case: %s", $self->{OPTIONS}{ignore_case}));
+#::logDebug(errmsg("given password: %s", $self->{PASSWORD}));
+#::logDebug(errmsg("stored password: %s", $db_pass));
 			unless ($self->{PASSWORD} eq $db_pass) {
 				$self->log_either(errmsg("Denied attempted login by user '%s' with incorrect password",
 					$self->{USERNAME}));



More information about the interchange-cvs mailing list