* init_db: be verbose when $SRVTCL doesn't exist, instead of just

 	failing [krb5-admin/245]

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

diff --git a/src/kadmin/testing/scripts/ChangeLog b/src/kadmin/testing/scripts/ChangeLog
index 852bc20508dd45fb8054b8536d94f5280922807a..73dcd5a80e8bec67358bfbf41ecfb8ebd2b4f86d 100644 (file)
--- a/src/kadmin/testing/scripts/ChangeLog
+++ b/src/kadmin/testing/scripts/ChangeLog
@@ -1,3 +1,8 @@
+Tue Dec  3 15:28:53 1996  Barry Jaspan  <bjaspan@mit.edu>
+
+       * init_db: be verbose when $SRVTCL doesn't exist, instead of just
+       failing [krb5-admin/245]
+
 Thu Nov 14 15:28:16 1996  Barry Jaspan  <bjaspan@mit.edu>
 
        * env-setup.shin, init_db, save_files.sh, start_servers,

diff --git a/src/kadmin/testing/scripts/init_db b/src/kadmin/testing/scripts/init_db
index e321c7697737d63293b6ea04424398ab8c1ff834..aac473677459dc8ae3a72a5d4fb41a071e901a40 100644 (file)
--- a/src/kadmin/testing/scripts/init_db
+++ b/src/kadmin/testing/scripts/init_db
@@ -33,6 +33,17 @@ DUMMY=${LOCAL_MAKE_KEYTAB=$TESTDIR/scripts/make-host-keytab.pl}
 
 PATH=$ADMIN:$BIN:$ETC:$SBIN:$PATH; export PATH
 
+if [ ! -x $SRVTCL ]; then
+       echo "+++" 1>&2
+       echo "+++ Error!  $SRVTCL does not exist!" 1>&2
+       echo "+++ It was probably not compiled because TCL was not available.  If you" 1>&2
+       echo "+++ now have TCL installed, cd into that directory, re-run configure" 1>&2 
+       echo "+++ with the --with-tcl option, and then re-run make." 1>&2
+       echo "+++" 1>&2
+
+       exit 1
+fi
+
 rm -rf $K5ROOT/*
 if [ -d $K5ROOT ]; then
        true