Chan ban

[dMTOn]

Hi
I need a script similar to BanChan
http://www.egghelp.org/cgi-bin/tcl_arch ... load&id=34
but that works in diffrent way. It has to do a whois on user and kickban them if they're NOT on specified channel, if they're on specified channel bot should just leave them. Thanks for any help

[demond]

xchannel supports that via regexps

[dMTOn]

It does something like that ?
I looked at code and can't find that (only bad channel) but as i said i need something diffrent. If it does that could you write here how to set it up ?
Thanks

[caesar]

The bot is in that *specified* channel and chould see if it's there or not or you need to collect this information by doing a whois on a user upon join?

[dMTOn]

The bot is in that *specified* channel and chould see if it's there or not or you need to collect this information by doing a whois on a user upon join?

Bot is on that channel

[caesar]

Code: Select all

set badchan(channel) "#foo"
set badchan(reason) "You aren't on the BadChan!"
set badchan(duration) "60"

bind join * * bad:chan:join

proc bad:chan:join {nick uhost hand chan} {
  global badchan
  if {[isbotnick $nick] || [string match -nocase $chan $badchan(channel)] || ![validchan $badchan(channel)]} return
  if {![botisop $chan] || ![botonchan $badchan(channel)] || [onchan $nick $badchan(channel)]} return
  newchanban $chan *!*@[lindex [split $uhost @] 1] BadChan $badchan(duration) $badchan(reason)
  putquick "KICK $chan $nick :$badchan(reason)" -next
}

[demond]

hmm I spoke too early... no, you can't do that with xchannel if the script was checking /whois channel reply only, you could add something like [^#foobar] in your badwhois file... alas, it also checks ircname/gecos and server, so it would punish for no match on these with #foobar

[dMTOn]

Thanks a lot caesar, the script does the job!