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 $unick
proc isvpn {ip unick}
putquick "PRIVMSG #test33 :$unick *@$ip +7d :$::pchecker::gmsg"