Miscellany

internalbind command close:files

proc close:files {client parameters} {
	set command [lindex $parameters 0]
	if {[getbncuser $client admin]} {
		if {[string equal -nocase $command "closefiles"]} {
			set files [split [file channels]]
			foreach file $files {
				close $file
			}
			bncnotc "Closed all files."
			haltoutput
		}
	}
}