email sended has more log info and a catch for file delition

1 files changed, 5 insertions, 2 deletions

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index f379533..bf4d7ca 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -1070,11 +1070,14 @@ proc SendNewPassword2User { user password } {
 	puts $fp "$password"
 	puts $fp "------------------------------------------"
 	close $fp
-	if { [catch {exec mail -s "New password for $CourseTitle" $user < $tmp_msg_file} msg ] } {
+	if { [catch {exec mail -s "New password for $CourseTitle" "$user" < $tmp_msg_file} msg ] } {
 		   htmlErrorMsg "Something seems to have gone wrong during mailing the password. Information about it: $::errorInfo"
+			 dbg "Something seems to have gone wrong during mailing the password for {$user}. Information about it: $::errorInfo" msg_level_critical
 	}
 	#now it is safe to delete temporary file
-	file delete $tmp_msg_file
+	if { [catch {file delete $tmp_msg_file} msg] } {
+		dbg "Cannot delete file {$tmp_msg_file} with temporary password message for user {$user}" msg_level_critical
+	}
 }
 
 proc LogMeOn {} {