proc ipcheck {frm key text} {
if {[string match *!*@* $frm] || ![string match -nocase "*client connecting*" $text]} { return }
regexp {:\ ([^ ]+)\s\(([^@]+)@([^\)])+\)\s\[([^\]]+)} $text - unick ident host ip ::pchecker::isvpn $ip $unickproc isvpn {ip unick} putquick "PRIVMSG #test33 :$unick *@$ip +7d :$::pchecker::gmsg"