Tcl error [chan_checkon]: extra characters after close-quote

tedbundy · Post by **tedbundy** » Wed Mar 24, 2004 11:58 am

I'm making a little script, that makes my bot rejoin a channel, when it's status is trying (.status)

But there is one channel, I not want it to rejoin...

Code: Select all

proc chan_checkon { min hour day month year } {
	foreach chan [channels] {
		if {[botonchan $chan] == 0} {
			if{[string tolower $chan] == "#mytestchan"} {
				puthelp "PRIVMSG #mytestchan :Not listening on $chan - but not rejoining"
			} else {
				puthelp "PRIVMSG #mytestchan :Not listening on $chan"
			}
		}
	}
}

I keep getting this error - think it's at the == "#mytestchan"

What should I do?

Xpert · Post by **Xpert** » Wed Mar 24, 2004 12:11 pm

Try this code:

Code: Select all

proc chan_checkon {min hour day month year} { 
  foreach chan [channels] { 
    if {[botonchan $chan] == 0} { 
      if{[string match -nocase "#mytestchan" "$chan"]} { 
        puthelp "PRIVMSG #mytestchan :Not listening on $chan - but not rejoining" 
        } else { 
        puthelp "PRIVMSG #mytestchan :Not listening on $chan" 
      } 
    } 
  } 
}

Should worked, not tested

tedbundy · Post by **tedbundy** » Wed Mar 24, 2004 12:17 pm

Thanks for the quick reply - but now I recieve this error message:
Tcl error [chan_checkon]: invalid command name "if{0}"

I'm quite new at TCL so don't know what I'm doing wrong!

Xpert · Post by **Xpert** » Wed Mar 24, 2004 3:24 pm

Code: Select all

proc chan_checkon {min hour day month year} { 
  foreach chan [channels] { 
    if {![botonchan $chan]} { 
      if{[string match -nocase "#mytestchan" "$chan"]} { 
        puthelp "PRIVMSG #mytestchan :Not listening on $chan - but not rejoining" 
        } else { 
        puthelp "PRIVMSG #mytestchan :Not listening on $chan" 
      } 
    } 
  } 
}

strikelight · Post by **strikelight** » Wed Mar 24, 2004 8:15 pm

Xpert wrote:

Code: Select all

proc chan_checkon {min hour day month year} { 
  foreach chan [channels] { 
    if {![botonchan $chan]} { 
      if{[string match -nocase "#mytestchan" "$chan"]} { 
        puthelp "PRIVMSG #mytestchan :Not listening on $chan - but not rejoining" 
        } else { 
        puthelp "PRIVMSG #mytestchan :Not listening on $chan" 
      } 
    } 
  } 
}

The error wasn't generated from

Code: Select all

if {[botonchan $chan] == 0} {

it was generated from

Code: Select all

      if{[string match -nocase "#mytestchan" "$chan"]} {

There is a space missing between the "if" and the { ...
change it to:

Code: Select all

      if {[string match -nocase "#mytestchan" "$chan"]} {

tedbundy · Post by **tedbundy** » Thu Mar 25, 2004 5:03 am

Thank you strikelight - it worked!

Xpert · Post by **Xpert** » Thu Mar 25, 2004 12:34 pm

Woops.... sorry, my computer

Post by **caesar** » Thu Mar 25, 2004 4:35 pm

computer?

you meant "mistake" don't you?

Xpert · Post by **Xpert** » Fri Mar 26, 2004 6:01 am

Yes and no....

Post by **user** » Fri Mar 26, 2004 6:27 am

Xpert wrote:Oh ****!
Please delete this flood, i didn't mean to

Blame the computer!

Xpert · Post by **Xpert** » Fri Mar 26, 2004 9:59 am

lol, when i blame the computer, it returns to me (the flood above....)