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 19e3f49..ac46584 100755 (executable)
--- 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 de9a84f..55da43c 100755 (executable)
--- 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;