added Set_New_Password_Non_Web

1 files changed, 33 insertions, 0 deletions

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index 7a28f38..a0e8a5f 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -1053,6 +1053,7 @@ proc GenPassword { } {
 }
 
 proc SendNewPassword2User { user password } {
+	dbg "Sending password to user $user" msg_level_info
 	set CourseTitle  [SelectItemFromCourseInfoTable course_title]
 	set FirstName    [SelectColValue4User FirstName $user]   
 	set tmp_msg_file /tmp/tmp_msg4user_$user
@@ -1259,6 +1260,38 @@ proc ChooseNewPassword {db permission_list user } {
 	puts "</div>"
 }
 
+proc Set_New_Password_Non_Web {user newpassword} {
+	global GradebookServerConfig
+	if { $newpassword eq "" } {
+		dbg "Attempt to set empty password which is not permitted" msg_level_info
+		return
+	}
+	set password_hash [::md5::md5 -hex $newpassword]
+	
+	set err [catch {
+		sqlite3 pdb $GradebookServerConfig(passwords_db_file)
+	} errStat ]
+	if { $err } {
+		htmlErrorMsg  "Problem accessing passwords database, please, contact system administrator"
+		dbg  "$errStat with filename $GradebookServerConfig(passwords_db_file)" msg_level_critical
+		return
+	} 
+
+	if { ![ is_User_Registered_in_Passwords_DB $user ] } {
+		set sql_str [concat INSERT INTO  PasswordsTable (UserName, PasswordHash) VALUES('$user', '$password_hash')]
+	} else {
+		set sql_str [concat UPDATE  PasswordsTable SET \"PasswordHash\"=\'$password_hash\' where UserName=\"$user\"]
+	}
+
+	set err [catch {
+		pdb eval $sql_str
+	} errStat ]
+	if { $err } {
+		htmlErrorMsg  $errStat 
+		dbg  "the following error happen: $errStat" msg_level_warning
+	} 
+}
+
 proc SetNewPassword {db permission_list user } {
 	global script_name