From: Bill Erickson <berickxx@gmail.com>
Date: Fri, 7 Dec 2018 19:19:32 +0000 (-0500)
Subject: LP#1807398 marc_stream/oils_header auth repairs
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=209dd231acd30e77015aa5dc001e0dc9b423e95a;p=evergreen%2Fequinox.git

LP#1807398 marc_stream/oils_header auth repairs

Fixed a few code thinkos in marc stream workstation login support.

Signed-off-by: Bill Erickson <berickxx@gmail.com>
Signed-off-by: Jason Boyer <JBoyer@library.in.gov>
---

diff --git a/Open-ILS/src/support-scripts/marc_stream_importer.pl b/Open-ILS/src/support-scripts/marc_stream_importer.pl
index 19e3f4903b..ac46584aca 100755
--- a/Open-ILS/src/support-scripts/marc_stream_importer.pl
+++ b/Open-ILS/src/support-scripts/marc_stream_importer.pl
@@ -95,7 +95,7 @@ GetOptions(
     'verbose'               => \$verbose,
     'username=s'            => \$username,
     'password=s'            => \$password,
-    'workstation'           => \$workstation,
+    'workstation=s'         => \$workstation,
     'tempdir=s'             => \$tempdir,
     'spoolfile=s'           => \$spoolfile,
     'wait=i'                => \$wait_time,
diff --git a/Open-ILS/src/support-scripts/oils_header.pl b/Open-ILS/src/support-scripts/oils_header.pl
index de9a84fc92..55da43c9cc 100755
--- a/Open-ILS/src/support-scripts/oils_header.pl
+++ b/Open-ILS/src/support-scripts/oils_header.pl
@@ -151,7 +151,7 @@ sub oils_event_die {
 # Login to the auth server and set the global $authtoken var
 #----------------------------------------------------------------
 sub oils_login {
-	my( $username, $password, $type ) = @_;
+	my( $username, $password, $type, $workstation ) = @_;
 
 	$type |= "staff";
 
@@ -160,9 +160,12 @@ sub oils_login {
 		'open-ils.auth.authenticate.init', $username, $nonce);
 	err("No auth seed") unless $seed;
 
-	my $opts = {	username => $username,
-			password => md5_hex($seed . md5_hex($password)),
-			type => $type };
+    my $opts = {
+        username => $username,
+        password => md5_hex($seed . md5_hex($password)),
+        type => $type,
+        nonce => $nonce
+    };
 
 	if(defined($workstation)) {
 		$opts->{workstation} = $workstation;