diff options
| -rwxr-xr-x | GradeBook.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index c3fc6bb..33305e8 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -3,6 +3,9 @@ # vim:set ft=tcl: \ 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 Tcl 8.5 package require sqlite3 @@ -72,4 +75,10 @@ if { ($coursedbfname ne "") && [file exists $dbfile] } { htmlFooter $permission_list puts "</body>" +###################### Main script ends ################################# +} errStat ] +if { $err } { + dbg "the following error happen: $errStat" 0 +} + # vim: ts=2 sw=2 foldmethod=indent: |