autoop sur un salon bien définit

[djkenny]

tclcopier

bind join - * autoop
 
proc autoop {nick host hand chan} {
   if [string equal -nocase $chan #salon1] {
      putserv "MODE $chan +o $nick"
   }
   if [string equal -nocase $chan #salon2] {
      putserv "PRIVMSG $chan +v $nick"
   }
}