Code:

set cc_outptpath "/home/doos/"set cc_outptfile "whoisonline.txt"# $cc_chanlist# List of channels to monitor (ommit #)set cc_chanlist {go}bind join - * cc_joinbind part - * cc_partbind sign - * cc_signbind kick - * cc_kickbind splt - * cc_splitproc cc_countusers {chan} {  global cc_outptfile cc_outptpathset totalusers [llength [chanlist #go]]  set c [catch {set fd [open "$cc_outptpath$chan.$cc_outptfile" w]} reason]puts $fd $totalusers  catch {close $fd}  return 0}proc cc_join {nick uhost handle chan} {  regsub -all "\#" $chan "" chan  global cc_chanlist  if {[lsearch $cc_chanlist $chan] != -1} {cc_countusers $chan}#puthelp "PRIVMSG #go :Doos is an idiot."  return 0}proc cc_part {nick uhost handle chan msg} {  regsub -all "\#" $chan "" chan  global cc_chanlist  if {[lsearch $cc_chanlist $chan] != -1} {cc_countusers $chan}  return 0}proc cc_sign {nick uhost handle chan msg} {  regsub -all "\#" $chan "" chan  global cc_chanlist  if {[lsearch $cc_chanlist $chan] != -1} {cc_countusers $chan}  return 0}proc cc_kick {nick uhost handle chan msg} {  regsub -all "\#" $chan "" chan  global cc_chanlist  if {[lsearch $cc_chanlist $chan] != -1} {cc_countusers $chan}  return 0}proc cc_split {nick uhost handle chan msg} {  regsub -all "\#" $chan "" chan  global cc_chanlist  if {[lsearch $cc_chanlist $chan] != -1} {cc_countusers $chan}  return 0}# Check for a QUITproc hung_up {nick uhost handle chan msg} {  regsub -all "\#" $chan "" chan  global cc_chanlist  if {[lsearch $cc_chanlist $chan] != -1} {cc_countusers $chan}  return 0}putlog "\002WHOSONLINE:\002 countlist.tcl Version1 is loaded."