Have Tcl script error out if initialization fails

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@18006 dc483132-0cff-0310-8789-dd5450dbe970

diff --git a/src/kadmin/testing/scripts/start_servers_local b/src/kadmin/testing/scripts/start_servers_local
index 37f438a25e4df9e66edb55914fbb72abc875ca22..b787b57e3f788d2876a560c53f5d4dead27d2eaa 100755 (executable)
--- a/src/kadmin/testing/scripts/start_servers_local
+++ b/src/kadmin/testing/scripts/start_servers_local
@@ -93,14 +93,20 @@ hostname=`hostname`
 QUALNAME=`$TOP/testing/scripts/qualname.pl $hostname`; export QUALNAME
 
 cat - > /tmp/start_servers_local$$ <<\EOF
-source $env(STOP)/testing/tcl/util.t
-set r $env(REALM)
-set q $env(QUALNAME)
-puts stdout [ovsec_kadm_init $env(SRVTCL) mrroot null $r \
-       $OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 server_handle]
-puts stdout [ovsec_kadm_create_principal $server_handle \
-       [simple_principal host/$q@$r] {OVSEC_KADM_PRINCIPAL} notathena]
-puts stdout [ovsec_kadm_destroy $server_handle]
+if { [catch {
+       source $env(STOP)/testing/tcl/util.t
+       set r $env(REALM)
+       set q $env(QUALNAME)
+       puts stdout [ovsec_kadm_init $env(SRVTCL) mrroot null $r \
+               $OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 server_handle]
+       puts stdout [ovsec_kadm_create_principal $server_handle \
+               [simple_principal host/$q@$r] {OVSEC_KADM_PRINCIPAL} notathena]
+       puts stdout [ovsec_kadm_destroy $server_handle]
+} err]} {
+       puts stderr "initialization error: $err"
+       exit 1
+}
+exit 0
 EOF
 eval "$SRVTCL < /tmp/start_servers_local$$ $REDIRECT"
 x=$?