Statistics: Posted by CrazyCat — Mon May 01, 2023 5:51 pm

[16:35] <@Arnold_X-P> .ip 200.87.208.0[16:35] <@reebot> Invalid address or IP not found

Statistics: Posted by Arnold_X-P — Mon May 01, 2023 5:05 pm

Code:

regexp -- {<p class="information"><span>Hostname:</span><span>(.+)</span>} $files - hostnameregexp -- {<p class="information"><span>ISP:</span><span>(.+)</span>} $files - ispregexp -- {<p class="information"><span>State/Region:</span><span>(.+)</span>} $files - stateregexp -- {<p class="information"><span>Country:</span><span>(.+)</span>} $files - countryregexp -- {<p class="information"><span>City:</span><span>(.+)</span>} $files - city

Statistics: Posted by CrazyCat — Mon May 01, 2023 3:02 am

Code:

bind pub - .ip msg_ipwhoisproc msg_ipwhois {nick uhost hand chan text} {  global botnick  if {$text == "" } {putquick "PRIVMSG $chan :You have to use true command for look up whois information. Command: !ip ipnumber";return}        if {[string match -nocase "*" $text]} {  set connect [::http::geturl http://whatismyipaddress.com/ip/$text]  set files [::http::data $connect]  ::http::cleanup $files    regexp -- {ISP:</th><td>(.*?)</td></tr><tr><th>Organization} $files - isp    regexp -- {Country:</th><td>(.*?) <img src=} $files - country    regexp -- {Hostname:</th><td>(.*?)</td></tr>} $files - hostname    regexp -- {State/Region:</th><td>(.*?)</td></tr>} $files - state    regexp -- {City:</th><td>(.*?)</td></tr>} $files - cityif {[info exists country]} {        puthelp "privmsg $chan :IP: $text - ISP: $isp - Hostname: $hostname - Country: $country"if {[info exists state]} {        puthelp "privmsg $chan :State: $state - City: $city" } } else {  puthelp "privmsg $chan :Invalid address or IP not found" }   }}

Statistics: Posted by Arnold_X-P — Sun Apr 30, 2023 10:44 pm