egghelp/eggheads community

[SOLVED] Request: TCL script correction

2004-09-10T15:49:00-04:00

Statistics: Posted by greenbear — Fri Sep 10, 2004 3:49 pm

[SOLVED] Request: TCL script correction

2004-09-10T13:29:43-04:00

At last, everything works fine! Thank you all for your time!
Big thanks to awyeah and Alchera! Respect lads!

Statistics: Posted by guest — Fri Sep 10, 2004 1:29 pm

[SOLVED] Request: TCL script correction

2004-09-09T21:21:55-04:00

I know the strict-host is a useless function because it always doesn't work.

Since when?

I have actually tested that setting in more than one bot on more than one shell (Sun, FreeBSD & Red Hat) and it works exactly as intended.

Statistics: Posted by Alchera — Thu Sep 09, 2004 9:21 pm

[SOLVED] Request: TCL script correction

2004-09-08T10:57:50-04:00

I really dont see any problem

.tcl getchanhost Nick #chan
Tcl: ~ident@dsl-123-456.isp.com

.tcl maskhost [getchanhost Nick #chan]
Tcl: *!*ident@*.isp.com

You guys are dumb

Statistics: Posted by greenbear — Wed Sep 08, 2004 10:57 am

[SOLVED] Request: TCL script correction

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

Haha, go ask 'gb' now. I know the strict-host is a useless function because it always doesn't work. That's why I never used it and never recommend it. Trimming the "~" in host of the string is the best way to deal with this.

Hmmm, I think I know why it wasn't stripped because we are splitting the uhost into the ident and host region between the @ to make the banmask ourself. If we don't split and just use the variable $uhost in the proc then in the result for $uhost will have a stripped "~". But here we cannot use $uhost as you want maskhost with the lindex 1 of the $uhost. So the best way is to trim it anyhow.

Anyway you had set strict-host to 0 in your eggdrop.conf, so it is set as global anyway, no need to set it in the tcl, as it is the same. You can set it in your .conf file or .tcl files, the end result will be the same as they will be global in both cases.

Now what you can do here to 100% strip that "~" from all bans is replace this:

Code:

set banmask "*!*[lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]"

with this code:

Code:

set banmask "*!*[string trimleft [lindex [split $uhost "@"] 0] "~"]@[lindex [split [maskhost $uhost] "@"] 1]"

and then your problem would have been solved!

Statistics: Posted by awyeah — Wed Sep 08, 2004 5:10 am

[SOLVED] Request: TCL script correction

2004-09-08T03:44:03-04:00

now it seems to work!

but ... look at that ...

eggdrop.conf

..........
set strict-host 0
set quiet-reject 0
set lowercase-ctcp 0
..............

and bot does this

[10:39] <@Hooligan> cya [place]
[10:39] Mode (@nevykes:#audi -o+b [place] *!*~bazooka@*.vet.lt)
[10:39] [place] was kicked by @nevykes (nevykes)

maybe i should put one more set strict-host "0" in my tcl script?
EDIT: It doesn't help either...

Statistics: Posted by guest — Wed Sep 08, 2004 3:44 am

[SOLVED] Request: TCL script correction

2004-09-06T23:30:08-04:00

Erm.. yeah, use it in a this way then:

Code:

set strict-host "0"#To trim of the "~" in the ident.

Code:

..........................................................if {($rest == "")} { putserv "NOTICE $Kikintojas :Vartojimas: cya  (priezhastis)" return 0 } set Kikinamasis [lindex $rest 0]set reas [lrange $rest 1 end]set uhost [getchanhost $Kikinamasis $chan]set banmask "*!*[lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]"if {($uhost == "")} { putserv "NOTICE $Kikintojas :Ko norejai?" return 0 }...................................................................................

Statistics: Posted by awyeah — Mon Sep 06, 2004 11:30 pm

[SOLVED] Request: TCL script correction

2004-09-06T22:04:58-04:00

Well, using $uhost in there makes no sense, as thats the person triggering the script and not the victim. Using $host is no good either, as it havent been defined anywhere.

So just looking at the script briefly, i sugeest that you move that set banmask line further down in your script (to where you actually need it) and then perform a getchanhost on the victim's nick, (set in the Kikinamasis var, as far as I can tell)

Just a sidenote, you can make the eggdrop strip ~ from idents automaticly by setting strict-host to 0 in your config file.

Statistics: Posted by greenbear — Mon Sep 06, 2004 10:04 pm

[SOLVED] Request: TCL script correction

2004-09-06T21:25:06-04:00

Honestly I have no idea why it doesn't work. To me and to all the people there it looks fine, its just a simple code indeed.

Statistics: Posted by awyeah — Mon Sep 06, 2004 9:25 pm

[SOLVED] Request: TCL script correction

2004-09-06T07:55:57-04:00

but then script doesnt work at all

Statistics: Posted by guest — Mon Sep 06, 2004 7:55 am

[SOLVED] Request: TCL script correction

2004-09-06T01:06:22-04:00

This has already been discussed and I remade the script quite alot of times in one of the threads in the eggdrop forum.

Here is the link:
http://forum.egghelp.org/viewtopic.php?t=8147

Statistics: Posted by awyeah — Mon Sep 06, 2004 1:06 am

[SOLVED] Request: TCL script correction

2004-09-05T15:55:48-04:00

i think if you change

Code:

set banmask *!*[string trimleft [lindex [split $uhost "@"] 0] "~"]@[lindex [split [maskhost $uhost] "@"] 1]

Code:

set banmask *!*[string trimleft [lindex [split $host "@"] 0] "~"]@[lindex [split [maskhost $host] "@"] 1]

it will work right, at least i hope so

Statistics: Posted by esix — Sun Sep 05, 2004 3:55 pm

[SOLVED] Request: TCL script correction

2004-09-05T06:21:52-04:00

so how to make the script ban not me but the person i want?

Statistics: Posted by guest — Sun Sep 05, 2004 6:21 am

[SOLVED] Request: TCL script correction

2004-09-05T04:43:04-04:00

Its because it bans on your uhost as shown in the code.

set banmask *!*[string trimleft [lindex [split $uhost "@"] 0] "~"]@[lindex [split [maskhost $uhost] "@"] 1]

Statistics: Posted by metroid — Sun Sep 05, 2004 4:43 am

[SOLVED] Request: TCL script correction

2004-09-04T13:26:28-04:00

Now my code is like u told me to do it looks like that...

Code:

bind pub B|B cya Banytiproc Banyti {Kikintojas uhost hand Kanalas rest} {set banmask *!*[string trimleft [lindex [split $uhost "@"] 0] "~"]@[lindex [split [maskhost $uhost] "@"] 1]if {$rest == ""} {putserv "NOTICE $Kikintojas :Vartojimas: cya  (priezhastis)"return 0}set Kikinamasis [lindex $rest 0]set reas [lrange $rest 1 end]if {[getchanhost $Kikinamasis $Kanalas] == ""} {putserv "NOTICE $Kikintojas :Ko norejai?"return 0}if {[matchattr $hand m|m $Kanalas]} {putserv "MODE $Kanalas -o+b $Kikinamasis $banmask"putserv "KICK $Kanalas $Kikinamasis :$reas"return 1}if {[matchattr [nick2hand $Kikinamasis $Kanalas] mn|mn $Kanalas] || [matchattr $Kikinamasis b]} {putserv "NOTICE $Kikintojas :suka zhiurek ka darai! "return 0}if {[matchattr $hand o|o $Kanalas]} {putserv "MODE $Kanalas -o+b $Kikinamasis $banmask"putserv "KICK $Kanalas $Kikinamasis :$reas"return 1}}

but it bans me, instead of person who i want to ban in irc it looks like that :

Whois Hooligan = Hooligan (bnc@shaman.velniai.net)
Whois savas = savas (ubaldas@aitvaras.net)
<@Hooligan> cya savas
Mode (@nevykes:#audi -o+b savas *!*bnc@*.velniai.net)
Mode (@savas:#audi +o savas)
savas was kicked by @nevykes (nevykes)

any ideas about that?

Statistics: Posted by guest — Sat Sep 04, 2004 1:26 pm