From aaaa1ffea1a086e48f8a885453551839da9c3a21 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Sat, 21 Jan 2012 19:46:52 -0500 Subject: Command to set new password for a user --- passwd_db.tcl | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100755 passwd_db.tcl (limited to 'passwd_db.tcl') diff --git a/passwd_db.tcl b/passwd_db.tcl new file mode 100755 index 0000000..c2f2d9b --- /dev/null +++ b/passwd_db.tcl @@ -0,0 +1,35 @@ +#!/bin/sh +# (C) 2011 by Eugeniy Mikhailov, +# vim:set ft=tcl: \ +exec tclsh "$0" "$@" + +# set new password for user name +# create user + +package require sqlite3 +package require md5 +source ./GradeBook_lib.tcl + +if { $argc < 3 } { + puts {Usage:} + puts "$argv0 database_file_name user_name password" + exit +} + +set db_file [lindex $argv 0] +set user_name [lindex $argv 1] + +if { $argc >= 3 } { + set password [lindex $argv 2] +} else { + set password {} +} + +# override default password DB name +set GradebookServerConfig(passwords_db_file) $db_file + +Set_New_Password_Non_Web $user_name $password + + + +# vim: ts=2 sw=2 foldmethod=indent: -- cgit v1.2.3