[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