From 0c29090151e896568214eef2ed2ae69b49c16974 Mon Sep 17 00:00:00 2001 From: Dan Scott Date: Mon, 31 Oct 2011 16:56:55 -0400 Subject: [PATCH] Trivial whitespace touchup to Cronscript.pm.in Signed-off-by: Dan Scott --- Open-ILS/src/perlmods/lib/OpenILS/Utils/Cronscript.pm.in | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/Cronscript.pm.in b/Open-ILS/src/perlmods/lib/OpenILS/Utils/Cronscript.pm.in index cb0c8603a8..4c0d66b4b5 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/Cronscript.pm.in +++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/Cronscript.pm.in @@ -300,13 +300,18 @@ sub authenticate { my $self = shift or return; my $args = shift or return; if ($args && ref($args) eq 'HASH') { - $self->{bootstrapped} or $self->bootstrap(); + $self->{bootstrapped} or $self->bootstrap(); + my $session = Opensrf::AppSession->create('open-ils.auth'); - my $seed = $session->request('open-ils.auth.authenticate.init', - $args->{'username'})->gather(1); + my $seed = $session->request( + 'open-ils.auth.authenticate.init', $args->{'username'} + )->gather(1); + $args->{password} = md5_hex($seed . md5_hex($args->{password})); - my $req = $session->request('open-ils.auth.authenticate.complete', - $args); + my $req = $session->request( + 'open-ils.auth.authenticate.complete', $args + ); + my $response = $req->gather(1); if ($response && ref($response) eq 'HASH' && $response->{payload}) { $self->{authtoken} = $response->{payload}->{authtoken}; -- 2.11.0