Having troubles with a simple code. (bind notc)

2004-07-01T15:47:33-04:00

Ah thanx... I'm such a loser at times.
Can't see the problem even when its infront of you.

Statistics: Posted by awyeah — Thu Jul 01, 2004 3:47 pm

Having troubles with a simple code. (bind notc)

2004-07-01T06:02:15-04:00

Code:

if {($verbosewhy != 1)} { puts $file "\n[$date $mont

Escape the [

Statistics: Posted by dollar — Thu Jul 01, 2004 6:02 am

Having troubles with a simple code. (bind notc)

2004-07-01T04:49:35-04:00

Here is the code from which I get errors from.

Code:

bind notc - * verbose:procedure proc verbose:procedure {nick uhost hand text {chan ""}} { global botnick verbosetype verbosefile verbosewhy  set serviceverbose [lindex $text 0]; set verbose "VERBOSE"; set servicearrow [lindex $text 2]  set arrow "=>"; set user [lindex $text 1]; set channel [lindex $text 4]; putlog a  if {($chan == $botnick) || ($nick == $botnick)} { return 0 }; putlog b  if {([string equal $nick "ChanServ"]) && ([string match -nocase *$serviceverbose* $verbose]) && ([string equal $servicearrow $arrow]) && ([string match -nocase "*!*" $user]) && ([string match -nocase "*@*" $user]) && ([string match -nocase "#*" $channel])} {; putlog c  set access [lindex $text 3]; set modify [lindex $text 5]; set chan [lindex $text 4]  set from [lindex $text 1]; set nick [lindex [split $from "!"] 0]; set uhost [lindex [split $from "!"] 1]  putlog "CHANSERV VERBOSE [string toupper $chan] = $access - $modify - $chan - $from - $nick - $uhost"  set file [open $verbosefile "a"]; set time [unixtime]; set whytime [ctime $time]  set date [string trim [lindex $whytime 2]]; set month [string trim [lindex $whytime 1]]; set time [string trim [lindex $whytime 3]]   if {($verbosewhy == 1)} { puts $file "\n\[$date $month $time\] -ChanServ- $text"; catch {close $file}; putserv "PRIVMSG $chanservices :WHY $chan $nick" }   if {($verbosewhy != 1)} { puts $file "\n[$date $month $time\] -ChanServ- $text"; return 0 }   putlog "a1"   return 0   }}

I get this error.

Code:

[16:44] Tcl error [verbose:procedure]: missing close-bracket

I cannot find any missing close bracket anywhere.

Plus I tried the if statements with switches as well gives me the same result. Please help me.

Statistics: Posted by awyeah — Thu Jul 01, 2004 4:49 am

egghelp/eggheads community

Having troubles with a simple code. (bind notc)

Having troubles with a simple code. (bind notc)

Having troubles with a simple code. (bind notc)