Trying to better catch missing tcl packages

1 files changed, 10 insertions, 2 deletions

diff --git a/GradeBook.tcl b/GradeBook.tcl
index 33305e8..41f75ba 100755
--- a/GradeBook.tcl
+++ b/GradeBook.tcl
@@ -4,13 +4,21 @@
 exec tclsh "$0" "$@"
 
 set err [catch {
-###################### Main script begins #################################
 
 # require Tcl version of at least 8.5 since I use 'ni' and 'in' in expressions for lists
+package require ncgi 
 package require Tcl 8.5
 package require sqlite3
-package require ncgi 
 package require md5
+} errStat ]
+if { $err } {
+	::ncgi::header
+	puts  "the following error happen: $errStat"
+	exit
+} 
+
+###################### Main script begins #################################
+set err [catch {
 
 set execution_start_time [clock microseconds]