From 4b6e4a068079171a35813f13794a1139c9f36747 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Tue, 23 Aug 2016 23:30:02 -0400 Subject: draft of json log entry --- GradeBook.tcl | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/GradeBook.tcl b/GradeBook.tcl index 00a0f67..3483606 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -82,6 +82,27 @@ set user [ Authenticate_User $user_requested $password ] dbg "[timestamp] authenticated user $user_requested DB $coursedbfname as $user version $VERSION from $remote_ip" msg_level_log dbg "[timestamp] requested action $action by user $user_requested DB $coursedbfname recognized as $user version $VERSION from $remote_ip" msg_level_log +package require json +set logEntry(timestamp) [json::string2json [timestamp]] +set logEntry(remoteIP) [json::string2json "$remote_ip"] +set logEntry(userName) [json::string2json "$user_requested"] +if { "$user_requested" eq "$user" } { + set logEntry(userStatus) [json::string2json "authenticated"] +} else { + set logEntry(userStatus) [json::string2json "$user"] +} +set logEntry(requestedAction) [json::string2json "$action"] +set logEntry(DB) [json::string2json "$coursedbfname"] +set logEntry(programVersion) [json::string2json "$VERSION"] +set logEntry(logLevel) [json::string2json msg_level_log] + +set logEntryString [json::dict2json [array get logEntry]] +set fid [open $GradebookServerConfig(log_file) a+] +puts $fid "$logEntryString" +close $fid + + + set dbfile "$GradebookServerConfig(grades_db_dir)/$coursedbfname" if { [file exists $dbfile] && ("$coursedbfname" ne "") } { sqlite3 db $dbfile -- cgit v1.2.3