ban sur detection de realname

[CrazyCat]

C'est pas complet, juste le principe:

tclcopier

bind join - "#canal *" rn:scan
 
proc rn:scan {nick uhost handle chan} {
	putserv "WHOIS $nick"
	return 0
}
 
bind raw - 311 rn:check
 
proc rn:check {from kw text} {
	set infos [split $text ":"]
	set user [split $infos 0]
	set realname [lindex $infos 1]
	if {$realname ......} {
		putserv "MODE +b #canal *!*@[lindex $user[2]]"
	}
	return 1
}