This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

regex exp

Help for those learning Tcl or writing their own scripts.
Post Reply
G
Gulio
Halfop
Posts: 73
Joined: Sun Nov 01, 2020 11:53 am

regex exp

Post by Gulio »

how can i get exp regex to get nick iden ip and via WEBIRC info

and nick iden ip continent country countrycode this info

On Connect to be 1 regex for all this 3 info notice

Code: Select all

	if {[string match *!*@* $from] || ![string match -nocase "*client connecting*"  $text] || ![string match -nocase "*is connecting from IP*"  $text]} { return }
	regexp {:\ ([^ ]+)\s\(([^@]+)@([^\)]+)\)\s\[([^\]]+)} $text - nick ident host ip secure reputation via WEBIRC continent country countrycode

Code: Select all

[18:09:46] -NOTICE- *** Client connecting: ENDRI (Mibbit@187.89.156.44) [187.89.156.44] [class: clients] [secure: TLSv1.3-TLS_CHACHA20_POLY1305_SHA256] [reputation: 36] 

[18:51:55] *** irc.test.com sends: *** Nick: ENDRI Ident: Mibbit is connecting from IP: 187.89.156.44 via WEBIRC

[18:51:55] *** irc.test.com sends: *** Nick:ENDRI Ident: Mibbit is connecting from IP: 187.89.156.44 (Europe/IT) Italy
G
Gulio
Halfop
Posts: 73
Joined: Sun Nov 01, 2020 11:53 am

Post by Gulio »

is give me 1 error her e how to fix this ?

Code: Select all

[06:04:31] Tcl error [massconnectflood]: can't read "host": no such variable

Code: Select all

set mhrp(flood) 10:30
set mhrp(nicks) {}
set mhrp(on) 0
set mhrp(exclude) {"*secure*" "*.irccloud.com" "*.mibbit.com"}

set mhrp(chanmode) "#test #test1 #test2 #test3"

set chanrep "#services"

bind raw - NOTICE massconnectflood
proc massconnectflood {from key text} {
	if { $::mhrp(on) == 1 } { return }
	if {[string match *!*@* $from] || (![string match "*Client connecting*" $text] && ![string match "*is connecting from IP*" $text])} { return }
	regexp {:\ ([^ ]+)\s\(([^@]+)@([^\)]+)\)\s\[([^\]]+)} $text - nick ident host ip
	foreach exclude $::mhrp(exclude) {
		if {[string match -nocase $exclude $host] } { return }
	}
	if {[string match *secure* $text]} { return }
	if {[string match *WEBIRC* $text]} { return }
raw notiice

Code: Select all


[06:28:28] [@] irc.test.com1 NOTICE X :*** Client connecting: Aldoo (Mibbit@185.174.109.88) [185.174.109.88] [reputation: 1760] 
[06:28:28] [@] irc.test.com2 NOTICE X :*** Nick: Aldoo Ident: Mibbit is connecting from IP: 185.174.109.88 via WEBIRC
[06:28:28] [@] irc.test.com3 NOTICE X :*** Nick: Aldoo Ident: Mibbit is connecting from IP: 185.174.109.88 (Europe/IT) Italy
Last edited by Gulio on Mon Aug 02, 2021 8:25 am, edited 1 time in total.
User avatar
CrazyCat
Revered One
Posts: 1217
Joined: Sun Jan 13, 2002 8:00 pm
Location: France
Contact:

Post by CrazyCat »

You can't use only one regex to parse 3 different strings.

your regexp works for the normal connection notice, the two other don't have the hostmask.

The question you have to ask yourself is why do you want to parse the 3 strings as you're checking a connexion flood, so only the first one is important ?
G
Gulio
Halfop
Posts: 73
Joined: Sun Nov 01, 2020 11:53 am

Hello

Post by Gulio »

CrazyCat cozz 1 website dont have tls secure connection only the notice info input of connected via WEBIRC,
also on connection is not trigger when blacklist match them first is trigger only when is find 10 user from the website without secure for that i added that second string to match via webirc so cant trigger on mass connection
The bot need to trigger only when 10 connection for 30 seconds dont have secure connection and dont have connected via webirc. Is work in 1 network with 1 server but on other network with 5 servers linked hub is not work is trigger from 3 5 connection of website without tls secure.

Code: Select all

[14:15:52] -NOTICE- *** Client connecting: Aurelia (aurelia@174.77.111.196) [174.77.111.196] [class: clients] [reputation: 1290]
[14:15:52] -NOTICE- *** Client connecting: Aileen (aileen@198.8.94.170) [198.8.94.170] [class: clients] [reputation: 633]
[14:15:52] -NOTICE- *** Client connecting: Diana (diana@98.178.72.8) [98.178.72.8] [class: clients] [reputation: 766]
[14:15:52] -NOTICE- *** Client connecting: Karen (karen@98.162.96.41) [98.162.96.41] [class: clients] [reputation: 421]
[14:15:52] -NOTICE- *** Client connecting: Clemmy (clemmy@wsip-98-185-83-121.ri.ri.cox.net) [98.185.83.121] [class: clients] [reputation: 770]
[14:15:52] -NOTICE- *** Client connecting: Dinny (dinny@72.206.181.105) [72.206.181.105] [class: clients] [reputation: 58]
[14:15:52] -NOTICE- *** Client connecting: Calli (calli@70.185.68.155) [70.185.68.155] [class: clients] [reputation: 731]
[14:15:52] -NOTICE- *** Client connecting: Sibylla (sibylla@72.223.168.73) [72.223.168.73] [class: clients] [reputation: 1225]
[14:15:52] -NOTICE- *** Client connecting: Oneida (oneida@72.221.196.145) [72.221.196.145] [class: clients] [reputation: 2294]
[14:15:53] -NOTICE- *** Client connecting: Beverly (beverly@184.181.217.210) [184.181.217.210] [class: clients] [reputation: 784]
[14:15:53] *** Returning because MASSCONNFLUD is not currently enabled

Code: Select all


set mhrp(flood) 10:30
set mhrp(nicks) {}
set mhrp(on) 0
set mhrp(exclude) {"*secure*" "*.irccloud.com" "*.mibbit.com"}

set mhrp(chanmode) "#test #test1 #test2 #test3"

set chanrep "#test"

bind raw - NOTICE massconnectflood
proc massconnectflood {from key text} {
	putlog "*** Executing \{[info level 0]\}"
	if { $::mhrp(on) == 1 } { putlog "*** Returning because MASSCONNFLUD is not currently enabled" ; return }
	if {[string match *!*@* $from] || (![string match "*Client connecting*" $text] && ![string match "*is connecting from IP*" $text])} { return }
	regexp {:\ ([^ ]+)\s\(([^@]+)@([^\)]+)\)\s\[([^\]]+)} $text - nick ident host ip
	if {![info exists host]} { return }
	foreach exclude $::mhrp(exclude) {
		if {[string match -nocase $exclude $host] } { return }
	}
	if {[string match *secure* $text]} { return }
	if {[string match *WEBIRC* $text]} { return }
	set target [split $::mhrp(flood) :]
	set max [lindex $target 0]
	set seconds [lindex $target 1]
	lappend ::mhrp(nicks) $nick
	# we append $mhrp(nicks) with the new connection
	utimer $seconds [list remnick $nick]
	# we will remove this entry in $seconds (5)
	if {[llength $::mhrp(nicks)] >= $max} {
		#putlog "*** MASSCONNFLUD triggered"
		# comparing size of mhrp(nicks) and target
		puthelp "PRIVMSG $::chanrep :!gline on"
		set ::mhrp(on) 1
		set ::mhrp(nicks) {}
		utimer 60 [list massconnectunflood]
		#putlog "utimer 60 [list massconnectunflood]"
		foreach chan $::mhrp(chanmode) {
			putserv "SAMODE $chan +W"
			#putlog "Setting +W on $chan"

		}
	}
}

proc massconnectunflood {} {
	#putlog "*** Executing \{[info level 0]\}"
	puthelp "PRIVMSG $::chanrep :!gline off"
	set ::mhrp(on) 0
	#putlog "$::mhrp(on) 0"
	foreach chan $::mhrp(chanmode) {
		putserv "SAMODE $chan -W"

	}
}

proc remnick {nick} {
	#putlog "*** Executing \{[info level 0]\}"
	set ::mhrp(nicks) [lreplace $::mhrp(nicks) [lsearch $::mhrp(nicks) $nick] [lsearch $::mhrp(nicks) $nick]]
}
User avatar
CrazyCat
Revered One
Posts: 1217
Joined: Sun Jan 13, 2002 8:00 pm
Location: France
Contact:

Post by CrazyCat »

Ok, so as alway, you didn't give all the informations and your examples are incomplete.

As I said, you have to use 2 regexp:

Code: Select all

if {[string match *!*@* $from] || (![string match "*Client connecting*" $text] && ![string match "*is connecting from IP*" $text])} { return }
if {[string match "*Client connecting*" $text]} {
	regexp {:\ ([^ ]+)\s\(([^@]+)@([^\)]+)\)\s\[([^\]]+)} $text - nick ident host ip
} else {
	regexp {Nick:\ ([^\ ]+).+Ident:\ ([^\ ]+).+IP:\ ([0-9\.]+).+$} $text - nick ident ip
	set host $ip
}
Note that in case of mibbit user, the ident will alway be "Mibbit" (if your examples are right) and the host will be the IP.
G
Gulio
Halfop
Posts: 73
Joined: Sun Nov 01, 2020 11:53 am

hi

Post by Gulio »

Crazycat thx but can be to match as secure: the text via WEBIRC to not trigger so i can use as exclude via WEBIRC same as secure and host ?
the host can be reverse or ip depend from users provider host is other and the ip is other but on this notice is nick iden ip connected via WEBIRC
clonex and proxy can set iden MIbbit but they are not via WEBIRC for that when is match via WEBIRC to not send msg when the 10 conn are connectedt without via WEBIRC the bot need to trigger also without secure tsl connection same.

Code: Select all

[06:28:28] [@] irc.test.com2 NOTICE X :*** Nick: Aldoo Ident: Mibbit is connecting from IP: 185.174.109.88 via WEBIRC
User avatar
CrazyCat
Revered One
Posts: 1217
Joined: Sun Jan 13, 2002 8:00 pm
Location: France
Contact:

Re: hi

Post by CrazyCat »

Gulio wrote:Crazycat thx but can be to match as secure: the text via WEBIRC to not trigger so i can use as exclude via WEBIRC same as secure and host ?

Code: Select all

[06:28:28] [@] irc.test.com2 NOTICE X :*** Nick: Aldoo Ident: Mibbit is connecting from IP: 185.174.109.88 via WEBIRC
Sorry but:
1. this is not your initial demand
2. I don't understand what you want
3. your example lack of explanation
G
Gulio
Halfop
Posts: 73
Joined: Sun Nov 01, 2020 11:53 am

hi

Post by Gulio »

I want to get this nick - iden - ip - via WEBIRC
with rEgex u did to read and via WEBIRC so i can exclude the 10 connection in 30 seconds with via WEBIRC who are from website
and bot to triger only when 10 connection are without "secure" && "via WEBIRC"

Code: Select all

regexp {Nick:\ ([^\ ]+).+Ident:\ ([^\ ]+).+IP:\ ([0-9\.]+).+$} $text - nick ident ip via WEBIRC
to be excluded as here

Code: Select all

   if {[string match *secure* $text]} { return }
   if {[string match *WEBIRC* $text]} { return }
G
Gulio
Halfop
Posts: 73
Joined: Sun Nov 01, 2020 11:53 am

Post by Gulio »

Here i mean to exclude connection with "via webirc" same how is for "secure "connection

Code: Select all

regexp {Nick:\ ([^\ ]+).+Ident:\ ([^\ ]+).+IP:\ ([0-9\.]+).+$} via WEBIRC} $text - nick ident ip via WEBIRC

Code: Select all


set mhrp(flood) 10:30
set mhrp(nicks) {}
set mhrp(on) 0
set mhrp(exclude) {"*.irccloud.com" "*.mibbit.com"}

set mhrp(chanmode) "#test #test1 #test2 #test3"

set chanrep "#services"

bind raw - NOTICE massconnectflood
proc massconnectflood {from key text} {

	if { $::mhrp(on) == 1 } { return }
	if {[string match *!*@* $from] || (![string match "*Client connecting*" $text] && ![string match "*is connecting from IP*" $text])} { return }
	if {[string match "*Client connecting*" $text]} {
		regexp {:\ ([^ ]+)\s\(([^@]+)@([^\)]+)\)\s\[([^\]]+)} $text - nick ident host ip
	} else {
		regexp {Nick:\ ([^\ ]+).+Ident:\ ([^\ ]+).+IP:\ ([0-9\.]+).+$} $text - nick ident ip
		set host $ip
	}
	foreach exclude $::mhrp(exclude) {
		if {[string match -nocase $exclude $host] } { return }
	}
	if {[string match *secure* $text]} { return }
	if {[string match *WEBIRC* $text]} { return }
	set target [split $::mhrp(flood) :]
	set max [lindex $target 0]
	set seconds [lindex $target 1]
	lappend ::mhrp(nicks) $nick
	# we append $mhrp(nicks) with the new connection
	utimer $seconds [list remnick $nick]
	# we will remove this entry in $seconds (5)
	if {[llength $::mhrp(nicks)] >= $max} {
		# comparing size of mhrp(nicks) and target
		puthelp "PRIVMSG $::chanrep :!gline on"
		set ::mhrp(on) 1
		set ::mhrp(nicks) {}
		utimer 60 [list massconnectunflood]
		foreach chan $::mhrp(chanmode) {
			putserv "SAMODE $chan +W"
		}
	}
}

proc massconnectunflood {} {
	puthelp "PRIVMSG $::chanrep :!gline off"
	set ::mhrp(on) 0
	foreach chan $::mhrp(chanmode) {
		putserv "SAMODE $chan -W"

	}
}

proc remnick {nick} {
	set ::mhrp(nicks) [lreplace $::mhrp(nicks) [lsearch $::mhrp(nicks) $nick] [lsearch $::mhrp(nicks) $nick]]
}
Last edited by Gulio on Mon Aug 02, 2021 10:56 am, edited 1 time in total.
G
Gulio
Halfop
Posts: 73
Joined: Sun Nov 01, 2020 11:53 am

Hello

Post by Gulio »

CrazyCat in my test network works is match 10 connection but in real network with 5 server hub link is not match read 10 mass connection maybe script read only local not remote ?

now is set mode and send msg 2 min after mass connection and repeating send msg why ?
need only 1 time to send msg !gline on not every 1 min after is send !gline off

Code: Select all


[17:41:46] *** irc.test.com sends: *** G-Line added for *@82.64.183.22 on Mon Aug 2 14:41:48 2021 GMT 
[17:41:46] *** irc.test.com sends: *** G-Line added for *@70.185.68.155 on Mon Aug 2 14:41:48 2021 GMT 
[17:41:46] *** irc.test.com sends: *** G-Line added for *@98.162.96.41 on Mon Aug 2 14:41:48 2021 GMT
[17:41:46] *** irc.test.com sends: *** G-Line added for *@72.206.181.105 on Mon Aug 2 14:41:48 2021 GMT
[17:41:46] *** irc.test.com sends: *** G-Line added for *@98.185.83.121 on Mon Aug 2 14:41:48 2021 GMT
[17:41:46] *** irc.test.com sends: *** G-Line added for *@69.61.200.104 on Mon Aug 2 14:41:48 2021 GMT 
[17:41:46] *** irc.test.com sends: *** G-Line added for *@184.178.172.25 on Mon Aug 2 14:41:48 2021 GMT 
[17:41:46] *** irc.test.com sends: *** G-Line added for *@184.178.172.14 on Mon Aug 2 14:41:48 2021 GMT
[17:41:46] *** irc.test.com sends: *** G-Line added for *@72.223.168.73 on Mon Aug 2 14:41:48 2021 GMT
[17:41:46] *** irc.test.com sends: *** G-Line added for *@174.77.111.196 on Mon Aug 2 14:41:48 2021 GM

[17:43:45] <X> !gline on
[17:44:46] <X> !gline off

[17:45:54] <X> !gline on
[17:46:54] <X> !gline off
[17:48:38] <X> !gline on

[17:43:45] * irc.test.com sets mode: +W 
[17:44:46] * irc.test.com sets mode: -W 
[17:45:54] * irc.test.com sets mode: +W 
[17:46:54] * irc.test.com sets mode: -W 
[17:48:38] * irc.test.com sets mode: +W 
putlog

Code: Select all

[18:33:40] <~X> !gline on

[17:33:40] 10 30
[17:33:40] 10
[17:33:40] 30
[17:33:40] 1

[17:34:40] ::mhrp(on) 0

[18:34:40] <~X> !gline off
Post Reply