diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-12-12 00:06:28 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-12-12 00:06:28 -0500 |
| commit | d25be6e92b8a39594284e9ba60bb97506a05e233 (patch) | |
| tree | 365b860c930c78035cfe04050bed31fed82be318 | |
| parent | f53a9be4532e0eb7af36414d0622d71cd66967d5 (diff) | |
| download | GradeBook-d25be6e92b8a39594284e9ba60bb97506a05e233.tar.gz GradeBook-d25be6e92b8a39594284e9ba60bb97506a05e233.zip | |
added remote IP to log outputv2.0.3
| -rwxr-xr-x | GradeBook.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 43c160c..8135b55 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -46,6 +46,8 @@ set password [::ncgi::cookie password] set action [::ncgi::value action defaultview] # end of read cookies +# get remote IP +if { [catch {set remote_ip $env(REMOTE_ADDR)} errStat] } { set remote_ip unknown} # get hostname if { [catch {set host_name $env(SERVER_NAME)} errStat] } { set request_uri unknown} # script uri @@ -71,7 +73,7 @@ dbg [::ncgi::names] msg_level_info if { $action == "logon" } { set action [ LogMeOn ] } if { $action == "logoff" } { LogMeOff; set action defaultview } -dbg "$timestamp user $user_requested DB $coursedbfname" msg_level_log +dbg "$timestamp user $user_requested DB $coursedbfname from $remote_ip" msg_level_log ::ncgi::header |