egghelp/eggheads community

irccloud banmask

2022-11-07T10:27:06-04:00

edited and tested

Code:

## ircCloudBan v.1.0 ##bind mode - "#% +b" ircCloudBanbind kick - * ircCloudKickproc ircCloudBan {nk uh hn ch md banmask} {  if {![botisop $ch]} return  if {[string match -nocase "*@*irccloud*" $banmask] && ![regexp {[\`\^\-\_\\\|\}\{\[\]a-zA-Z0-9]{1,}!(\*)@.*irccloud\.com} $banmask] && ![regexp {[su]id\d+} $banmask] && ![regexp {id-(\d+).(.*?).irccloud.com} $banmask] && || ![regexp {(\*)!(\*)@.*[a-zA-Z0-9\-]+\.[a-zA-Z]+\.irccloud\.com} $banmask]} {     set ::irccloudban $banmask    after [expr {1*1000*60}] [list unset ::irccloudban]  }  if {[regexp {[\`\^\-\_\\\|\}\{\[\]a-zA-Z0-9]{1,}!(\*)@.*irccloud\.com} $banmask] || [regexp {[su]id\d+} $banmask] || [regexp {id-(\d+).(.*?).irccloud.com} $banmask] || [regexp {(\*)!(\*)@.*[a-zA-Z0-9\-]+\.[a-zA-Z]+\.irccloud\.com} $banmask]} {    set userList [chanlist $ch]    foreach n $userList {      if {![matchaddr $banmask $n![getchanhost $n $ch]]} { continue }      if {[isop $n $ch] || [ishalfop $n $ch] || [matchattr [nick2hand $n] "fnmo|fnmo" $ch]} { continue }      set chost [getchanhost $n $ch]      regsub -all -- ~ $chost "" chost      set ident  [lindex [split $chost @] 0]      set xbmaskx [string map {sid id uid id} $ident]      set bmask  *!*[string tolower $xbmaskx ]@*      pushmode $ch +b $bmask      pushmode $ch -b $banmask    }  }}proc ircCloudKick {nk uh hn ch target why} {  set chost [getchanhost $target $ch]  if {[info exists ::irccloudban] && [matchaddr $::irccloudban $target!$chost]} {    if {![botisop $ch]} return    regsub -all -- ~ $chost "" chost    set ident  [lindex [split $chost @] 0]    set xbmaskx [string map {sid id uid id} $ident]    set bmask  *!*[string tolower $xbmaskx ]@*    pushmode $ch +b $bmask    pushmode $ch -b  $::irccloudban    after cancel unset ::irccloudban    unset ::irccloudban  }}putlog "irccloud.tcl Loaded."

Statistics: Posted by simo — Mon Nov 07, 2022 10:27 am

irccloud banmask

2022-10-24T11:33:54-04:00

Ah ok Thanks SpiKe^^

Statistics: Posted by simo — Mon Oct 24, 2022 11:33 am

the script so far

2022-10-24T09:13:23-04:00

simo,

Here is a cleaned up copy of your script, with proper indentation so it can be read by others.
I see multiple issues with the code as it stands so far...

Code:

## ircCloudBan v.1.0 ##bind mode - "#% +b" ircCloudBanbind kick - * ircCloudKickproc ircCloudBan {nk uh hn ch md banmask} {  if {![botisop $ch]} {  return 0  }  if {[string match -nocase "*@*irccloud*" $banmask] && ![regexp {[su]id\d+} $banmask] && ![regexp {id-(\d+).(.*?).irccloud.com} $banmask] && ![string match -nocase "*@*-*-*-*-*irccloud.com" $banmask]} {    set ::irccloudban $banmask    after [expr {1*1000*60}] [list unset ::irccloudban]  }  if {[regexp {[su]id\d+} $banmask] || [regexp {id-(\d+).(.*?).irccloud.com} $banmask] || [string match -nocase "*@*-*-*-*-*irccloud.com" $banmask]} {    foreach n [chanlist $ch] {      if {![matchaddr $banmask $n![getchanhost $n $ch]]} { continue }      if {[isop $n $ch] || [ishalfop $n $ch]} { continue }      if {[matchattr [nick2hand $n] "fnmo|fnmo" $ch]} { continue }      set chost [getchanhost $n $ch]      regsub -all -- ~ $chost "" chost      set ident  [lindex [split $chost @] 0]      set xbmaskx [string map {sid id uid id} $ident]      set bmask  *!*[string tolower $xbmaskx ]@*      pushmode $ch +b $bmask      pushmode $ch -b $banmask      set ::irccloudban2 $banmask    }  }}proc ircCloudKick {nk uh hn ch target why} {  if {[info exists ::irccloudban] || [info exists ::irccloudban2]} {    if {![botisop $ch]} {  return 0  }    set chost [getchanhost $target $ch]    if {[string match -nocase "*@*irccloud*" $chost]} {      regsub -all -- ~ $chost "" chost      set ident  [lindex [split $chost @] 0]      set xbmaskx [string map {sid id uid id} $ident]      set bmask  *!*[string tolower $xbmaskx ]@*      pushmode $ch +b $bmask      if {[info exists ::irccloudban]} { pushmode $ch -b  $::irccloudban }      after cancel unset ::irccloudban      if {[info exists ::irccloudban]} { unset ::irccloudban }    }  }}

Statistics: Posted by SpiKe^^ — Mon Oct 24, 2022 9:13 am

irccloud banmask

2022-10-23T10:56:46-04:00

anyway we can use this kind of banmask? as i failed to find a way to add it to be detected when set

Statistics: Posted by simo — Sun Oct 23, 2022 10:56 am

irccloud banmask

2022-10-23T02:54:57-04:00

I have been using the above posted code wich works well except for banmasks like

Code:

Nick!*@*.langley.irccloud.comOrNick!*@*.irccloud.com

Wich could be utilized to unset ban and set the proper one without having to wait for the kick as the banmask contains the nick

Statistics: Posted by simo — Sun Oct 23, 2022 2:54 am

irccloud banmask

2022-10-22T13:17:45-04:00

Code:

## ircCloudBan v.1.0 ##bind mode - "#% +b" ircCloudBanbind kick - * ircCloudKickproc ircCloudBan {nk uh hn ch md banmask} {      if {![botisop $ch]} return      if {[string match -nocase "*@*irccloud*" $banmask] && ![regexp {[su]id\d+} $banmask] && ![regexp {id-(\d+).(.*?).irccloud.com} $banmask] && ![string match -nocase "*@*-*-*-*-*irccloud.com" $banmask]} {                   set ::irccloudban $banmask                   after [expr {1*1000*60}] [list unset ::irccloudban]     }          if {[regexp {[su]id\d+} $banmask] || [regexp {id-(\d+).(.*?).irccloud.com} $banmask] || [string match -nocase "*@*-*-*-*-*irccloud.com" $banmask]} {   foreach n [chanlist $ch] {         if {![matchaddr $banmask $n![getchanhost $n $ch]]} { continue }         if {[isop $n $ch] || [ishalfop $n $ch]} { continue }         if {[matchattr [nick2hand $n] "fnmo|fnmo" $ch]} { continue }                 set chost [getchanhost $n $ch]                   regsub -all -- ~ $chost "" chost                   set ident  [lindex [split $chost @] 0]                   set xbmaskx [string map {sid id uid id} $ident]                   set bmask  *!*[string tolower $xbmaskx ]@*                   pushmode $ch +b $bmask                   pushmode  $ch -b $banmask                   set ::irccloudban2 $banmask    }  }}  proc ircCloudKick {nk uh hn ch target why} { if {[info exists ::irccloudban] || [info exists ::irccloudban2]} {     if {![botisop $ch]} return         set chost [getchanhost $target $ch]        if {[string match -nocase "*@*irccloud*" $chost]} {        regsub -all -- ~ $chost "" chost        set ident  [lindex [split $chost @] 0]        set xbmaskx [string map {sid id uid id} $ident]        set bmask  *!*[string tolower $xbmaskx ]@*        pushmode $ch +b $bmask       if {[info exists ::irccloudban]} { pushmode $ch -b  $::irccloudban }       after cancel unset ::irccloudban       if {[info exists ::irccloudban]} { unset ::irccloudban }    }  }}

Statistics: Posted by simo — Sat Oct 22, 2022 1:17 pm

Final version

2020-06-03T13:48:44-04:00

Hey simo, can I have the final version of this tcl? Much appreciated. Anyone using final version of this please share. Thank you.

Statistics: Posted by gamble27 — Wed Jun 03, 2020 1:48 pm

irccloud banmask

2018-07-24T07:34:04-04:00

tested it seems to work as intented

tnx caesar much apreciated

Statistics: Posted by simo — Tue Jul 24, 2018 7:34 am

irccloud banmask

2018-07-24T03:42:04-04:00

Nothing happens on:

Code:

SlMO Sets Mode on #Test to: +b *!*@id-306017.charlton.irccloud.com@Cappuccino Sets Mode on #Test to: -b *!*@id-306017.charlton.irccloud.com

for two reasons:

#1. If you look at this example you gave earlier (1-2 pages back):

Code:

[19:08] * Joins: OnT (uid1420156@id-140156.ealing.irccloud.com)[19:10] * user1 sets mode: +b *!*@id-140156.ealing.irccloud.com

you will notice that the number in uid1420156 is not equal with the number taken from id-140156.ealing.irccloud.com, meaning 1420156 is not equal with 140156.

Is this a copy/paste mistake or something?

#2. From the snippet I posted about Identifying users the user can start with uid (for example uid123456) for regular members and sid (for example sid123456) for paid users, so what should you ban in this case?

When placing a ban on *!*@id-306017.charlton.irccloud.com we can lookup what members match this address but what if it matches multiple members? You didn't want that.

I guess we can lookup what members have uid306017 or sid306017 in their user, but what if it also matches more than one member?

To make it trigger on bans like: *!*@id-306017.charlton.irccloud.com or *!*uid306017@id-306017.charlton.irccloud.com try it with replacing:

Code:

if {[regexp {\d+} $u x]} {if {[regexp {id-(\d+).(.*?).irccloud.com} $h - y]} {if {[string equal $x $y]} {pushmode $ch +b "*!$u@*"}}}

with:

Code:

if {[regexp {id-(\d+).(.*?).irccloud.com} $h - x]} {foreach n [chanlist $ch] {if {[isbotnick $n]} continueif {[isop $n $ch] || [isvoice $n $ch] || [validuser [nick2hand $n]]} continuescan [getchanhost $n $ch] {%[^@]@%s} user hostif {[regexp {\d+} $user y]} {if {[string equal $x $y]} {pushmode $ch +b "*!$user@*"}}}}

Or even better can add another regexp that will first check if the user part in the ban matches the sid/uid pattern and set a ban on whatever is there, basically triggering on *!*uid306017@id-306017.charlton.irccloud.com or *!uid306017@1.2.3.4 and setting a ban on *!*uid306017@* or *!uid306017@* respectively instead. So, the code becomes:

Code:

if {[regexp {[su]id\d+} $u]} {pushmode $ch +b "*!$u@*"} elseif {[regexp {id-(\d+).(.*?).irccloud.com} $h - x]} {   foreach n [chanlist $ch] {      if {[isbotnick $n]} continue      if {[isop $n $ch] || [isvoice $n $ch] || [validuser [nick2hand $n]]} continue      scan [getchanhost $n $ch] {%[^@]@%s} user host      if {[regexp {\d+} $user y]} {               if {[string equal $x $y]} {            pushmode $ch +b "*!$user@*"         }      }   }}

Haven't tested anything so let me know the results.

Statistics: Posted by caesar — Tue Jul 24, 2018 3:42 am

irccloud banmask

2018-07-24T03:46:29-04:00

tested again it seems to work for

SlMO Sets Mode on #Test to: +b *!*uid306017@id-306017.charlton.irccloud.com

@Cappuccino Sets Mode on #Test to: -b+b *!*uid306017@id-306017.charlton.irccloud.com *!*uid306017@*

but not for

SlMO Sets Mode on #Test to: +b *!*@id-306017.charlton.irccloud.com
@Cappuccino Sets Mode on #Test to: -b *!*@id-306017.charlton.irccloud.com

since last one has ident in host as well wich is the same as having it set with ident as well in other words if possible it would help if it would set ident as well when +b *!*@id-306017.charlton.irccloud.com is set to trigger as well since it has unique id of user in it as well

other than that it seems fine

thank you caesar

Statistics: Posted by simo — Tue Jul 24, 2018 3:33 am

irccloud banmask

2018-07-24T02:02:20-04:00

I loaded the code I posted and here are my results.

Case #1: there's no user in the ban, so nothing happens (it stops at first regexp)

Code:

[08:51] * cez sets mode: +b *!*@charlton.irccloud.com[08:51] * Bot sets mode: -b *!*@charlton.irccloud.com

Case #2: we got an user but the host doesn't match the pattern, meaning it doesn't have an id-xxx.something.irccloud.com in it.

Code:

[08:52] * cez sets mode: +b *!uid311697@charlton.irccloud.com[08:52] * Bot sets mode: -b *!uid311697@charlton.irccloud.com

Case #3: the user and host match the patterns and the two numbers are equal so the bot sets a ban on user instead (*!uid306017@*)

Code:

[08:53] * cez sets mode: +b *!uid306017@id-306017.charlton.irccloud.com[08:53] * Bot sets mode: -b+b *!uid306017@id-306017.charlton.irccloud.com *!uid306017@*

Case #4: the user and host match the patterns BUT the two numbers aren't equal so nothing happens.

Code:

[08:53] * cez sets mode: -b *!uid306017@*[08:53] * cez sets mode: +b *!uid306017@id-306018.charlton.irccloud.com[08:53] * Bot sets mode: -b *!uid306017@id-306018.charlton.irccloud.com

I can't test with a kick but I'm sure it works as expected.

Statistics: Posted by caesar — Tue Jul 24, 2018 2:02 am

irccloud banmask

2018-07-23T22:52:01-04:00

the results i got was from using the final code u posted

and i always restart bot after loading new code and disabling old

Statistics: Posted by simo — Mon Jul 23, 2018 10:52 pm

irccloud banmask

2018-07-23T13:02:31-04:00

Your results doesn't make any sense because the first regexp in the ircCloudBan function should return 0 because there's no number in the ident so most likely you got some older code. Should restart the bot so things are re-loaded as should.

Statistics: Posted by caesar — Mon Jul 23, 2018 1:02 pm

irccloud banmask

2018-07-23T10:38:03-04:00

i tested final code and it seems it sets ident ban on a banmask like

simo sets Mode on #Cappuccino to: +b *!*@*.irccloud.com
@Cappuccino Sets Mode on #Cappuccino to: -b+b *!*@*.irccloud.com *!uid311697@*

simo Sets Mode on #Cappuccino to: +b *!*@charlton.irccloud.com
@Cappuccino Sets Mode on #Cappuccino to: -b+b *!*@charlton.irccloud.com *!uid311697@*

while banmasks doesnt have any id in it

Statistics: Posted by simo — Mon Jul 23, 2018 10:38 am

irccloud banmask

2018-07-23T07:44:40-04:00

This piece of code:

Code:

if {[regexp {\d+} $u x]} {if {[regexp {id-(\d+).(.*?).irccloud.com} $h - y]} {if {[string equal $x $y]} {pushmode $ch +b "*!$u@*"}}   }

was intended to be put inside ircCloudBan before/after the

Code:

pushmode $ch -b $banmask

and not inside ircCloudKick because the:

Code:

if {$match} {pushmode $ch +b "*!$u@*"}

is more than enough to do the intended job, as it grabs the nick!user@host from the trigger when a member just got kicked (where nick, user and host will always hold a value), unlike in the ban part where the nick!user@host is taken from what a channel operator sets (where nick, user and host won't always hold a value and can be * for instance).

If you want to adjust the second part to make sure you got an uid123456 or sid123456 format in the user part then make it:

Code:

if {$match} {if {[regexp {[su]id\d+} $u]} {pushmode $ch +b "*!$u@*"}}

Basically this ensures that it will set a ban on *!uid306017@* from uid306017@id-306017.charlton.irccloud.com, *!~sid154238@* from ~sid154238@2001:67c1::2:5a7e, but won't set a ban on *!aid123456@* from aid123456@something.fake.irccloud.com for example.

In the example you gave:

[19:08] * Joins: OnT (uid1420156@id-140156.ealing.irccloud.com)
[19:10] * user1 sets mode: +b *!*@id-140156.ealing.irccloud.com

When the *!*@id-140156.ealing.irccloud.com ban is set the bot will check if ident has a number in it, in our case will fail because * is not a number thus will stop.

Only if OnT is kicked then the bot would do the actual replacing the *!*@id-140156.ealing.irccloud.com ban with *!uid1420156@* inside the kick function because it grabs the actual ident from the kick trigger and it matches the given pattern.

Final code:

Code:

## ircCloudBan v.0.3 ##set ircSkip {*.irccloud.com192.184.9.108192.184.9.110192.184.9.112192.184.10.118192.184.10.9192.184.8.73192.184.8.102001:67c:2f08*2001*67c*2f08*} bind mode - "#% +b" ircCloudBanbind kick - * ircCloudKickproc ircCloudBan {nk uh hn ch md banmask} {if {![botisop $ch]} returnglobal ircSkipset match 0scan $banmask {%[^!]!%[^@]@%s} n u hforeach host $ircSkip {if {![string match -nocase $host $h]} continueincr matchbreak}if {$match} {pushmode $ch -b $banmaskif {[regexp {\d+} $u x]} {   if {[regexp {id-(\d+).(.*?).irccloud.com} $h - y]} {  if {[string equal $x $y]} { pushmode $ch +b "*!$u@*"  }   }   }set ::irccloudban $banmask}}proc ircCloudKick {nk uh hn ch target why} {if {![info exists ::irccloudban]} returnif {![botisop $ch]} returnset chhost [getchanhost $target $ch]global ircSkipset match 0if {[scan $chhost {%[^@]@%s} u h] != 2} returnforeach host $ircSkip {if {![string match -nocase $host $h]} continueincr matchbreak}if {$match} {   if {[regexp {[su]id\d+} $u]} {  pushmode $ch +b "*!$u@*"   }}   unset ::irccloudban}

Statistics: Posted by caesar — Mon Jul 23, 2018 7:44 am