From 88c72570639c697d38468ec7668e8f16e2883746 Mon Sep 17 00:00:00 2001 From: Theodore Tso Date: Wed, 13 Sep 1995 19:34:11 +0000 Subject: [PATCH] Save the key used to generate the database files. Also generate a set of environment setup scripts. These are the convenience of someone who wishes to run some of the tests by hand, when tests are bombing. git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@6777 dc483132-0cff-0310-8789-dd5450dbe970 --- src/tests/dejagnu/config/ChangeLog | 7 +++++++ src/tests/dejagnu/config/default.exp | 29 +++++++++++++++++++++++++++- 2 files changed, 35 insertions(+), 1 deletion(-) diff --git a/src/tests/dejagnu/config/ChangeLog b/src/tests/dejagnu/config/ChangeLog index 5c60cc306..dbfc1a4cf 100644 --- a/src/tests/dejagnu/config/ChangeLog +++ b/src/tests/dejagnu/config/ChangeLog @@ -1,3 +1,10 @@ +Wed Sep 13 14:02:03 1995 Theodore Y. Ts'o + + * default.exp: Save the key used to generate the database files. + Also generate a set of environment setup scripts. + These are the convenience of someone who wishes to run some + of the tests by hand, when tests are bombing. + Sun Sep 10 10:09:41 1995 Ezra Peisach (epeisach@dcl) * default.exp: Add des-cbc-crc to supported_enctypes as krb5_edit diff --git a/src/tests/dejagnu/config/default.exp b/src/tests/dejagnu/config/default.exp index 9d7e4c33d..c8c90e005 100644 --- a/src/tests/dejagnu/config/default.exp +++ b/src/tests/dejagnu/config/default.exp @@ -35,6 +35,9 @@ if ![info exists BINSH] { if ![info exists KEY] { catch {exec $BINSH -c "echo $$"} KEY verbose "KEY is $KEY" + set keyfile [open tmpdir/KEY w] + puts $keyfile "$KEY" + close $keyfile } # Clear away any files left over from a previous run. @@ -288,7 +291,7 @@ proc setup_kerberos_files { } { puts $conffile " max_renewable_life = 3:00:00" puts $conffile " default_principal_expiration = 99.12.31.23.59.59" puts $conffile " default_principal_flags = -postdateable -forwardable" - puts $conffile " supported_enctypes = des-cbc-crc:normal desdes:normal des:v4 des:norealm des:onlyrealm" + puts $conffile " supported_enctypes = des-cbc-crc:normal des:normal des:v4 des:norealm des:onlyrealm" puts $conffile " \}" puts $conffile "" close $conffile @@ -381,6 +384,30 @@ proc setup_kerberos_env { } { # Set our kdc config file. set env(KRB5_KDC_PROFILE) $tmppwd/kdc.conf verbose "KRB5_KDC_PROFILE=$env(KRB5_KDC_PROFILE)" + + # Create an environment setup script. (For convenience) + if ![file exists tmpdir/env.sh] { + set envfile [open tmpdir/env.sh w] + puts $envfile "KRB5_CONFIG=$env(KRB5_CONFIG)" + puts $envfile "KRB5CCNAME=$env(KRB5CCNAME)" + puts $envfile "KRB5RCACHEDIR=$env(KRB5RCACHEDIR)" + puts $envfile "KERBEROS_SERVER=$env(KERBEROS_SERVER)" + puts $envfile "LD_LIBRARY_PATH=$env(LD_LIBRARY_PATH)" + puts $envfile "KRB5_KDC_PROFILE=$env(KRB5_KDC_PROFILE)" + puts $envfile "export KRB5_CONFIG KRB5CCNAME KRB5RCACHEDIR" + puts $envfile "export KERBEROS_SERVER LD_LIBRARY_PATH KRB5_KDC_PROFILE" + close $envfile + } + if ![file exists tmpdir/env.csh] { + set envfile [open tmpdir/env.csh w] + puts $envfile "setenv KRB5_CONFIG $env(KRB5_CONFIG)" + puts $envfile "setenv KRB5CCNAME $env(KRB5CCNAME)" + puts $envfile "setenv KRB5RCACHEDIR $env(KRB5RCACHEDIR)" + puts $envfile "setenv KERBEROS_SERVER $env(KERBEROS_SERVER)" + puts $envfile "setenv LD_LIBRARY_PATH $env(LD_LIBRARY_PATH)" + puts $envfile "setenv KRB5_KDC_PROFILE $env(KRB5_KDC_PROFILE)" + close $envfile + } return 1 } -- 2.26.2