From f24218109154516e02e9a60df1e5a6f078c5e63f Mon Sep 17 00:00:00 2001
From: brian <brian>
Date: Fri, 10 Jun 2005 23:23:57 +0000
Subject: [PATCH] Allow GSS password to be passed to the test-framework in
 $GSS_PASS.

---
 lustre/tests/krb5_env.sh           | 30 +++++++++++++++++++++++++++++-
 lustre/tests/krb5_refresh_cache.sh | 30 +++++++++++++++++++++++++++++-
 2 files changed, 58 insertions(+), 2 deletions(-)

diff --git a/lustre/tests/krb5_env.sh b/lustre/tests/krb5_env.sh
index fdd81d3..f20815b 100755
--- a/lustre/tests/krb5_env.sh
+++ b/lustre/tests/krb5_env.sh
@@ -71,7 +71,35 @@ prepare_krb5_cache() {
     fi
 
     echo "***** refresh Kerberos V5 TGT for uid $UID *****"
-    $KRB5DIR/bin/kinit
+    if [ -z "$GSS_PASS" ]; then
+        $KRB5DIR/bin/kinit
+    else
+        expect <<EOF
+set timeout 30 
+
+log_user 1 
+
+set spawnid [spawn /bin/bash]
+send "export PS1=\"user@host $ \" \r"
+expect {
+    timeout {puts "timeout" ;exit 1}
+    "user@host $ "
+}
+
+send "$KRB5DIR/bin/kinit\r"
+{
+    timeout {puts "timeout" ;exit 1}
+    "Password for "
+
+send "$GSS_PASS\r"
+expect {
+    timeout {puts "timeout" ;exit 1}
+    "user@host $ "
+}
+
+exit 0
+EOF
+    fi
     ret=$?
     return $ret
 }
diff --git a/lustre/tests/krb5_refresh_cache.sh b/lustre/tests/krb5_refresh_cache.sh
index 2adfadc..2c16067 100755
--- a/lustre/tests/krb5_refresh_cache.sh
+++ b/lustre/tests/krb5_refresh_cache.sh
@@ -24,6 +24,34 @@ if [ $UID -eq 0 ]; then
 fi
 
 echo "***** refresh Kerberos V5 TGT for uid $UID *****"
-$KRB5DIR/bin/kinit
+if [ -z "$GSS_PASS" ]; then
+    $KRB5DIR/bin/kinit
+else
+    expect <<EOF
+set timeout 30 
+
+log_user 1 
+
+set spawnid [spawn /bin/bash]
+send "export PS1=\"user@host $ \" \r"
+expect {
+    timeout {puts "timeout" ;exit 1}
+    "user@host $ "
+}
+
+send "$KRB5DIR/bin/kinit\r"
+{
+    timeout {puts "timeout" ;exit 1}
+    "Password for "
+
+send "$GSS_PASS\r"
+expect {
+    timeout {puts "timeout" ;exit 1}
+    "user@host $ "
+}
+
+exit 0
+EOF
+fi
 ret=$?
 exit $ret
-- 
1.8.3.1