get info of user on connect with bind raw notice

[simo]

greetings we have an opered bot on an unrealircd 4 server and wanted to get the nick ident host ip from this server notice

-some.irc.server- : *** Client connecting: Nick (ident@host) [IP] {clients}

we where using this for another ircd type (not unrealircd) i was wondering if someone famliar with regexp to alter it to get the mentioned info fields out of the regex would be apreciated

we wanted to get: NICK IDENT HOST IP
output on channel with
puthelp "PRIVMSG #test :$nick $ident $host $ip

Code: Select all

bind raw - NOTICE serv:connectnick 

proc serv:connectnick {from keyword text} { 
  global outputchan 

      if {[string match -nocase "*client connecting*" $text]} { 
        set nick [lindex [split $text] 3] 
        set ident [lindex [split $text] 4] 
        set host [lindex [split $text] 5] 
        set ip [lindex [split $text] 6] 
        putquick "PRIVMSG #test : $nick $ident $host $ip" 
        return 0 
      } 
} 

[heartbroken]

Code: Select all

bind raw - NOTICE serv:connectnick

proc serv:connectnick {from key text} {
	if {[string match *!*@* $from] || ![string match -nocase "*Client connecting*" $text]} { return }
	if {[scan [lindex [split $text :] 2] {%[^(](%[^@]@%[^)]) [%[^]]} Nick ident host IP] == 4} {
		puthelp "PRIVMSG #test :$Nick $ident $host $IP"
	}
	return 0
}

[simo]

working nicely thanx heartbroken apreciated

[simo]

i forgot to ask about ssl as well as some clients connect with ssl
and that changes the output i fiddled with it somewhat but couldnt get it to proper output

*** Client connecting: nick (ident@host) [ip] {clients} [secure ECDHE-RSA-AES256-SHA]

to output

puthelp "PRIVMSG #test :$nick $ident $host $ip $client $ssl"

[heartbroken]

Code: Select all

bind raw - NOTICE serv:connectnick

proc serv:connectnick {from key text} {
	if {[string match *!*@* $from] || ![string match -nocase "*Client connecting*" $text]} { return }
	if {[scan [lindex [split $text :] 1] {%[^(](%[^@]@%[^)]) [%[^]]]%[^[][%[^]]} Nick ident host IP client ssl] == 6} {
		puthelp "PRIVMSG #test :$Nick $ident $host $IP $client $ssl"
	} else {
		scan [lindex [split $text :] 2] {%[^(](%[^@]@%[^)]) [%[^]]} Nick ident host IP
		puthelp "PRIVMSG #test :$Nick $ident $host $IP"
	}
	return 0
}

[simo]

tried it and both ssl and non ssl users seem to output first one without the client and ssl

[heartbroken]

my bad! code edited.

[simo]

hm same result i dont see any {} tho in the code since its used by {clients}
in:

*** Client connecting: nick (ident@host) [ip] {clients} [secure ECDHE-RSA-AES256-SHA]

[heartbroken]

it works on tclsh and should work with eggdrop too.
if you don't want to see {} around "clients" : [regsub -all {\{|\}} $client {}]

[simo]

hm ok

all i get as output for both sll and non ssl is

nick ident host ip

[simo]

the [lindex [split $text :] 1] part was off i changed to [lindex [split $text :] 2]

then it worked

excellent thank u very much apreciated

[simo]

i tried this in unreal5 and it didnt seem to work no more
these are the 2 example server notices for ssl and non ssl

ssl

*** Client connecting: RandomONE (uid304591@id-304591.tooting.irccloud.com) [2001:67c4:0:0:4:a5cf] {clients} [secure ECDHE-RSA-AES256-GCM-SHA384]

non ssl

*** Client connecting: RandomONE (uid304591@id-304591.tooting.irccloud.com) [2001:67c4:0:0:4:a5cf] {clients}

using this:

Code: Select all

bind raw - NOTICE serv:connectnick

proc serv:connectnick {from key text} {
   if {[string match *!*@* $from] || ![string match -nocase "*Client connecting*" $text]} { return }
   if {[scan [lindex [split $text :] 2] {%[^(](%[^@]@%[^)]) [%[^]]]%[^[][%[^]]} Nick ident host IP client ssl] == 6} {
      puthelp "PRIVMSG #test :$Nick $ident $host $IP $client $ssl"
   } else {
      scan [lindex [split $text :] 2] {%[^(](%[^@]@%[^)]) [%[^]]} Nick ident host IP
      puthelp "PRIVMSG #test :$Nick $ident $host $IP"
   }
   return 0
}

when using both ssl and non ssl i get this output:

RandomONE uid304591 id-304591.tooting.irccloud.com 2001

[simo]

i tested again and it seems to work for ipv4 only for ipv6 it doesnt seem to get all the info

[Arnold_X-P]

apparently the code only works in unrealircd but does not work in inspircd it is possible to use regex to work in both unreal and inspircd versions

Code: Select all

bind raw - NOTICE serv:connectnick

proc serv:connectnick {from key text} {
   if {[string match *!*@* $from] || ![string match -nocase "*Client connecting*" $text]} { return }
   if {[scan [lindex [split $text :] 2] {%[^(](%[^@]@%[^)]) [%[^]]]%[^[][%[^]]} Nick ident host IP client ssl] == 6} {
      puthelp "PRIVMSG #test :$Nick $ident $host $IP $client $ssl"
   } else {
      scan [lindex [split $text :] 2] {%[^(](%[^@]@%[^)]) [%[^]]} Nick ident host IP
      puthelp "PRIVMSG #test :$Nick $ident $host $IP"
   }
   return 0
}

example variant regex (compatibility for both unreal and inspircd)

Code: Select all

 {[regexp {CONNECT: Client connecting[.A-Za-z0-9 ]*: ([^ ]+) \\(([^@]+)@([^\\)]+)\\) \\[([0-9\\.]+)\\].*} $arg } 

but the variant does not work someone who can help please.

[simo]

each ircd has its own server notice for connections and disconnections
so u cant have 1 to work for both its either one or the other


this is for inspircd

Code: Select all

bind raw - NOTICE serv:connectnick

proc serv:connectnick {from key text} {
   if {[string match *!*@* $from]} { return }
           if {![regexp -nocase { CONNECT: Client connecting on port (\d+) \(class (\S+)\): ([^!]+)!([^@]+)@(\S+) \(([0-9a-f.:]+)\) \[(.*)\]} $text -> port class nick ident host ip realname]} { return }
puthelp "PRIVMSG #test :$nick $ident $host $ip"
  return 0
}