egghelp/eggheads community

on connect bad realname

2023-10-15T06:15:04-04:00

Simo :

That thing you put in after updating doesn't work well.
The other previous one that you posted does work very well. (I've realized now).

both work fine for me

Statistics: Posted by simo — Sun Oct 15, 2023 6:15 am

on connect bad realname

2023-10-15T05:42:10-04:00

Simo :

That thing you put in after updating doesn't work well.
The other previous one that you posted does work very well. (I've realized now).

Statistics: Posted by PeLL — Sun Oct 15, 2023 5:42 am

on connect bad realname

2023-10-09T17:33:02-04:00

Okay, simplify the thesis CrazyCat , is good .
For my taste it would be better to add a set with words or characters that you want to use.

example : set badreal {"???" "fu*k*you"} <-- example

(this is a pleasure of mine)
But I repeat that it works very well.

Statistics: Posted by PeLL — Mon Oct 09, 2023 5:33 pm

on connect bad realname

2023-10-09T11:56:51-04:00

thanks CC but isnt:

Code:

  \[([a-z]{2,6})\]

restricted to only a-z characters used as he didnt specify wich characters to check for i assumed all characters and not just a-z

Statistics: Posted by simo — Mon Oct 09, 2023 11:56 am

on connect bad realname

2023-10-09T08:47:30-04:00

It could probably be simplest:

Code:

if {[regexp -nocase { REMOTECONNECT: Client connecting at (\S+\:) ([^!]+)!([^@]+)@(\S+) \(([0-9a-f.:]+)\) \[(.*)\]} $text ->  server nick ident host ip realname] }

can become:

Code:

if {[regexp -nocase { REMOTECONNECT: Client connecting at (\S+\:) ([^!]+)!([^@]+)@(\S+) \(([0-9a-f.:]+)\) \[([a-z]{2,6})\]} $text ->  server nick ident host ip realname] }

If the regexp doesnt't match, it means that realname is less than 2 chars or more than 6.

Same for the second regexp.

Statistics: Posted by CrazyCat — Mon Oct 09, 2023 8:47 am

on connect bad realname

2023-10-09T05:25:42-04:00

Simo: Thank you very much for your script and time, it works very well.
Thank you so much

Statistics: Posted by PeLL — Mon Oct 09, 2023 5:25 am

on connect bad realname

2023-10-07T10:13:11-04:00

this seems to work for me :

works for both remote and local server.

Code:

bind raw - NOTICE On-Connect:Drone-Check proc On-Connect:Drone-Check {from keyword text} {   set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]   if {[string match *!*@* $from]} { return 0; # not a server notice }  if {[regexp -nocase { REMOTECONNECT: Client connecting at (\S+\:) ([^!]+)!([^@]+)@(\S+) \(([0-9a-f.:]+)\) \[(.*)\]} $text ->  server nick ident host ip realname] } {       set realnameX1 [string map {" " ""} $realname]       set realnameX [string length [stripcodes * $realnameX1]]      if {($realnameX > 2 ) && ($realnameX < 6 ) } {  putserv "GLINE *@$ip 1h :flood clon" }}  if {[regexp -nocase { CONNECT: Client connecting on port (\d+) \(class (\S+)\): ([^!]+)!([^@]+)@(\S+) \(([0-9a-f.:]+)\) \[(.*)\]} $text -> port class nick ident host  ip realname]} {       set realnameX1 [string map {" " ""} $realname]       set realnameX [string length [stripcodes * $realnameX1]]      if {($realnameX > 2 ) && ($realnameX < 6 ) } {  putserv "GLINE *@$ip 1h :flood clon" } }   return 0}

Statistics: Posted by simo — Sat Oct 07, 2023 10:13 am

on connect bad realname

2023-10-07T07:31:11-04:00

Hello everyone .
I don't know where to put this code and that's why I created a new post.
I leave this code found in this same forum but edited by me that I can't get to work.

If it is possible to make it work...

Code:

set akillname {  "????"  "?????"  "???"}bind raw - NOTICE client:connectproc client:connect {from keyword text} {  global akillname  set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]  if {![regexp -nocase { CONNECT: Client connecting on port (\d+) \(class (\S+)\): ([^!]+)!([^@]+)@(\S+) \(([0-9a-f.:]+)\) \[(.*)\]} $text -> port class nick ident host ip realname]} { return 1 } {    if {[lsearch -regexp $nick] ne -1} { return }if {[lsearch -regexp $realname] ne -1} { return }    foreach realname [string tolower $akillname] {      if {[string match -nocase *$realname* $text]} {        # your akill thing hereputserv "privmsg #tester hi $nick e $realname"putserv "GLINE *@$ip flood clon"break  }    }  }}

Thank you very much for the time and help.

Statistics: Posted by PeLL — Sat Oct 07, 2023 7:31 am