egghelp/eggheads community

Ban certain Realnames

2016-09-21T12:58:51-04:00

I believe caesar's corrections are logicals.

Statistics: Posted by juanamores — Wed Sep 21, 2016 12:58 pm

Ban certain Realnames

2016-09-21T00:49:44-04:00

Move the

Code:

if {[matchattr $handle $bad(flags) $channel]} { continue }

outside the foreach loop and make it return instead of continue. Also, in newchanban the the time is in minutes, not in seconds so you don't need the [expr $bad(time) * 60]

lifetime is specified in minutes. If lifetime is not specified, ban-time usually 60) is used. Setting the lifetime to 0 makes it a permanent ban.

Code:

if {[matchattr $handle $bad(flags) $channel]} returnforeach realname [string tolower $bad(fullnames)] {if {[string match $realname [string tolower $fullname]]} {newchanban $channel $banmask $botnick $bad(reason) $bad(time)break}}

I added a break so if a match has been found you don't need to proceed any further with trying to match the rest of banned real names with what the user has, cos he was already found using one he/she shouldn't and was banned for it.

Statistics: Posted by caesar — Wed Sep 21, 2016 12:49 am

Ban certain Realnames

2016-09-20T14:08:55-04:00

Thanks for the input caesar.
I had undergone some small correction.

Code:

foreach realname [string tolower $bad(fullnames)] {if {[string match $realname [string tolower $fullname]]} {if {[matchattr $handle $bad(flags) $channel]} { continue }newchanban $channel $banmask $botnick $bad(reason) [expr $bad(time) * 60]} else {continue}}

In this way it has worked properly.
Not if I'm being very repetitive with the continue command, but it works for me .

Statistics: Posted by juanamores — Tue Sep 20, 2016 2:08 pm

Ban certain Realnames

2016-09-20T12:24:28-04:00

hi caesar ..
the correct thing of that time as he would be a friend, with its suggestions for this tcl.

Statistics: Posted by Arnold_X-P — Tue Sep 20, 2016 12:24 pm

Ban certain Realnames

2016-09-20T01:10:06-04:00

Code:

  foreach realname [string tolower $bad(fullnames)] {if {[string match $realname [string tolower $fullname]]} {if {[matchattr $handle $bad(flags) $channel]} { return 0 }newchanban $channel $banmask $botnick $bad(reason) [expr $bad(time) * 60]}}

The matchattr check should be outside of the foreach loop. You should use continue when inside the loop you wish to continue with the loop or break when want to stop, not return.

You can get the nick from the reply with something crazy like:

Code:

set realName [lindex [split [lassign $arguments bot nick user host] :] 1]

inside the badfullnames and will get the bot's nick and nick, user (ident), host and his real name from the person it whois-ed with just one line.

If the bot dose a whois on user X and shortly member Y joins and if the raw 311 reply is late then the ::nnick will be replaced in the badrealname proc before it's seen by the badfullnames proc, so when the reply comes it will see member Y instead of X.

Haven't tested anything, just saying from what could happen in theory.

Statistics: Posted by caesar — Tue Sep 20, 2016 1:10 am

Ban certain Realnames

2016-09-19T13:36:19-04:00

Work perfectly!

Thanks, BLaCkShaDoW.

Statistics: Posted by juanamores — Mon Sep 19, 2016 1:36 pm

badrealname 1.2

2016-09-19T13:21:16-04:00

Code:

####################################################################### # # BadFullname vers 1.1 # # #                                    BLaCkShaDoW Productions ####################################################################### ####################################################################### # #On join, if a user`s realname contains any of the restricted words #that are written in this script, the BoT will ban the user :) #Contains protection for users who have access on the boT :) # #      TO ACTIVATE TYPE IN DCC .chanset #canal +badfullname ####################################################################### #Here You can set the words that are forbidden set bad(fullnames) { "*Radio Pepe*" } #Here you can set the reason for the kick / ban set bad(reason) "Bad Fullname" #Here you can set the time for the ban (hours) set bad(time) "2" #Here you can set the flags that are excepted set bad(flags) "n|n"######################################################################## #                         Here starts the config # # ####################################################################### setudef flag badfullname set Autor "BLaCkShaDoW" set vers "1.1" bind join -|- "* *" badrealname proc badrealname {nick host hand chan} { global botnick badset ::cchan $chan set ::nnick $nick set ::hhost $host if { [channel get $chan badfullname] } { if {![botisop $chan]} { return 0 } if {[onchan $nick $chan]} { putserv "WHOIS $nick $nick" bind RAW - 311 badfullnames } } } proc badfullnames { from keyword arguments } { global botnick badset channel $::cchan set nickname $::nnick set host $::hhost set handle "[nick2hand $nickname]" set fullname [string range [join [lrange $arguments 5 end]] 1 end] if {[onchan $nickname $channel]} {          set ident [string tolower [lindex [split $host "@"] 0]]          set banmask  $nickname!$ident@[lindex [split [getchanhost $nickname $channel] "@"] 1]    }   foreach realname [string tolower $bad(fullnames)] { if {[string match $realname [string tolower $fullname]]} { if {[matchattr $handle $bad(flags) $channel]} { return 0 } newchanban $channel $banmask $botnick $bad(reason) [expr $bad(time) * 60] } } unbind RAW - 311 badfullnames } putlog "Bad Fullname $vers by $Autor Loaded !"

Statistics: Posted by BLaCkShaDoW — Mon Sep 19, 2016 1:21 pm

Re: badrealname

2016-09-19T09:38:07-04:00

You should try the *unmodified* version. Do not try to modify, just add the tcl and activate it with the specific flag on the chan you desire.

Ok , it works.
What I have to change for the Ban is the type nick!ident@host ?
Currently, the BAN gives it to the virtual IP (host) *!*@host.bla.bla

Thus , I give the user the opportunity to change your fullname is and can enter immediately.

Statistics: Posted by juanamores — Mon Sep 19, 2016 9:38 am

badrealname

2016-09-19T02:10:59-04:00

You should try the *unmodified* version. Do not try to modify, just add the tcl and activate it with the specific flag on the chan you desire.

Statistics: Posted by BLaCkShaDoW — Mon Sep 19, 2016 2:10 am

Re: badrealname

2016-09-19T00:15:48-04:00

try this one

http://www.egghelp.org/cgi-bin/tcl_arch ... ad&id=1574

Why not work?
I activated the script for the party line

Code:

.chanset #mychanel +badfullname

channel set #mychanel +udef-flag-badfullname

Tcl error [badrealname]: can not find channel named "#mychanel"

Code:

######################################################################### BadFullname vers 1.1# ##                                    BLaCkShaDoW Productions################################################################################################################################################On join, if a user`s realname contains any of the restricted words #that are written in this script, the BoT will ban the user :)#Contains protection for users who have access on the boT :)##      TO ACTIVATE TYPE IN DCC .chanset #canal +badfullname########################################################################Here You can set the words that are forbiddenset bad(fullnames) {"*Radio Pepe*"}#Here you can set the reason for the kick / banset bad(reason) "Bad Fullname"#Here you can set the time for the ban (hours)set bad(time) "2"#Here you can set the flags that are exceptedset bad(flags) "n|n"set mychan "#mychanel"#########################################################################                         Here starts the config#########################################################################setudef flag badfullnameset Autor "BLaCkShaDoW"set vers "1.1"bind join -|- "* *" badrealnameproc badrealname {nick host hand chan} { global botnick mychanif {$chan != $mychan} { return }set ::cchan $chanset ::nnick $nickset ::hhost $hostif { [chan get $chan badfullname] } {if {![botisop $chan]} { return 0 }if {[onchan $nick $chan]} {putserv "WHOIS $nick $nick"putlog "doing WHOIS to $nick..."bind RAW - 311 badfullnames}}}proc badfullnames { from keyword arguments } {global botnick bad mychanset channel $::cchanif {$channel != $mychan} { return }set nickname $::nnickset host $::hhostset handle "[nick2hand $nickname]"set fullname [string range [join [lrange $arguments 5 end]] 1 end]if {[onchan $nickname $channel]} {    set banmask *!*@[lindex [split [getchanhost $nickname $channel] "@"] 1] }  foreach realname [string tolower $bad(fullnames)] {if {[string match $realname [string tolower $fullname]]} {if {[matchattr $handle $bad(flags) $channel]} { return 0 }newchanban $channel $banmask $botnick $bad(reason) [expr $bad(time) * 60]}}unbind RAW - 311 badfullnames}putlog "Bad Fullname $vers by $Autor Loaded !"

Statistics: Posted by juanamores — Mon Sep 19, 2016 12:15 am

badrealname

2016-09-18T12:13:43-04:00

try this one

http://www.egghelp.org/cgi-bin/tcl_arch ... ad&id=1574

Statistics: Posted by BLaCkShaDoW — Sun Sep 18, 2016 12:13 pm

Re: Ban certain Realnames

2016-09-15T14:32:26-04:00

Ones I found a script to ban certain RealNames (no nicks).
I do not remember that post was published and can not find it.
If someone remembers a script to control RealNames users on joining the channel, thank you.

I believe AllProtection does.

Visit this thread:
http://forum.egghelp.org/viewtopic.php? ... start=1305

and ask the author of AP about it.
He is active again. He just released a new version today.

Statistics: Posted by willyw — Thu Sep 15, 2016 2:32 pm

Ban certain Realnames

2016-09-15T13:24:45-04:00

Ones I found a script to ban certain RealNames (no nicks).
I do not remember that post was published and can not find it.
If someone remembers a script to control RealNames users on joining the channel, thank you.

Statistics: Posted by juanamores — Thu Sep 15, 2016 1:24 pm