cims-eggdrop/cims_logger.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 is most likely only done at a central netbot
putlog "mnet: = Procedure ::cims::history_logger loaded"
proc ::cims::history_logger {bucket nickname channel rec_text} {
	
	# write all to it
	set timestamp [clock format [clock seconds] -format "%Y-%m-%d %H:%M:%S"]
	set input_history "$timestamp / $nickname - $channel : $rec_text"
	
	#open handle
	set fh [open "scripts/cims/${bucket}.log" "a"]
	# put to handle
	puts $fh "$input_history"
	# close handle
	close $fh
}