Botlending tcl modification

2015-09-07T02:33:20-04:00

There is a post in the same thread you posted this in. It is trying to match the realname of a user, based on raw numerics. You may find it helpful in getting the IP, as I showed in the code here.

Statistics: Posted by Get_A_Fix — Mon Sep 07, 2015 2:33 am

Botlending tcl modification

2015-09-06T14:41:52-04:00

Hello

I need some help with this code:

Code:

proc pub:ban {hand chan args x mix} {global botnick ownerset whom   [lindex $args 0]set time   [lindex $args 1]set reason [lrange $args 2 end]set option noneset add    ""if { $whom == ""} { a:usage $x ban ; return "FAILED: not all parameters specified"}if {![botisop $chan]} { a:tell $x 96 $chan; return "FAILED: opless"}if { [string map {* {} . {} ! {} @ {} ? {}} $whom] == ""} {a:tell $x 190; return "FAILED: mass ban caution"}if {![a:level $x $chan $whom [nick2hand $whom] [a:translate $hand $chan 222 ban]]}  { return "FAILED: target access is higher" }if {![onchan $whom $chan]} { set theban $whom; a:tell $x 95} else { set theban "*!*[string range [getchanhost $whom $chan] [string first @ [getchanhost $whom $chan]] end]" }if {![a:check -digit $time]} { set time "[channel get $chan ban-time]m"; set reason "[lrange $args 1 end]"}if { [string equal [lindex $reason 0] sticky] }{ set option sticky; set add "\[sticky\] "; set reason [lrange $reason 1 end]}if { $reason == ""} { set reason "No reason supplied" }if { [string equal [lindex $reason 0] global] && [check:n:gl $hand]}  {if {![llength [lrange $reason 1 end]]} { set reason "global No reason supplied" }set reason [join [a:translate $hand $chan 111 "$hand/\002[lindex $x 0]\002 $time ${add}\[globally\] [lrange $reason 1 end]"]]newban $theban $hand $reason $time $option; return "global_$whom for $time, $reason" } else {set reason [join [a:translate $hand $chan 111 "$hand/\002[lindex $x 0]\002 $time ${add}$reason"]]newchanban $chan $theban $hand $reason $time $option ; return "$whom $reason"}}

My eggdrop is running on a server who use obfuscate ip address for every user, something like ACJaz.IRCserver.Org.
Problem is, if that user is reconnecting, he will have another obfuscate ip, so if u ban him with eggdrop is useless, he quit, join again and have another obfuscate ip.

But if u are IRC Operator, u can see real ip if u do double whois on that user. I can make my eggdrop IRC Operator, but i cant make him to ban the real ip. I make some test with some whois tcl who use "RAW 311" and he return the real ip, so it can be done.

I tried to implement something with "raw 311", but without succes. I dont have enough knowledge to do this.

I guess i need to change this code:

Code:

{ set theban "*!*[string range [getchanhost $whom $chan] [string first @ [getchanhost $whom $chan]] end]" }

Can someone help me with some ideas?

Thanks.

Statistics: Posted by costynsyem — Sun Sep 06, 2015 2:41 pm

egghelp/eggheads community

Botlending tcl modification

Botlending tcl modification