egghelp/eggheads community

how to change?

2005-05-03T22:21:54-04:00

Thanks De Kus.

[04:10] Tcl error [banfilter]: invalid command name "replace"

thanks

Statistics: Posted by mm — Tue May 03, 2005 10:21 pm

how to change?

2005-05-04T03:39:12-04:00

without any warranty

Code:

bind filt - ".+ban *" banfilterproc banfilter {idx text} {   set text [split $text]   set chan [lindex $text [set ci [lsearch -glob [lrange $text 0 4] #*]]]   set reason [lreplace $text $ci $ci]   set dur [lindex $reason [set di [lsearch -glob [lrange $reason 0 3] \%*]]]   set reason [lreplace $reason $di $di]   if { [set reason [lrange $reason 2 end]] == "" } {      set reason "requested"   }   set reason "kicked by [idx2hand $idx] ([ctime [unixtime]]: $reason)"   return [join [list .+ban $chan $dur $reason]]}

I am sure I hid some typos or stupid logical errors, but maybe you find them yourself .

One note:
I assumed lreplace behaves like that:

tcl: evaluate (.tcl): lreplace {1 2} -1 -1
Tcl: 1 2

Statistics: Posted by De Kus — Mon May 02, 2005 3:19 pm

how to change?

2005-05-01T15:45:48-04:00

could you please?

thanks

Statistics: Posted by mm — Sun May 01, 2005 3:45 pm

how to change?

2005-05-01T12:44:02-04:00

the reason thing would require some enhancement anyway, if you really need it, I might change the whole thing (currently probably only 1 list element reasons will work).

Statistics: Posted by De Kus — Sun May 01, 2005 12:44 pm

how to change?

2005-04-30T16:46:56-04:00

Thank you so much De Kus, works great..
just one last thing, if i don't mention "reason" then it leaves it blank, doesn't put "requested"

thanks again

Statistics: Posted by mm — Sat Apr 30, 2005 4:46 pm

how to change?

2005-04-30T03:20:53-04:00

then read again what I said and look again what you did.

Tip: you removed the " quotes around the expression after reason
Tip2: Last edited by De Kus on Fri Apr 29, 2005 8:29 am; edited 2 times in total

Statistics: Posted by De Kus — Sat Apr 30, 2005 3:20 am

how to change?

2005-04-29T21:15:22-04:00

Thanks but if i remove these quotes

Code:

set reason "kicked by [idx2hand $idx] ([ctime [unixtime]]: $reason)"

then i get error message

thanks

Statistics: Posted by mm — Fri Apr 29, 2005 9:15 pm

how to change?

2005-04-29T03:25:34-04:00

I told you to refer the manual to customize the date/time format ><

that quotes is strange, you could of course try to remove the quotes around $reason, seems they are not neccesarry in the party line command.

Tip: this strange in your head can be used to think, you don't need others to relay on for everything.

Statistics: Posted by De Kus — Fri Apr 29, 2005 3:25 am

how to change?

2005-04-28T22:03:32-04:00

thank you De Kus, it worked fine. the kick message shows like this
was kicked by testbot("kicked by mm (date, time: reason)", how do i remove these quotes?

thanks

Statistics: Posted by mm — Thu Apr 28, 2005 10:03 pm

how to change?

2005-04-27T23:10:09-04:00

Thanks De kus, i'll let you know.

Statistics: Posted by mm — Wed Apr 27, 2005 11:10 pm

how to change?

2005-04-27T04:02:33-04:00

maybe your TCL version doesnt support the shortcut of "end", try using "end" instead of "e" (dont forget the one in lrange then). I tested it locally and there it works ^-^.

[09:02:03] tcl: evaluate (.tcl): lindex {one two three} e
Tcl: three

Statistics: Posted by De Kus — Wed Apr 27, 2005 4:02 am

how to change?

2005-04-26T21:06:01-04:00

well now i get this error
[02:28] Tcl error [banfilter]: wrong # args: should be "lindex list ?index...?"
thanks again

Statistics: Posted by mm — Tue Apr 26, 2005 9:06 pm

how to change?

2005-04-26T14:24:16-04:00

[03:20] Tcl error [banfilter]: extra characters after close-quote

there were a redudant ] bracet and one was not moved correctly when I edited some part (after I noticed, that join kills "" quotes).

at least it seems to trigger correctly?!

Statistics: Posted by De Kus — Tue Apr 26, 2005 2:24 pm

how to change?

2005-04-25T18:41:55-04:00

thank you so much de kus, i'll test it and i'll let you know. Thanks again.

sorry i get this error message in the partyline
[03:20] Tcl error [banfilter]: extra characters after close-quote

Statistics: Posted by mm — Mon Apr 25, 2005 6:41 pm

how to change?

2005-04-29T03:29:35-04:00

Code:

bind filt - ".+ban *" banfilterproc banfilter {idx text} {   set text [split $text]   if { [string match #* [lindex $text end]] || [string match \%* [lindex $text end]] || [llength $text] == 2 } {      set reason "requested"      set default 1   } else {      set reason [string trim [lindex $text end] "\""]      set default 0   }   set reason "kicked by [idx2hand $idx] ([ctime [unixtime]]: $reason)"   if {$default} {      return "[join [lrange $text 0 end]] $reason"   } else {      return "[join [lrange $text 0 end-1]] $reason"   }}

I meant something like this. Untested, don't know if it works. maybe you may not split $text, maybe it doesnt trigger when it is supposed to, maybe the bot won't recognize the list elements for +ban right in the end.

the reason change the banreason to something like this, too of course:
append reason " (kicked by [idx2hand $idx] on [ctime [unixtime]])"

if you want to change the date format, replace ctime with strftime, refer TCL-Commands.doc and/or http://www.tcl.tk/man/tcl8.4/TclCmd/clock.htm#M6 for details.

Statistics: Posted by De Kus — Mon Apr 25, 2005 9:41 am