do not ban ops

flink · Post by **flink** » Mon May 20, 2024 8:39 am

as the title says I would like to not ban the @ from the room as it lacks that detail does not distinguish. thanks.

#####################################################
# Opciones:

# Establece los canales en los que quieres comprobar los usuarios
# incluye el "#" y sepáralos con un espacio.  EG set checkchans "#chan1 #chan3 #otherchan"
set checkchans "#mojo-picon"

# Palabras de los canales que serán prohibidos, separadas por un espacio.  Si pones set badchans "badc list" 
# los canales que serán baneados son #badchan #chanbadc #listchan #chanthatlists etc ......
set badchans "#chan #chan1 #chan2 #chan3 #chan3 #chan3"

# Minutos entre cada comprobación completa de un canal.  NOTA - ¡No pongas este valor bajo si tienes mucha gente! 
# Esto es una gran carga para el servidor/bot, así que no seas un idiota y comprueba cada 1 minuto en un canal con 100 personas.  
# El bot se retrasará (o será k-lined)
set intervalcheck 5

# Duración de la prohibición por estar en el canal equivocado (en minutos)
set idiotbantime 720

# La razón que aparece en la lista de baneos.  También se utiliza cuando el bot les manda un mensaje diciendo por cuánto tiempo fueron baneados y por qué.
set banmsg "Actividad no permitida"

#####################################################
# FIN DE LAS OPCIONES
# ¡No edite nada de lo que hay aquí abajo a menos que esté haciendo un cambio de versión!
#####################################################


bind JOIN - * banchan:join
bind RAW - 319 banchan:response
bind RAW - 353 banchan:names

if {[string match "*banchan:scan*" [timers]] == 0} {
  timer $intervalcheck banchan:scan
}

proc banchan:names {from keyword nicklist} {
  global checkchans
  set nicklist [banchan:charfilter $nicklist]
  set nicklist [lrange $nicklist 3 end]
  set chanfrom ""
  append chanfrom "*" [lindex $nicklist 2] "*"
  set chanfrom [string tolower $chanfrom]
  if {[string match $chanfrom $checkchans]} {
    return 1
  }
  set currnicknum 0
  set currentnick "b4"
  while {$currentnick != ""} {
    set currentnick [lindex $nicklist $currnicknum]
    if {[string range $currentnick 0 0] == "@" || [string range $currentnick 0 0] == "+" || [string range $currentnick 0 0] == ":"} {
      set currentnick [string range $currentnick 1 end]
    }
    if {[string range $currentnick 0 0] == "@" || [string range $currentnick 0 0] == "+" || [string range $currentnick 0 0] == ":"} {
      set currentnick [string range $currentnick 1 end]
    }
    putserv "WHOIS $currentnick"
    incr currnicknum
  }
}

proc banchan:scan { } {
  global checkchans intervalcheck
  set tocheck [string tolower $checkchans]
  set ccnum 0
  set total [llength $tocheck]
  while {$ccnum < $total} {
    putlog "BanChan: Scanning [lindex $tocheck $ccnum]"
    putserv "NAMES [lindex $tocheck $ccnum]"
    incr ccnum
  }
  if {[string match "*banchan:scan*" [timers]] == 0} {
    timer $intervalcheck banchan:scan
  }
}

proc banchan:join {nick uhost handle channel} {
  global checkchans
  set checkchans [string tolower $checkchans]
  set channel [string tolower $channel]
  set matchpattern "*$channel*"
  if {[string match $matchpattern $checkchans] == 1} {
    putserv "WHOIS $nick"
    return 0
  } else {
    return 0
  }
}

proc banchan:response {from keyword arg} {
  global badchans banmsg idiotbantime checkchans
  set badchans [string tolower $badchans]
  set badchans [concat $badchans]
  set arg [banchan:charfilter $arg]
  set currentchannel "empty"
  set chanlistnum 2
  set nick [lindex $arg 1]
  set matchpattern ""
  while {$currentchannel != ""} {
    set currentchannel [lindex $arg $chanlistnum]
    set currentchannel [string tolower $currentchannel]
    if {$currentchannel == ""} {
      break
    }
    if {$chanlistnum == 2} {
      set currentchannel [string range $currentchannel 1 end]
    }
    if {[string range $currentchannel 0 0] == "@" || [string range $currentchannel 0 0] == "+"} {
      set currentchannel [string range $currentchannel 1 end]
    }
    set currentbannum 0
    while {[llength $badchans] > $currentbannum} {
      set matchpattern "*[lindex $badchans $currentbannum]*"
      if {[string match $matchpattern $currentchannel]} {
        set uhost [getchanhost $nick]
        if {$uhost == ""} {
           return 0
        }
        set tempi [expr [string first @ $uhost] + 1]
        set uhost "*!*@[string range $uhost $tempi end]"
        set chantomsglist [string tolower $checkchans]
        set chantomsgnum 0
        while {$chantomsgnum < [llength $chantomsglist]} {
          set currentchantomsg [lindex $chantomsglist $chantomsgnum]
          if {[onchan $nick $currentchantomsg] == 1} {
            putserv "PRIVMSG $currentchantomsg"
          }
          incr chantomsgnum
        }
        utimer 5 [banchan:delayedban $uhost]
        putserv "PRIVMSG $nick :no eres bien recibid@ ($currentchannel)."
        return 0
      }
      incr currentbannum
    }
    incr chanlistnum
  }
  return 0
}

proc banchan:delayedban { banhost } {
  global banmsg idiotbantime
  newban $banhost "BanChan3.2" "$banmsg" $idiotbantime
}

proc banchan:charfilter {x {y ""}} { 
 for {set i 0} {$i < [string length $x]} {incr i} { 
  switch -- [string index $x $i] { 
  "\"" {append y "\\\""}
  "\\" {append y "\\\\"}
  "\[" {append y "\\\["}
  "\]" {append y "\\\]"}
  "\{" {append y "\\\{"}
  "\}" {append y "\\\}"}
  default {append y [string index $x $i]} 
  } 
 } 
 return $y 
}

putlog "Anticanales Cargado Correctamente"

simo · Post by **simo** » Mon May 20, 2024 1:33 pm

you can try this :

Code: Select all


#####################################################
# Opciones:

# Establece los canales en los que quieres comprobar los usuarios
# incluye el "#" y sepáralos con un espacio.  EG set checkchans "#chan1 #chan3 #otherchan"
set checkchans "#mojo-picon"

# Palabras de los canales que serán prohibidos, separadas por un espacio.  Si pones set badchans "badc list" 
# los canales que serán baneados son #badchan #chanbadc #listchan #chanthatlists etc ......
set badchans "#chan #chan1 #chan2 #chan3 #chan3 #chan3"

# Minutos entre cada comprobación completa de un canal.  NOTA - ¡No pongas este valor bajo si tienes mucha gente! 
# Esto es una gran carga para el servidor/bot, así que no seas un idiota y comprueba cada 1 minuto en un canal con 100 personas.  
# El bot se retrasará (o será k-lined)
set intervalcheck 5

# Duración de la prohibición por estar en el canal equivocado (en minutos)
set idiotbantime 720

# La razón que aparece en la lista de baneos.  También se utiliza cuando el bot les manda un mensaje diciendo por cuánto tiempo fueron baneados y por qué.
set banmsg "Actividad no permitida"

#####################################################
# FIN DE LAS OPCIONES
# ¡No edite nada de lo que hay aquí abajo a menos que esté haciendo un cambio de versión!
#####################################################


bind join - * ON:Join:AccessChecK
bind RAW - 319 banchan:response
bind RAW - 353 banchan:names



proc ON:Join:AccessChecK  {nick uhost hand chan} {
       after [expr {2*1000*1}] [list banchan:join $nick $uhost $hand $chan]
}

if {[string match "*banchan:scan*" [timers]] == 0} {
  timer $intervalcheck banchan:scan
}

proc banchan:names {from keyword nicklist} {
  global checkchans
  set nicklist [banchan:charfilter $nicklist]
  set nicklist [lrange $nicklist 3 end]
  set chanfrom ""
  append chanfrom "*" [lindex $nicklist 2] "*"
  set chanfrom [string tolower $chanfrom]
  if {[string match $chanfrom $checkchans]} {
    return 1
  }
  set currnicknum 0
  set currentnick "b4"
  while {$currentnick != ""} {
    set currentnick [lindex $nicklist $currnicknum]
    if {[string range $currentnick 0 0] == "@" || [string range $currentnick 0 0] == "+" || [string range $currentnick 0 0] == ":"} {
      set currentnick [string range $currentnick 1 end]
    }
    if {[string range $currentnick 0 0] == "@" || [string range $currentnick 0 0] == "+" || [string range $currentnick 0 0] == ":"} {
      set currentnick [string range $currentnick 1 end]
    }
    putserv "WHOIS $currentnick"
    incr currnicknum
  }
}

proc banchan:scan { } {
  global checkchans intervalcheck
  set tocheck [string tolower $checkchans]
  set ccnum 0
  set total [llength $tocheck]
  while {$ccnum < $total} {
    putlog "BanChan: Scanning [lindex $tocheck $ccnum]"
    putserv "NAMES [lindex $tocheck $ccnum]"
    incr ccnum
  }
  if {[string match "*banchan:scan*" [timers]] == 0} {
    timer $intervalcheck banchan:scan
  }
}

 
 
proc banchan:join {nick uhost handle channel} {
  global checkchans
  set checkchans [string tolower $checkchans]
  set channel [string tolower $channel]
  set matchpattern "*$channel*"
  if {[string match $matchpattern $checkchans] == 1 && ![isop $nick $channel] && ![ishalfop $nick $channel] && ![isvoice $nick $channel] && ![isbotnick $nick] && ![matchattr [nick2hand $nick] of|of $channel]} {
    putserv "WHOIS $nick"
    return 0
  } else {
    return 0
  }
}


proc banchan:response {from keyword arg} {
  global badchans banmsg idiotbantime checkchans
  set badchans [string tolower $badchans]
  set badchans [concat $badchans]
  set arg [banchan:charfilter $arg]
  set currentchannel "empty"
  set chanlistnum 2
  set nick [lindex $arg 1]
  set matchpattern ""
  while {$currentchannel != ""} {
    set currentchannel [lindex $arg $chanlistnum]
    set currentchannel [string tolower $currentchannel]
    if {$currentchannel == ""} {
      break
    }
    if {$chanlistnum == 2} {
      set currentchannel [string range $currentchannel 1 end]
    }
    if {[string range $currentchannel 0 0] == "@" || [string range $currentchannel 0 0] == "+"} {
      set currentchannel [string range $currentchannel 1 end]
    }
    set currentbannum 0
    while {[llength $badchans] > $currentbannum} {
      set matchpattern "*[lindex $badchans $currentbannum]*"
      if {[string match $matchpattern $currentchannel]} {
        set uhost [getchanhost $nick]
        if {$uhost == ""} {
           return 0
        }
        set tempi [expr [string first @ $uhost] + 1]
        set uhost "*!*@[string range $uhost $tempi end]"
        set chantomsglist [string tolower $checkchans]
        set chantomsgnum 0
        while {$chantomsgnum < [llength $chantomsglist]} {
          set currentchantomsg [lindex $chantomsglist $chantomsgnum]
          if {[onchan $nick $currentchantomsg] == 1} {
            putserv "PRIVMSG $currentchantomsg"
          }
          incr chantomsgnum
        }
        if {![isop $nick $chan] && ![ishalfop $nick $chan] && ![matchattr $hand o|o $chan]} { return 0 }

        utimer 5 [banchan:delayedban $uhost]
        putserv "PRIVMSG $nick :no eres bien recibid@ ($currentchannel)."
        return 0
      }
      incr currentbannum
    }
    incr chanlistnum
  }
  return 0
}

proc banchan:delayedban { banhost } {
  global banmsg idiotbantime
  newban $banhost "BanChan3.2" "$banmsg" $idiotbantime
}

proc banchan:charfilter {x {y ""}} { 
 for {set i 0} {$i < [string length $x]} {incr i} { 
  switch -- [string index $x $i] { 
  "\"" {append y "\\\""}
  "\\" {append y "\\\\"}
  "\[" {append y "\\\["}
  "\]" {append y "\\\]"}
  "\{" {append y "\\\{"}
  "\}" {append y "\\\}"}
  default {append y [string index $x $i]} 
  } 
 } 
 return $y 
}

putlog "Anticanales Cargado Correctamente"

flink · Post by **flink** » Mon May 20, 2024 3:24 pm

Hello simo, thank you for the contribution. Kill the eggdrop, install what you propose again, start it again and ban and kick the @ in the rooms.

Tcl error [banchan:response]: can't read "chan": no such variable

simo · Post by **simo** » Mon May 20, 2024 5:27 pm

try this :

Code: Select all


#####################################################
# Opciones:

# Establece los canales en los que quieres comprobar los usuarios
# incluye el "#" y sepáralos con un espacio.  EG set checkchans "#chan1 #chan3 #otherchan"
set checkchans "#mojo-picon"

# Palabras de los canales que serán prohibidos, separadas por un espacio.  Si pones set badchans "badc list" 
# los canales que serán baneados son #badchan #chanbadc #listchan #chanthatlists etc ......
set badchans "#chan #chan1 #chan2 #chan3 #chan3 #chan3"

# Minutos entre cada comprobación completa de un canal.  NOTA - ¡No pongas este valor bajo si tienes mucha gente! 
# Esto es una gran carga para el servidor/bot, así que no seas un idiota y comprueba cada 1 minuto en un canal con 100 personas.  
# El bot se retrasará (o será k-lined)
set intervalcheck 5

# Duración de la prohibición por estar en el canal equivocado (en minutos)
set idiotbantime 720

# La razón que aparece en la lista de baneos.  También se utiliza cuando el bot les manda un mensaje diciendo por cuánto tiempo fueron baneados y por qué.
set banmsg "Actividad no permitida"

#####################################################
# FIN DE LAS OPCIONES
# ¡No edite nada de lo que hay aquí abajo a menos que esté haciendo un cambio de versión!
#####################################################


bind JOIN - * ON:Join:AccessChecK
bind RAW - 319 banchan:response
bind RAW - 353 banchan:names


proc ON:Join:AccessChecK  {nick uhost hand chan} {
       after [expr {2*1000*1}] [list banchan:join $nick $uhost $hand $chan]
}

if {[string match "*banchan:scan*" [timers]] == 0} {
  timer $intervalcheck banchan:scan
}

proc banchan:names {from keyword nicklist} {
  global checkchans
  set nicklist [banchan:charfilter $nicklist]
  set nicklist [lrange $nicklist 3 end]
  set chanfrom ""
  append chanfrom "*" [lindex $nicklist 2] "*"
  set chanfrom [string tolower $chanfrom]
  if {[string match $chanfrom $checkchans]} {
    return 1
  }
  set currnicknum 0
  set currentnick "b4"
  while {$currentnick != ""} {
    set currentnick [lindex $nicklist $currnicknum]
    if {[string range $currentnick 0 0] == "@" || [string range $currentnick 0 0] == "+" || [string range $currentnick 0 0] == ":"} {
      set currentnick [string range $currentnick 1 end]
    }
    if {[string range $currentnick 0 0] == "@" || [string range $currentnick 0 0] == "+" || [string range $currentnick 0 0] == ":"} {
      set currentnick [string range $currentnick 1 end]
    }
    putserv "WHOIS $currentnick"
    incr currnicknum
  }
}

proc banchan:scan { } {
  global checkchans intervalcheck
  set tocheck [string tolower $checkchans]
  set ccnum 0
  set total [llength $tocheck]
  while {$ccnum < $total} {
    putlog "BanChan: Scanning [lindex $tocheck $ccnum]"
    putserv "NAMES [lindex $tocheck $ccnum]"
    incr ccnum
  }
  if {[string match "*banchan:scan*" [timers]] == 0} {
    timer $intervalcheck banchan:scan
  }
}

proc banchan:join {nick uhost handle channel} {
  global checkchans
  set checkchans [string tolower $checkchans]
  set channel [string tolower $channel]
  set matchpattern "*$channel*"
 if {[string match $matchpattern $checkchans] == 1 && ![isop $nick $channel] && ![ishalfop $nick $channel] && ![isvoice $nick $channel] && ![isbotnick $nick] &&     ![matchattr [nick2hand $nick] of|of $channel]} {
    putserv "WHOIS $nick"
    return 0
  } else {
    return 0
  }
}

proc banchan:response {from keyword arg} {
  global badchans banmsg idiotbantime checkchans
  set badchans [string tolower $badchans]
  set badchans [concat $badchans]
  set arg [banchan:charfilter $arg]
  set currentchannel "empty"
  set chanlistnum 2
  set nick [lindex $arg 1]
  set matchpattern ""
  while {$currentchannel != ""} {
    set currentchannel [lindex $arg $chanlistnum]
    set currentchannel [string tolower $currentchannel]
    if {$currentchannel == ""} {
      break
    }
    if {$chanlistnum == 2} {
      set currentchannel [string range $currentchannel 1 end]
    }
    if {[string range $currentchannel 0 0] == "@" || [string range $currentchannel 0 0] == "+"} {
      set currentchannel [string range $currentchannel 1 end]
    }
    set currentbannum 0
    while {[llength $badchans] > $currentbannum} {
      set matchpattern "*[lindex $badchans $currentbannum]*"
      if {[string match $matchpattern $currentchannel]} {
        set uhost [getchanhost $nick]
        if {$uhost == ""} {
           return 0
        }
        set tempi [expr [string first @ $uhost] + 1]
        set uhost "*!*@[string range $uhost $tempi end]"
        set chantomsglist [string tolower $checkchans]
        set chantomsgnum 0
        while {$chantomsgnum < [llength $chantomsglist]} {
          set currentchantomsg [lindex $chantomsglist $chantomsgnum]
          if {[onchan $nick $currentchantomsg] == 1} {
            putserv "PRIVMSG $currentchantomsg"
          }
          incr chantomsgnum
        }
        utimer 5 [banchan:delayedban $uhost]
        putserv "PRIVMSG $nick :no eres bien recibid@ ($currentchannel)."
        return 0
      }
      incr currentbannum
    }
    incr chanlistnum
  }
  return 0
}

proc banchan:delayedban { banhost } {
  global banmsg idiotbantime
  newban $banhost "BanChan3.2" "$banmsg" $idiotbantime
}

proc banchan:charfilter {x {y ""}} { 
 for {set i 0} {$i < [string length $x]} {incr i} { 
  switch -- [string index $x $i] { 
  "\"" {append y "\\\""}
  "\\" {append y "\\\\"}
  "\[" {append y "\\\["}
  "\]" {append y "\\\]"}
  "\{" {append y "\\\{"}
  "\}" {append y "\\\}"}
  default {append y [string index $x $i]} 
  } 
 } 
 return $y 
}

putlog "Anticanales Cargado Correctamente"

flink · Post by **flink** » Tue May 21, 2024 8:10 am

hello simo
I killed eggdrop again, made the changes you recommended and now it's back to how it was at the beginning, it kicks everything, it doesn't distinguish, I even removed @ from the eggdrop and with the voice it sends the message
and it does not release an error in the partyline

simo · Post by **simo** » Tue May 21, 2024 8:24 am

all i did really was add a delay on join for the bot to determine if nick isn an chanop/halfop or not and send a whois if not an chanop/halfop or any access to bot.

flink · Post by **flink** » Tue May 21, 2024 8:33 am

Simo. thanks for answering
I understand but it doesn't work, this last help you provide doesn't do anything at all, kick it and send the message without further ado.

Post by **CrazyCat** » Tue May 21, 2024 8:46 am

I had a look to the script... It could be better.
I think I can redo it, just need to be sure:
The users which are in $checkchans must not be in $badchans, and check is performed on join and each 5 minutes.
And you want to exclude ops (and halfops ?) of the check/ban ?

flink · Post by **flink** » Tue May 21, 2024 8:53 am

Hello CrazyCat
Exactly what you described
everything that has and performs the eggdrop but that exclude ops (and halfops

Post by **CrazyCat** » Wed May 22, 2024 6:09 am

You can try this one:

... snip ...

P.S.: it's possible to optimize it, but too lazy to do that now

flink · Post by **flink** » Wed May 22, 2024 1:03 pm

hello crazycat i did what you suggested and after a while of starting the eggdrop in the partyline i got an error :
Warning: over maximum server queue!
Tcl error [::badchan::respnames]: invalid command name ‘lmap’.
Tcl error [::badchan::respnames]: can't read "cusers": no such variable

I also get this list of nicknames that are not in any of the rooms where bccheck was activated and the test nickname is not in those rooms either.

lima.chatzona.org - 319 - panny :+#luna +#peru +#sexo
lima.chatzona.org - 319 - Trans :@#refli @#sol +#sexo+#lucia
lima.chatzona.org - 319 - Titan :#la @#mediodia @#sexo
lima.chatzona.org - 319 - cuatro :#rias @#pepe #sexo
lima.chatzona.org - 319 - chica_madrid :#sexo
lima.chatzona.org - 319 - Noeliatrans :#canalsexo #travestis #sexo
lima.chatzona.org - 319 - agustin93 :#argentina #travestis #sexo
lima.chatzona.org - 319 - jav :#Relatos-Eroticos #españa #sexo #burgos
lima.chatzona.org - 319 - travesti5542 :#travestis #mazmorra #Gay #sexo
lima.chatzona.org - 319 - Aldo10 :#sexo #mexico
lima.chatzona.org - 319 - Novio34 :#chatzona #cibersexo #sexo #cornudos
lima.chatzona.org - 319 - Cata :#sumisas #mazmorra #latinoamerica #sexo
lima.chatzona.org - 319 - Sipi1414 :#chatzona #Gay #de_ambiente #chueca #sexo #cibersexo #mexico_vip #mexico
lima.chatzona.org - 319 - Alvaro__28 :#mazmorra #sexo
lima.chatzona.org - 319 - Invitado-2155 :#españa #andalucia #cibersexo #travestis #sexo #canalchat
lima.chatzona.org - 319 - paola-rlt{W} :#mazmorra #sexo #Relatos-Eroticos
lima.chatzona.org - 319 - anton32 :#sexo
lima.chatzona.org - 319 - Carlosss___ :#sexo #chatzona #chatear #general
lima.chatzona.org - 319 - Nuee :#chatvenezuela.net #sexo #venezuela #Gay #de_ambiente

Post by **CrazyCat** » Wed May 22, 2024 3:33 pm

--- useless comment ....

simo · Post by **simo** » Wed May 22, 2024 4:46 pm

you also have to consider too much use of commands: names and whois may result in disconnecting due to exceeding server commands limits, so not sure what the max stackable value is wich can be used to send whois in a line on the network you use it on, if you can provide those limits it may be integrated into the code to stay within server limits.

flink · Post by **flink** » Wed May 22, 2024 5:15 pm

not to belittle the help, but the tcl that i presented at the beginning works great. just add that it does not ban the ops because that is what it lacks and i am happy that it works well.

Code: Select all

Tcl error in file 'Rebujado.conf':
can't read "from": no such variable
    while executing
"putlog "$from - $kw - $text""
    (in namespace eval "::badchan" script line 113)
    invoked from within
"namespace eval badchan {

   # .chanset #channel +bccheck to enable

   # lista de canales "malos"
   variable bclist "#chan #chan1 #chan2..."
    (file "scripts/maloscanales.tcl" line 1)
    invoked from within

Post by **CrazyCat** » Wed May 22, 2024 6:04 pm

Ok, delete my script, use yours.
Cheers.

egghelp/eggheads community

do not ban ops

do not ban ops

Re: do not ban ops

Re: do not ban ops

Re: do not ban ops

Re: do not ban ops

Re: do not ban ops

Re: do not ban ops

Re: do not ban ops

Re: do not ban ops

Re: do not ban ops

Re: do not ban ops

Re: do not ban ops

Re: do not ban ops

Re: do not ban ops

Re: do not ban ops