|
@@ -1,15 +1,15 @@
|
|
|
# define your own logging.. lets called by mnet:history_queue! You can change the call in mnet.tcl
|
|
# define your own logging.. lets called by mnet:history_queue! You can change the call in mnet.tcl
|
|
|
# And you can change the things it does with the data here.. Logging is optional
|
|
# And you can change the things it does with the data here.. Logging is optional
|
|
|
# and is most likely only done at a central netbot
|
|
# and is most likely only done at a central netbot
|
|
|
-putlog "mnet: = Procedure mnet:history_logger loaded"
|
|
|
|
|
-proc mnet:history_logger {bucket nickname channel rec_text} {
|
|
|
|
|
|
|
+putlog "mnet: = Procedure ::cims::history_logger loaded"
|
|
|
|
|
+proc ::cims::history_logger {bucket nickname channel rec_text} {
|
|
|
|
|
|
|
|
# write all to it
|
|
# write all to it
|
|
|
set timestamp [clock format [clock seconds] -format "%Y-%m-%d %H:%M:%S"]
|
|
set timestamp [clock format [clock seconds] -format "%Y-%m-%d %H:%M:%S"]
|
|
|
set input_history "$timestamp / $nickname - $channel : $rec_text"
|
|
set input_history "$timestamp / $nickname - $channel : $rec_text"
|
|
|
|
|
|
|
|
#open handle
|
|
#open handle
|
|
|
- set fh [open "scripts/mnet/${bucket}.log" "a"]
|
|
|
|
|
|
|
+ set fh [open "scripts/cims/${bucket}.log" "a"]
|
|
|
# put to handle
|
|
# put to handle
|
|
|
puts $fh "$input_history"
|
|
puts $fh "$input_history"
|
|
|
# close handle
|
|
# close handle
|
