[lsn]

proc chankey {chan args} {
  set chan [lindex $args 2]
  set chan [lindex $chan 1]
  set chankey [::stats::channel -get $chan chankey]
  if {[llength chankey]} {
    putserv "JOIN $chan $chankey"
  }
}