From 50e9e511e88b154af4e97feb7b59a37ac3b8fcc7 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Wed, 9 Mar 2011 00:01:36 -0500 Subject: added file for updating AccessRightsTable Ignore-this: 570909ba3c63564e7497ee6e6ed6385 darcs-hash:20110309050136-067c0-224db71466f42eba74b8f233a5e430f2801c70d9.gz --- UpdateAccessRights.tcl | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100755 UpdateAccessRights.tcl (limited to 'UpdateAccessRights.tcl') diff --git a/UpdateAccessRights.tcl b/UpdateAccessRights.tcl new file mode 100755 index 0000000..ce8d85f --- /dev/null +++ b/UpdateAccessRights.tcl @@ -0,0 +1,32 @@ +#!/bin/sh +# (C) 2011 by Eugeniy Mikhailov, +# vim:set ft=tcl: \ +exec tclsh "$0" "$@" + + +# delete and recreate AccessRightsTable according to latest specification +package require sqlite3 +package require md5 +source ./GradeBook_lib.tcl + +if { $argc < 1 } { + puts {Usage:} + puts "$argv0 database_name" + exit +} + +set dbfile [lindex $argv 0] +puts $dbfile + +sqlite3 db $dbfile + +set eval_str [concat DROP TABLE AccessRightsTable] + set err [catch {db eval $eval_str } errStat] + if { $err } { + dbg $errStat 3 + } + +CreateAccessRightsTable db + + +# vim: ts=2 sw=2 foldmethod=indent: -- cgit v1.2.3