From: Dan Scott Date: Mon, 31 Oct 2011 20:56:55 +0000 (-0400) Subject: Trivial whitespace touchup to Cronscript.pm.in X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=0c29090151e896568214eef2ed2ae69b49c16974;p=evergreen%2Fmasslnc.git Trivial whitespace touchup to Cronscript.pm.in Signed-off-by: Dan Scott --- 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};