25 lines
665 B
Tcl
25 lines
665 B
Tcl
|
#!/usr/local/bin/tclsh8.4
|
||
|
|
if {$argc < 3} {
|
||
|
|
puts stderr "usage: %s dbname command arg1 arg2 ...\ncommands:\nadduser uname - asks for pass, no echo"
|
||
|
|
exit -1
|
||
|
|
}
|
||
|
|
package require md5
|
||
|
|
load ./terminal.so
|
||
|
|
load /usr/local/lib/sqlite/libtclsqlite3.so Sqlite3
|
||
|
|
sqlite db [lindex $argv 0]
|
||
|
|
set cmd [lindex $argv 1]
|
||
|
|
if {[string equal $cmd "adduser"]} {
|
||
|
|
set uname [lindex $argv 2]
|
||
|
|
puts -nonewline "Password: "
|
||
|
|
flush stdout
|
||
|
|
terminal:echoOff
|
||
|
|
set pass [gets stdin]
|
||
|
|
terminal:echoOn
|
||
|
|
puts ""
|
||
|
|
# pkey, login, pass, priv
|
||
|
|
set md5pass [string tolower [md5::md5 -hex $pass]]
|
||
|
|
db eval {INSERT INTO users VALUES(null, $uname, $md5pass, 32)}
|
||
|
|
puts "User added successfully."
|
||
|
|
}
|
||
|
|
db close
|