added password table creation function and check if the user in table

1 files changed, 28 insertions, 0 deletions

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index fe3e987..51e682b 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -1807,6 +1807,34 @@ proc ShowControls { permission_list user } {
 	puts "</div>"	
 }
 
+proc Create_Passwords_Table {} {
+	dbg  "Creating PasswordsTable" msg_level_info
+	set err [catch {pdb eval {CREATE TABLE PasswordsTable(UserName text, PasswordHash text)} } errStat] 
+	if { $err } {
+		dbg  "While creating PasswordsTable the following error happen: $errStat" msg_level_critical
+	} 
+}
+
+proc is_User_Registered_in_Passwords_DB { user_requested } {
+	set eval_str [list SELECT UserName FROM PasswordsTable WHERE UserName='$user_requested']
+	set err [catch {
+		pdb eval $eval_str registered_user_names_array {}
+	} errStat ]
+	if { $err } {
+		if { $errStat eq "no such table: PasswordsTable" } {
+			Create_Passwords_Table 
+		} else {
+			htmlErrorMsg  "Problem accessing passwords database, please, contact system administrator"
+			dbg  "$errStat" msg_level_warning
+		}
+	} 
+	if { ![ info exist registered_user_names_array(UserName) ] } {
+		dbg "$user_requested does not exist in the passwords DB" msg_level_info
+		return false
+	} 
+	return true
+}
+
 proc Authenticate_User { user_requested password } {
 	#return __non_existing_user_
 	return $user_requested