2 quick questions

nso · Post by **nso** » Mon Jun 16, 2003 3:39 am

Hi.

Im currently working on a tcl-script and have fond some weird "bugs" I haven't been able to figure out what is.

1:
I get the nick of the last erson whom joined with $nick in an JOIN bind.
I set a global variable to that nick, and then when I call the global variable in another proc and process it.. it seems like it won't kick people with special chars in their name.. I do no editing/checking other then comparing the whois on the user with a predefined pattern..
Any idea why this might be so?
Actually it seems like the only characters this apply to are \ .. atleast in my testing

2:
When using these two lines

set rsbanhost [maskhost [getchanhost $rsnick $rschan]]
newban $rsbanhost AutoBan $rsbanreason 5 none

it did this

[08:48:34] * Joins: Kakarotto (~Kakarotto@ti400720a080-2656.bb.online.no)
[08:48:38] * skansen sets mode: +b *!Kakarotto@*.bb.online.no
[08:48:40] * Kakarotto was kicked by defacto (banned)
[08:48:52] * Joins: Kakarotto (~Kakarotto@ti400720a080-2656.bb.online.no)

it doesnt seem to catch the ~..
any quick n dirty solution to this one?

Post by **caesar** » Mon Jun 16, 2003 3:43 am

try this:

Code: Select all

set rsbanhost "*!*@[lindex [split [getchanhost $rsnick $rschan] @] 1]"

nso · Post by **nso** » Mon Jun 16, 2003 3:51 am

i dont think it would be wise to ban hosts..
but thanks anyway

Papillon · Post by **Papillon** » Mon Jun 16, 2003 3:58 am

# Set this to 1 if you don't want your the bot to strip a leading '~'
# on user@hosts.
set strict-host 1

^^from the config-file
as for question 1... we need to see the parts of your code where you are handling that variable..

nso · Post by **nso** » Mon Jun 16, 2003 4:03 am

Code: Select all

set rschan "#bla"
set rsserver "bla bla"
set rskickreason "bla"
set rsmsgonkick "\[blabla\] bla"
set rsbanreason "bla"
set rsmsgonban "\[blabla\]  bla"

bind JOIN - * rsjoin
bind RAW * 312 rswhois

set rsnick ""
set rslastnick ""

proc rsjoin { nick uhost hand chan } {
global rschan rsnick
	if { $chan != $rschan } { return 0 }
	putserv "WHOIS $nick"
	set rsnick "$nick"
}

proc rswhois { from key arg } {
global rsnick rschan rsserver rskickreason rslastnick rsmsgonkick rsmsgonban rsbanreason
	set isonserver [lindex $arg 2]
	set isonserver [string tolower $isonserver]
	for { set rscounter 0 } { $rscounter < [llength $rsserver] } { incr rscounter } {
                if {$isonserver == [lindex $rsserver $rscounter]} {
			if { $rsnick == $rslastnick } {
				set rsbanhost [maskhost [getchanhost $rsnick $rschan]]
				newban $rsbanhost AutoBan_ServerKick $rsbanreason 5 none		
				putserv "KICK $rschan $rsnick :$rsbanreason"
				putserv "PRIVMSG $rsnick :$rsmsgonban"
				set rslastnick ""
			} else {
				putserv "KICK $rschan $rsnick :$rskickreason"
				set rslastnick $rsnick
				putserv "PRIVMSG $rsnick :$rsmsgonkick"
		}
	        }
	}
}

edited.. forgot some stuff on the top

it's public anyhoo, dunno why i didn't just paste it in the first post :p

Post by **caesar** » Mon Jun 16, 2003 4:04 am

Oups, yah, setting strict-host to 1 will do fine with your ban mask.

nso · Post by **nso** » Mon Jun 16, 2003 4:05 am

goodie

i thought it was kindoff funny since i didn't manage to reproduce the error on my own testeggie ^^

Papillon · Post by **Papillon** » Mon Jun 16, 2003 4:20 am

try using

Code: Select all

putkick $rschan $rsnick "$rsbanreason"

for kicking
.. and change

Code: Select all

if { $rsnick == $rslastnick } {

to

Code: Select all

if { [string equal $rsnick $rslastnick] } {

nso · Post by **nso** » Mon Jun 16, 2003 4:39 am

thanks for the assistance.. will try it out

nso · Post by **nso** » Mon Jun 16, 2003 5:58 am

hi.

it wont work tho.. it still denies to do anything when someone with a \ in their nick joins the channel..
any other suggestions? i really dont understand why :p

[edit]

did some testing now..
entered a putserv "privmsg $rschan :$isonserver" below set isonserver in the second proc.. and what it returned when someone, with a nick using \ at the end, was this

Code: Select all

<test2k> :who

when infact it should return the irc-channel

im guessing that the \ in the nick disables something.. how do i go around this?

Papillon · Post by **Papillon** » Mon Jun 16, 2003 6:27 am

well.... raw 312 will not give you any channels, just serverinfo

and use split before you use list commands on variables, ie.. [lindex [split $arg] 2] ..... same goes with $rsserver, and make sure you have "" around $rsbanreason, or it will give an error if you have more than 1 word in it