[interchange] always use default encryption method for global AdminUser (problem found by Rok RužiÄ)
Stefan Hornburg
interchange-cvs at icdevgroup.org
Sat Mar 6 10:47:30 UTC 2010
commit 5919702a7e69de6b763d3bc48a5293d6a31c6c90
Author: Stefan Hornburg (Racke) <racke at linuxia.de>
Date: Sat Mar 6 11:45:33 2010 +0100
always use default encryption method for global AdminUser (problem found by Rok RužiÄ)
lib/Vend/UserDB.pm | 3 +++
1 files changed, 3 insertions(+), 0 deletions(-)
---
diff --git a/lib/Vend/UserDB.pm b/lib/Vend/UserDB.pm
index c7e458a..a0a9953 100644
--- a/lib/Vend/UserDB.pm
+++ b/lib/Vend/UserDB.pm
@@ -1397,7 +1397,10 @@ sub login {
$test = $self->{PASSWORD};
}
else {
+ my $sub = $self->{ENCSUB};
+ $self->{ENCSUB} = $enc_subs{default};
$test = $self->do_crypt($self->{PASSWORD}, $adminpass);
+ $self->{ENCSUB} = $sub;
}
if ($test eq $adminpass) {
$user_data = {};
More information about the interchange-cvs
mailing list