blob: 2861b45535ff00651069c34df6a4911cf36a695b (
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 [::md5::md5 -hex qwerty] instructor
AddUserNonWeb Ta "Taevich, I" ta [::md5::md5 -hex qwerty] ta
AddUserNonWeb Dan "Dandanovich" dan [::md5::md5 -hex qwerty] student
AddUserNonWeb Ale "Alevna" ale [::md5::md5 -hex qwerty] student
AddUserNonWeb Jon "Jonovich" jon [::md5::md5 -hex qwerty] student
AddUserNonWeb Ale "Alevna" ale {} student
# vim: ts=2 sw=2 foldmethod=indent:
|
