notify for when users enter the server

[flink]

the request would know of any notify tcl server level,

[simo]

you could try this :

Code: Select all

set monchan "#MonitorChannel"
bind raw - NOTICE SnoticeMonitor

proc SnoticeMonitor {from key text} {

   if {[string match *!*@* $from]} { return 0 ; # not a server notice }

  if {[regexp -nocase { CONNECT: Client connecting on port (\d+) \(class (\S+)\): ([^!]+)!([^@]+)@(\S+) \(([0-9a-f.:]+)\) \[(.*)\]} $text -> port class nick ident host  ip realname]} {
   putserv "PRIVMSG $::monchan :$nick connecting from $ident!$host"
 }

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

[flink]

Thanks simo for answering, what you propose does not work.