From: Jeff Davis <jeff.davis@bc.libraries.coop>
Date: Thu, 9 May 2019 18:32:14 +0000 (-0700)
Subject: LP#1828456: use open-ils.auth.login for AuthProxy native login
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=727bccb99c4dbaaa8353a34ecd698624a183c871;p=working%2FEvergreen.git

LP#1828456: use open-ils.auth.login for AuthProxy native login

Signed-off-by: Jeff Davis <jeff.davis@bc.libraries.coop>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/AuthProxy.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/AuthProxy.pm
index 1f7832c653..8482d31466 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/AuthProxy.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/AuthProxy.pm
@@ -297,23 +297,10 @@ sub _auth_internal {
 
 sub _do_login {
     my $args = shift;
-    my $authenticated = shift;
-
-    my $seeder = $args->{'username'} ? $args->{'username'} : $args->{'barcode'};
-    my $seed =
-      OpenSRF::AppSession->create("open-ils.auth")
-      ->request( 'open-ils.auth.authenticate.init', $seeder )->gather(1);
-
-    return OpenILS::Event->new( 'LOGIN_FAILED' )
-      unless $seed;
-
-    my $real_password = $args->{'password'};
-    $args->{'password'} = md5_hex( $seed . md5_hex($real_password) );
     my $response = OpenSRF::AppSession->create("open-ils.auth")->request(
-        'open-ils.auth.authenticate.complete',
+        'open-ils.auth.login',
         $args
     )->gather(1);
-    $args->{'password'} = $real_password;
 
     return OpenILS::Event->new( 'LOGIN_FAILED' )
       unless $response;