added main file catch

Ignore-this: 75004db8a73147c4cf66170e3803491d

darcs-hash:20110503025845-067c0-290176fc03b293483ca5eff5591f100570c94383.gz

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: