egghelp/eggheads community

Extra Characters on StrictHost Script [Help]

2008-10-22T10:16:09-04:00

No worries, been out of town for a while myself...
What you ask for, pretty much mimics the behaviour of the maskhost function. Only added/kept the nick => hostmask feature..
Give it a try..

Code:

proc stricthost {target chan} { if {![string match "*@*" $target]} {  return [maskhost "[string trimleft $target "!"]![getchanhost $target $chan]"] } return [maskhost $target]}proc Ban { nick host hand chan text } { set t_list [split $text] pushmode $chan +b [stricthost [lindex $t_list 0]] putkick $chan [lindex $t_list 0]  [join [lrange $t_list 1 end]]}

Statistics: Posted by nml375 — Wed Oct 22, 2008 10:16 am

Extra Characters on StrictHost Script [Help]

2008-10-11T14:52:50-04:00

Sorry for my delayed response, the script indeed does work.
But.
It is banning; *!*IDENT@Vhost

Example: *!*Branden@NetAdmin.CyberByteCafe.Co.CC

I want it to ban; *!*@*.rest.of.vhost

Example: *!*@*.CyberByteCafe.Co.CC

Statistics: Posted by Branden — Sat Oct 11, 2008 2:52 pm

Extra Characters on StrictHost Script [Help]

2008-09-30T10:05:38-04:00

Ahh, my bad. Thought I was checking "Scripting Help" rather than "Script Request"

Anyway, an attempt at rewriting the code in a somewhat proper way.. I have not made any major efforts to solve some ambiguity in the code, such as wether to kick when the target is a banmask rather than a nick, or whether to test if the nick is actually present in the channel.. I cannot guarantee this will produce exactly the same behaviour as the former code, but based on my understanding of the script, the edited version should behave somewhat similar with "logical" arguments.

Code:

proc stricthost {target chan} { if {![string match "*@*" $target]} {  set host "[getchanhost $target $chan]"  if {[string index $target 0] == "!"} {   return [maskhost "[string range $target 1 end]!$host"]  }  if {[string index $host 0] == "~"} {   return "*!*[string range $host 1 end]"  }  return "*!*$host" } return $target}proc Ban { nick host hand chan text } { set t_list [split $text] pushmode $chan +b [stricthost [lindex $t_list 0]] putkick $chan [lindex $t_list 0]  [join [lrange $t_list 1 end]]}

Statistics: Posted by nml375 — Tue Sep 30, 2008 10:05 am

Extra Characters on StrictHost Script [Help]

2008-09-28T15:21:45-04:00

To be honest, I didn't code this...

Could you please help me code it correctly?

Statistics: Posted by Branden — Sun Sep 28, 2008 3:21 pm

Extra Characters on StrictHost Script [Help]

2008-09-28T13:48:23-04:00

There are a few things in your code that makes little sense to me:

Code:

            if {[string index $addhost 0] == "~"} {set addhost "*[string range $addhost 1 end]"}            set addhost "*$addhost"

Why have the conditional if you're only going to overwrite the addhost variable anyway.. I doubt this is the cause for the "odd behaviour".

Code:

   set Why [lrange $text 2 100]

$text is not a list, so don't use list operations on it. Split it first like you did on the row before...

Code:

        set addhost "$host[getchanhost $host $chan]"

Shouldn't this be "$host![getchanhost $host $chan]", or simply [getchanhost $host $chan]?
At the same time, neither way makes sense with the "strict" operation further on where you prefix this with a "*", essentially making the mask "*nickuser@host" or "*nick!user@host". Seems you want $addhost to hold nick!user@host if $strict is 0, and user@host otherwize.. I'd suggest you look into this part of the code, as it may very well be the culprit of your problems...

Statistics: Posted by nml375 — Sun Sep 28, 2008 1:48 pm

Extra Characters on StrictHost Script [Help]

2008-09-28T12:02:44-04:00

The script below adds an extra character at the beginning of the ident!

Code:

proc stricthost {host chan} {     set strict 0     if {[string index $host 0] == "!"} {         set host [string range $host 1 end]         set strict 1     }     if {![string match "*@*" $host]} {         set addhost "$host[getchanhost $host $chan]"         if {$strict == 0} {             set addhost [maskhost "*$addhost"]         } else {             if {[string index $addhost 0] == "~"} {set addhost "*[string range $addhost 1 end]"}             set addhost "*$addhost"         }         set host $addhost     }     return $host } proc Ban { nick host hand chan text } {set Who [lindex [split $text] 0]set Why [lrange $text 2 100]set thehost [stricthost $Who $chan] putquick "MODE $chan +b $thehost"putquick "KICK $chan $Who $Why"}

The REAL host is: *!*t0xs7s@*.east.verizon.net
And, what the bot is banning is: *!*st0xs7s@*.east.verizon.net[/code]

Statistics: Posted by Branden — Sun Sep 28, 2008 12:02 pm