From 83ea6344a7f0bd07d2c964747d5a10ee19d402f7 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Mon, 28 Oct 2013 10:13:08 -0400 Subject: [PATCH] ff : tpac auth porting, part 1 Signed-off-by: Bill Erickson --- .../src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm | 26 +++++++++++++++++----- 1 file changed, 20 insertions(+), 6 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm index 0af9399168..b07c8c98f3 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm @@ -394,12 +394,26 @@ sub load_login { my $response; if (!$auth_proxy_enabled) { - my $seed = $U->simplereq( - 'open-ils.auth', - 'open-ils.auth.authenticate.init', $username); - $args->{password} = md5_hex($seed . md5_hex($password)); - $response = $U->simplereq( - 'open-ils.auth', 'open-ils.auth.authenticate.complete', $args); + + if (0) { + # leaving here for reference for now + # any chance of a setting that turns FF on? + my $seed = $U->simplereq( + 'open-ils.auth', + 'open-ils.auth.authenticate.init', $username); + $args->{password} = md5_hex($seed . md5_hex($password)); + $response = $U->simplereq( + 'open-ils.auth', 'open-ils.auth.authenticate.complete', $args); + } else { + # TODO: ff bits + my $seed = $U->simplereq( + 'open-ils.auth', + 'open-ils.auth.authenticate.init', $username); + $args->{password} = md5_hex($seed . md5_hex($password)); + $response = $U->simplereq( + 'open-ils.auth', 'open-ils.auth.authenticate.complete', $args); + } + } else { $args->{password} = $password; $response = $U->simplereq( -- 2.11.0