added the addLogEntry and redone dbg messaging

1 files changed, 38 insertions, 9 deletions

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index 45866b9..41fa9f1 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -439,21 +439,50 @@ proc dbg {msg {category msg_level_critical} {location ""}} {
 		set location " in $location"
 	}
 	switch $category {
-		msg_level_info       {set msg_header "Info$location:";       set level 6}
-		msg_level_warning    {set msg_header "Warning$location:";    set level 4}
-		msg_level_dbg        {set msg_header "Debug$location:";      set level 3}
-		msg_level_log        {set msg_header "Log$location:";        set level 2}
-		msg_level_critical   {set msg_header "Error$location:";      set level 1}
-		default              {set msg_header "Unknown$location:";    set level 0}
+		msg_level_info       {set msg_header "Info$location:";}
+		msg_level_warning    {set msg_header "Warning$location:";}
+		msg_level_dbg        {set msg_header "Debug$location:";}
+		msg_level_log        {set msg_header "Log$location:";}
+		msg_level_critical   {set msg_header "Error$location:";}
+		default              {set msg_header "Unknown$location:";}
 	}
 
+	addLogEntry "dbg message level $msg_header" "$msg" "$category"
+}
+
+proc addLogEntry {entryTitle entryContent {category msg_level_critical}} {
+	global GradebookServerConfig
+	global logEntry
+
+	switch $category {
+		msg_level_info       {set level 6}
+		msg_level_warning    {set level 4}
+		msg_level_dbg        {set level 3}
+		msg_level_log        {set level 2}
+		msg_level_critical   {set level 1}
+		default              {set level 0}
+	}
 	if { $level <= $GradebookServerConfig(verbosity_level) } {
-		set fid [open $GradebookServerConfig(log_file) a+]
-		puts $fid "$msg_header $msg"
-		close $fid
+		lappend logEntry "$entryTitle" [::json::write string "$entryContent"]
 	}
 }
 
+proc logEntryToLogFile {} {
+	global logEntry
+
+	#::json::write indented false
+	set logEntryJsonString [json::write object {*}$logEntry]
+	rawTextToLogFile "$logEntryJsonString"
+}
+
+proc rawTextToLogFile {{msg "Error: message is not specified"}} {
+	global GradebookServerConfig
+
+	set fid [open $GradebookServerConfig(log_file) a+]
+	puts $fid "$msg"
+	close $fid
+}
+
 proc timestamp { } {
 	return [clock format [clock seconds] -format "%Y-%m-%dT%H:%M:%S"]
 }