Tcl error

jakeT · Post by **jakeT** » Sat Aug 23, 2003 8:07 am

extra characters after close-brace
while executing
"proc msg:invite {nick uhost hand arg"

I'm a bit new to this all so need a bit of help.

Code: Select all

# Channel where the bot will invite if flag set
set chan_1 "#test1"
set chan_2 "#test2"

bind msg -|I inviteme msg:invite

proc msg:invite {nick uhost hand arg}{
  global chan_1 chan_2
  if {![passwdok $hand [lindex [split $arg] 0]]}{
    putserv "NOTICE $nick :Incorrect password."
    return 0
  }
  putserv "INVITE $nick $chan_1"
  putserv "INVITE $nick $chan_2"
}

I'm trying to get users with the I flag to be able to do /msg <bot> inviteme <password> so they get invited to 2 +i channels.

Thanks for your help.

Jake.

jakeT · Post by **jakeT** » Sat Aug 23, 2003 8:55 am

doh, spotted the white space problem ie }{ should be } {