diff options
Diffstat (limited to 'update_access_right_table.tcl')
-rwxr-xr-x | update_access_right_table.tcl | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/update_access_right_table.tcl b/update_access_right_table.tcl deleted file mode 100755 index bc6da2c..0000000 --- a/update_access_right_table.tcl +++ /dev/null @@ -1,30 +0,0 @@ -#!/bin/sh -# FILE: "/home/evmik/src/my_src/GradeBook/update_access_right_table.tcl" -# LAST MODIFICATION: "Wed, 02 Feb 2011 12:03:18 -0500 (evmik)" -# (C) 2011 by Eugeniy Mikhailov, <evgmik@gmail.com> -# $Id:$ -# vim:set ft=tcl: \ -exec tclsh "$0" "$@" - -package require sqlite3 -package require md5 -source ./GradeBook_lib.tcl - -if { $argc < 1 } { - puts {Updates access rights table according to the new library defaults.} - puts {Usage:} - puts "$argv0 database_name" - exit -} - -set dbfile [lindex $argv 0] -sqlite3 db $dbfile - -if { [catch {db eval {drop table AccessRightsTable}} errMsg ] } { - puts "The following error happened: $errMsg" -} -CreateAccessRightsTable db - -db close - -# vim: ts=2 sw=2 foldmethod=indent: |