egghelp/eggheads community

Ban type problems! + Probs with tcl

2004-09-01T06:49:10-04:00

i'm using :
OS:˙Linux˙2.4.26-gentoo-r9
running˙eggdrop˙v1.6.16+Gentoo
Tcl˙library:˙/usr/lib/tcl8.3
Tcl˙version:˙8.3.4˙(header˙version˙8.3.4)

ok i put { at the end and now it seems to work but not right

it just kicks a user not bans

Statistics: Posted by guest — Wed Sep 01, 2004 6:49 am

Ban type problems! + Probs with tcl

2004-09-01T06:17:25-04:00

What eggdrop version are you using?? and what tcl version is your machine on?!

What's that got to do with the misplaced brace? (notice: no "{" at the end of that if-line)

Statistics: Posted by user — Wed Sep 01, 2004 6:17 am

Ban type problems! + Probs with tcl

2004-09-01T05:38:12-04:00

What eggdrop version are you using?? and what tcl version is your machine on?!

Statistics: Posted by awyeah — Wed Sep 01, 2004 5:38 am

Ban type problems! + Probs with tcl

2004-09-01T05:21:48-04:00

after " .tcl set errorInfo " i get

Tcl:wrong # args: no script following "{([matchattr $hand m" argument
Tcl: while compiling
Tcl: "if {([matchattr $hand m|m $chan]) || matchattr $hand o|o $chan])}"
Tcl: (compiling body of proc "pub:kick:ban", line
Tcl: invoked from within
Tcl: "pub:kick:ban $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

Statistics: Posted by guest — Wed Sep 01, 2004 5:21 am

Ban type problems! + Probs with tcl

2004-08-31T08:13:39-04:00

Try:

Code:

.tcl set errorInfo

In DCC with the bot, then show us the result.
The the code you are trying to work on is fairly simple and really looks allright to me.

Statistics: Posted by awyeah — Tue Aug 31, 2004 8:13 am

Ban type problems! + Probs with tcl

2004-08-31T05:09:10-04:00

no suggestions?

Statistics: Posted by guest — Tue Aug 31, 2004 5:09 am

Ban type problems! + Probs with tcl

2004-08-30T14:13:45-04:00

when i write in chan like ban

i get this error in my telnet

[21:03]˙Tcl˙error˙[pub:kick:ban]:˙wrong˙#˙args:˙no˙script˙following˙"{([matchattr˙$hand˙m"˙argument

when i write

Code:

 .tcl info args pub:kick:ban

in telnet i get this answer

Tcl:˙nick˙uhost˙hand˙chan˙text

so what does it mean ....

Statistics: Posted by guest — Mon Aug 30, 2004 2:13 pm

Ban type problems! + Probs with tcl

2004-08-30T06:17:57-04:00

Tcl has a command 'info body ' that will list the contents of a proc. 'info args ' shows what you have defined as the parameters for the proc.

Since your error is 'args' related, try to use this command in dcc to figure out what went wrong. Example:

Code:

.tcl info args pub:kick:ban

Statistics: Posted by YooHoo — Mon Aug 30, 2004 6:17 am

Ban type problems! + Probs with tcl

2004-08-30T03:59:40-04:00

now the syntax is all right but script does nothing...

while in telnet i see this error

Tcl˙error˙[pub:kick:ban]:˙wrong˙#˙args:˙no˙script˙following˙"{([matchattr˙$hand˙m"˙argument

Statistics: Posted by guest — Mon Aug 30, 2004 3:59 am

Ban type problems! + Probs with tcl

2004-08-26T20:45:07-04:00

Ok....grrr yes now I know it was calling $hand globally, as I had closed the procedure mistakenly with the rest of it being global. Damn I did a fumble with the curly brackets again, am so careless with syntax errors. Ok give this a go.

*me* keeps his fingers crossed!

Code:

bind pub B|B ban pub:kick:ban proc pub:kick:ban {nick uhost hand chan text} {  set person [lindex $text 0]; set reason [lrange $text 1 end]  set host [getchanhost $person]; set handle [nick2hand $person $chan]  if {($text == "")} { putserv "NOTICE $nick :Vartojimas: cya  (priezhastis)"; return 0 }   if {($host == "")} { putserv "NOTICE $nick :Ko norejai?"; return 0 }    if {([matchattr $handle mn|mn $chan]) || ([matchattr $handle b|b $chan])} {     putquick "NOTICE $nick :suka zhiurek ka darai!" -next; return 0 }      if {([matchattr $hand m|m $chan]) || ([matchattr $hand o|o $chan])} {       putquick "MODE $nick -o+b $person *!*[string trimleft [lindex [split $host "@"] 0] "~"]@[lindex [split [maskhost $host] "@"] 1]" -next       putquick "KICK $chan $person :$reason" -next; return 0       } }

Statistics: Posted by awyeah — Thu Aug 26, 2004 8:45 pm

Ban type problems! + Probs with tcl

2004-08-26T20:39:37-04:00

There is nothing wrong with the script works fine with my bot. The hand variable is defined locally within the script. I think its calling it global somewhere if I am not mistaken. It says line 1 in the script, whats in line 1 of this script?

What eggdrop version are you using? Is the script possibly clashing with others? Try: Moving it to the top of the script list in the .conf file so it is the first tcl to be loaded into the bot.

Statistics: Posted by awyeah — Thu Aug 26, 2004 8:39 pm

Ban type problems! + Probs with tcl

2004-08-26T15:01:34-04:00

doesn't it?
i just called it like that

if {([matchattr $hand m|m $chan]) || ([matchattr $hand o|o $chan])} {

Statistics: Posted by guest — Thu Aug 26, 2004 3:01 pm

RTFEM

2004-08-26T14:26:08-04:00

[20:58] can't read "hand": no such variable
while executing
"matchattr $hand m|m $chan"
(file "scripts/chancmd.tcl" line 1)

Does that look like line 1 of any script you got from this thread?

Statistics: Posted by user — Thu Aug 26, 2004 2:26 pm

Ban type problems! + Probs with tcl

2004-08-26T14:03:30-04:00

i think it means the same ...

[20:58] Tcl error in file 'eggdrop.conf':
[20:58] can't read "hand": no such variable
while executing
"matchattr $hand m|m $chan"
(file "scripts/chancmd.tcl" line 1)
(file "eggdrop.conf" line 1)
[20:58] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

but it also means that smth is wrong

Statistics: Posted by guest — Thu Aug 26, 2004 2:03 pm

Ban type problems! + Probs with tcl

2004-08-25T21:46:34-04:00

Okay give this a go.
I have modified and optimized (reduced un-necessary lines) the code.

Code:

bind pub B|B ban pub:kick:banproc pub:kick:ban {nick uhost hand chan text} { set person [lindex $text 0]; set reason [lrange $text 1 end]  set host [getchanhost $person]; set handle [nick2hand $person $chan] if {($text == "")} { putserv "NOTICE $nick :Vartojimas: cya  (priezhastis)"; return 0 }  if {($host == "")} { putserv "NOTICE $nick :Ko norejai?"; return 0 }   if {([matchattr $handle mn|mn $chan]) || ([matchattr $handle b|b $chan])}     putquick "NOTICE $nick :suka zhiurek ka darai!" -next; return 0     }      if {([matchattr $hand m|m $chan]) || ([matchattr $hand o|o $chan])} {       putquick "MODE $nick -o+b $person *!*[string trimleft [lindex [split $host "@"] 0] "~"]@[lindex [split [maskhost $host] "@"] 1]" -next      putquick "KICK $chan $person :$reason" -next; return 0      } }

Statistics: Posted by awyeah — Wed Aug 25, 2004 9:46 pm