blob: a03f72802c5b93aa39efc251eff0fe7034ecc4f1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#!/bin/sh
# (C) 2011 by Eugeniy Mikhailov, <evgmik@gmail.com>
# vim:set ft=tcl: \
exec tclsh "$0" "$@"
package require sqlite3
package require md5
source ./GradeBook_lib.tcl
set class [lindex $argv 0]
if { $class eq "" } {
set class dummy_class
}
set dbfile $class
sqlite3 db $dbfile
#AddUserNonWeb first_name last_name user_name password_hash group_name id_number section_num i
# dummy users
#AddUserNonWeb Ins "Instruch I" instructor instructor
AddUserNonWeb Ta "Taevich, I" ta ta
AddUserNonWeb Dan "Dandanovich" dan student
AddUserNonWeb Ale "Alevna" ale student
AddUserNonWeb Jon "Jonovich" jon student
AddUserNonWeb Ale "Alevna" ale student
# vim: ts=2 sw=2 foldmethod=indent:
|
