summaryrefslogtreecommitdiff
path: root/update_access_right_table.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'update_access_right_table.tcl')
-rwxr-xr-xupdate_access_right_table.tcl30
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: