[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