diff options
| -rwxr-xr-x | GradeBook.tcl | 21 |
1 files changed, 21 insertions, 0 deletions
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 |