diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-12-18 10:01:19 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-12-18 10:01:19 -0500 |
| commit | 38aa8e28b85a716c45dc23c7039067069ff75a5d (patch) | |
| tree | 28bd7ff14935c557d65a294f3de85cb61d0b518c /GradeBook_lib.tcl | |
| parent | fe51a2616955941dfbf2e1bf44eb806be9514a71 (diff) | |
| download | GradeBook-38aa8e28b85a716c45dc23c7039067069ff75a5d.tar.gz GradeBook-38aa8e28b85a716c45dc23c7039067069ff75a5d.zip | |
added log file as config variable
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 885af1b..4876c82 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -20,6 +20,7 @@ array set GradebookServerConfig [list \ passwords_db_file "./passwd.db" \ html_access_stats_url "/~evmik/grade_book_stats/" \ verbosity_level 100 \ + log_file "log" \ ] # ######################################################################## @@ -323,7 +324,7 @@ proc dbg {msg {category msg_level_critical}} { } if { $level <= $GradebookServerConfig(verbosity_level) } { - set fid [open log a+] + set fid [open $GradebookServerConfig(log_file) a+] puts $fid "$msg_header $msg" close $fid } |