bind join - * joinproc
proc joinproc {nick uhost hand chan} {
  if {![string match -nocase "$chan" "#channel"]} { return 0 }
  global joined
#if {[isbotnick $nick]} {return}
  set ::joined($nick) [clock seconds]
#if {[string equal -nocase [nick2hand $nick] "Blacky"]} {
  if {[string equal -nocase $nick "Blacky"] || [string match -nocase "*@testing.com" $uhost]} {
	puthelp "PRIVMSG #controlchan :Blacky, i'm clearing your uptime-database so you can update your uptimes with mine" 
	putbot Blacky "clear"
	puthelp "PRIVMSG #controlchan :Blacky, I'm sending the info..." 
	foreach nick [chanlist "#controlchan"] {
		if {![info exists ::joined($nick)]} {
		set ::joined($nick) [getchanjoin $nick #channel]
		}
  	putbot Blacky "join $nick [expr {[clock seconds] - $::joined($nick)}]"
  	puthelp "PRIVMSG #controlchan :$nick has already joined as of [duration [expr {[clock seconds] - $::joined($nick)}]] ago" 
 	}
  } else {
     putbot Blacky "join $nick 0"
    }
}