diff options
| -rwxr-xr-x | GradeBook.tcl | 12 |
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] |