egghelp/eggheads community

Help With Bans in TCL Script

2008-07-24T17:41:30-04:00

Hi Sir_FZ , strikealight & alchera,

thanks for your reply and help.

Good observation there, didn't think about it frankly so achilles1900, you want the bot to whois the banned nick and try to unban any bans set on it?

Yes that would be very helpful!

Statistics: Posted by achilles1900 — Thu Jul 24, 2008 5:41 pm

Help With Bans in TCL Script

2008-07-24T13:26:08-04:00

Mmmm... if the user is banned, I wouldn't suspect he's on the channel neccessarily... so getchanhost will most likely fail.

Good observation there, didn't think about it frankly so achilles1900, you want the bot to whois the banned nick and try to unban any bans set on it?

Statistics: Posted by Sir_Fz — Thu Jul 24, 2008 1:26 pm

Help With Bans in TCL Script

2008-07-24T12:32:56-04:00

Mmmm... if the user is banned, I wouldn't suspect he's on the channel necessarily... so getchanhost will most likely fail.

Statistics: Posted by strikelight — Thu Jul 24, 2008 12:32 pm

Help With Bans in TCL Script

2008-07-24T10:16:36-04:00

Replace

Code:

[getchanhost $text $chan]

with

Code:

[maskhost [getchanhost $text $chan]]

as for !unbaning nick, use this proc instead of yours:

Code:

# Unban Processproc proc_unban { nick uhost hand chan text } { set mask $text![getchanhost $text $chan] set found 0 foreach ban [chanbans $chan] {  set ban [lindex $ban 0]  if {[string match -nocase $ban $mask]} {   pushmode $chan -b $ban   set found 1  } } if {!$found} {  puthelp "PRIVMSG $chan :$text Is Not In The Ban List" }}

Statistics: Posted by Sir_Fz — Thu Jul 24, 2008 10:16 am

Help With Bans in TCL Script

2008-07-23T23:22:37-04:00

It's the host you unban (as per the list), not the nick.

.i.e !unban *!*user@*.host.domain

Statistics: Posted by Alchera — Wed Jul 23, 2008 11:22 pm

Help With Bans in TCL Script

2008-07-23T05:19:30-04:00

Hi people,

the following is the bans section in Op Commands by xTc^bLiTz
I dont know TCL so i hope some kind soul can take a look at it work it out.

1. I would like the bot to ban with : *!*user@*.host.domain which it is currently not doing.
(FYI I do the public command !ban (nick) )

2. When I try to do !unban (nick) it tells me that there is no user in the banlist, although i see the host there. Anyway to fix this?

Thanks in advance for your time and efforts . Following is attached the TCL code

Code:

# Ban Processproc proc_ban { nick uhost hand chan text } {  global botnick  if {[onchan $text]} {    if {$text == $botnick} { return 0 }    set banmask [getchanhost $text $chan]    putquick "MODE $chan +b $banmask"    putkick $chan $text :Requested  } else { putserv "PRIVMSG $chan :$text Is Not In The Channel" }}# Unban Processproc proc_unban { nick uhost hand chan text } {  if {[ischanban $text $chan]} {    pushmode $chan -b $text  } else { putserv "PRIVMSG $chan :$text Is Not In The Ban List" }}

Statistics: Posted by achilles1900 — Wed Jul 23, 2008 5:19 am