TCL Anti invite

Anti invite

bind pubm - * chanpub

proc chanpub {nick uhost hand chan arg} {
  if { [regexp "#\[a-zA-Z\]+" $arg] } {
    if {[matchattr $hand f|f $chan]} {
      putserv "PRIVMSG $chan :\001ACTION warning! invite! $nick  :-)\001"
      return 1
    }
    
    # pour eviter la desincronisation du chan
  putserv "MODE $chan -o $nick"
  putserv "KICK $chan $nick :no invite!"
  putserv "MODE $chan +b $nick"
 }
}