egghelp/eggheads community

debug on connect

2023-09-01T09:31:07-04:00

check this thread for the use of colors :

http://forum.egghelp.org/viewtopic.php?p=104917

Statistics: Posted by simo — Fri Sep 01, 2023 9:31 am

debug on connect

2023-09-01T06:03:16-04:00

Ohh Simo, I haven't seen your code until now...
Anope services is too log.
With this I only see what enters the chat to act on certain occasions.
Thank you very much, I'm going to test.

PD: where do I find the list of colors to play with colors?

Statistics: Posted by PeLL — Fri Sep 01, 2023 6:03 am

debug on connect

2023-09-01T05:56:54-04:00

CrazyCat, thank you very much for your work and time.
Looking at the code with another previous one that you helped me, I did not think that I could put almost the same ...
Again, thank you very much .

Statistics: Posted by PeLL — Fri Sep 01, 2023 5:56 am

debug on connect

2023-08-31T14:29:59-04:00

Btw there is a module in inspircd chanlog that does output to a channel as well like connect disconnect nickchange filters and so on

Statistics: Posted by simo — Thu Aug 31, 2023 2:29 pm

debug on connect

2023-09-02T09:27:05-04:00

Try this if it works as expected.

Code:

set outputchan "#debug"bind raw - NOTICE server:notices proc server:notices {from keyword text} {  global outputchan  set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]  if {[regexp -nocase { REMOTECONNECT: Client connecting at (\S+\:) ([^!]+)!([^@]+)@(\S+) \(([0-9a-f.:]+)\) \[(.*)\]} $text ->  server nick ident host ip realname] } {  putquick "PRIVMSG $outputchan :\002\00312,00 Server\: [string trimright $server ":"] \00307 Nick\:  $nick  \00310 IP\: $ip \00302 Host\: $host \00310 RealName\: $realname \002\017" }  if {![regexp -nocase { CONNECT: Client connecting on port (\d+) \(class (\S+)\): ([^!]+)!([^@]+)@(\S+) \(([0-9a-f.:]+)\) \[(.*)\]} $text -> port class nick ident host  ip realname]} { return 0 }  putquick "PRIVMSG $outputchan :\002\00312,00 Nick\: $nick \00310 IP\: $ip \00302 Host\: $host \00310 ReaLName\: $realname \00306  Port\: $port \002\017"   return 0}

Ive tested it and it seems to work.

Statistics: Posted by simo — Wed Aug 30, 2023 8:44 pm

debug on connect

2023-08-30T17:49:01-04:00

Hello , CrazyCat ;

I'll post some proxy connections about inspircd :

[23:22] -irc.server.net- *** CONNECT: Client connecting on port 6667 (class irc): mlel0d_b0b!nogc@187.208.208.17 (187.208.208.17) [onoq]
[23:22] -irc.server.net- *** CONNECT: Client connecting on port 6667 (class irc): CiSimca__!lbvd@187.147.53.21 (187.147.53.21) [khlvu]
[23:22] -irc.server.net- *** CONNECT: Client connecting on port 6667 (class irc): SePettern!kjop@187.213.249.32 (187.213.249.32) [lpw]
[23:22] -irc.server.net- *** CONNECT: Client connecting on port 6667 (class irc): CiKibbo!uix@187.232.48.93 (187.232.48.93) [euk]

I post some examples of connection to the server.
Right now the real ip does not show the brackets ( )
But the realname does appear in square brackets [ ] .

23:45:31 pell server: S05-kx8551951!Ircap@ip72-195-34-60.oc.oc.cox.net IP-real: 72.195.34.60 RN [I3wjfCN8LzIwMjIvMTAvMDYvNjMzZTIwZDg4NWRkZl9sYXJnZS5qcGc=] Port: 6667
23:45:32 pell server: S05-kv2798442!Ircap@142.54.232.6 IP-real: 142.54.232.6 RN [I3wjfCN8LzIwMjIvMTAvMDYvNjMzZTIwZDg4NWRkZl9sYXJnZS5qcGc=] Port: 6667
23:45:32 pell server: S05-zq56519805!Ircap@221.10.151.38 IP-real: 221.10.151.38 RN [I3wjfCN8LzIwMjIvMTAvMDYvNjMzZTIwZDg4NWRkZl9sYXJnZS5qcGc=] Port: 6667
23:45:35 pell server: S05-vy7659207!Ircap@ip72-195-34-58.oc.oc.cox.net IP-real: 72.195.34.58 RN [I3wjfCN8LzIwMjIvMTAvMDYvNjMzZTIwZDg4NWRkZl9sYXJnZS5qcGc=] Port: 6667

23:47:58 pell server: S05-xy36904851!Ircap@184.181.217.206 IP-real: 184.181.217.206 RN [ircap;IRcap[8.7] Port: 6667
23:47:58 pell server: S05-kv76419113!Ircap@107.181.168.145 IP-real: 107.181.168.145 RN [xchat;failscripts] Port: 6667
23:48:00 pell server: S05-lm43617252!Ircap@223.112.53.2 IP-real: 223.112.53.2 RN [xscript;script Port: 6667
23:48:02 pell server: S05-yx14603099!Ircap@115.127.85.221 IP-real: 115.127.85.221 RN [debian;tuX Port: 6667

Thank you very much for your help and time.

Statistics: Posted by PeLL — Wed Aug 30, 2023 5:49 pm

debug on connect

2023-08-30T08:19:46-04:00

I think the way you parse the string could be change using a regexp.
I don't know exactly how is the text you get, so I can't write it. Could you provide 2 complete connect string to let me help you ?

The alternative should be to change the way you set IP and realname:

Code:

set outputchan "#debug"bind raw - NOTICE server:notices proc server:notices {from keyword text} {   global outputchan   if {[string match -nocase "*client connecting on port 66??*" $text]} {      set port [lindex [split $text] 7]      set nick [lindex [split $text] 10]      set IP [string range [lindex [split $text] 11] 1 end-1]      set hostmask [lindex [split $text] 12]      set realname [string range [join [lrange [split text] 13 18]] 1 end-1]      set connectport [lindex [split $text] 7]      putquick "PRIVMSG $outputchan 25server\002:\003 $nick \0021IP-real\002: $IP \0021RN\002 $hostmask $realname \0021Port:\002 $port \002"      return 0   }}

Statistics: Posted by CrazyCat — Wed Aug 30, 2023 8:19 am

debug on connect

2023-08-29T19:44:31-04:00

Hello,
I want to ask for help on this simple script that I use for debug .
If possible remove parentheses ( ) and brackets [ ] .

Code:

set outputchan "#debug"bind raw - NOTICE server:notices proc server:notices {from keyword text} {     global outputchan         if {[string match -nocase "*client connecting on port 66??*" $text]} { set port [lindex [split $text] 7]          set nick [lindex [split $text] 10]set IP [lindex [split $text] 11]           set hostmask [lindex [split $text] 12]    set real [lindex [split $text] 13]    set name [lindex [split $text] 14]    set long [lindex [split $text] 15]    set very [lindex [split $text] 16]    set loong [lindex [split $text] 17]    set final [lindex [split $text] 18]          set connectport [lindex [split $text] 7]          putquick "PRIVMSG $outputchan 25server\002:\003 $nick \0021IP-real\002: $IP \0021RN\002 $hostmask $real $name $long $very $loong $final \0021Port:\002 $port \002"           return 0        }  }

Each connection connects from :

dbug-server server: Ruler-!jmch@47.134.120.128 IP-real (47.134.120.128) RN [I3wjfCN8LzIwMjIvMTAvMDYvNjMzZTIwZDg4NWRkZl9sYXJnZS5qcGc=] Puerto: 6667
dbug-server server: Fujio!cdo@97.118.203.89 IP-real (97.118.203.89) RN [I3wjfCN8LzIwMjIvMTAvMDYvNjMzZTIwZDg4NWRkZl9sYXJnZS5qcGc=] Puerto: 6667

I would like to remove the parentheses from : ip-real and the brackets from realname

Thank you very much for your time .

Statistics: Posted by PeLL — Tue Aug 29, 2023 7:44 pm