UPDATE REQUEST: Domain/IP Whois

[Scayett]

Hi,

I've downloaded the Domain/IP Whois by Sickness (v0.1) script (link) and installed it on my bot, however I am thinking the script is broken as all valid requests come up with no results found. Could someone please take a look at it and try update it?

Code: Select all

<@User> !whois google.com
<@Bot> [Whois] No results.
<@User> !whois g.co
<@Bot> [Whois] No results.
<@User> !whois 173.194.41.65
<@Bot> [Whois] No results.
<@User> !whois asdf
<@Bot> [Whois] Bad input (not a valid hostname or IP address)

Thanks!

[Regex]

I've written a script like that, but basically script is TURKISH. I've translated it for you.

Code: Select all

bind pub - .whois msg_whois
proc msg_whois {nick uhost hand chan text} {
  global botnick 
  if {$text == ""} {putquick "PRIVMSG $chan :You have to use true command for look up whois information. Command: <.whois site>";return}
  set connect [::http::geturl http://wmaraci.com/whois-detay?domain=$text] 
  set files [::http::data $connect] 
  ::http::cleanup $files
  if {[string match -nocase "*ta ve sat*" $files]} {
    putquick "PRIVMSG $chan The domain is unregistered. You can register this domain!"
  }
  if {[string match -nocase "*Whois Kayd*" $files]} {
    regexp -- {</p><p><strong>Güncelleme Tarihi</strong>: (.*)} $files - refresh
    regexp -- {</p><p><strong>Oluşturma Tarihi</strong>: (.*)} $files - register
    regexp -- {</p><p><strong>Bitiş Tarihi</strong>: (.*)} $files - expire
    putquick "PRIVMSG $chan Web: $text"
    putquick "PRIVMSG $chan Situation: Registered"
    putquick "PRIVMSG $chan Refreshed Time: $refresh"
    putquick "PRIVMSG $chan Registered Time: $register"
    putquick "PRIVMSG $chan Expire Time: $expire"
  }
}

putlog "Domain Information TCL v1.0 - Written By CLubber"

* You've to use this script with http.tcl
* After you can use this script with .whois site command.

[Scayett]

Thanks, this works

[anbinal]

@Scayett : According to me,If you are using code to find domain/ip whois,it's possible to get error.Because i tried coding method,I didn't get my correct ip and domain details.Then i checked my whois details at whoisxy.com .I got accurate results.

[gasak]

sorry to bump, but does the web still working? Just tried the tcl but seems doesnt work anymore. Please advice.

Thanks

[Get_A_Fix]

sorry to bump, but does the web still working? Just tried the tcl but seems doesnt work anymore. Please advice.

Thanks

umm, yes, it works, you just have to use some initiative, change the connect address.

for example

Code: Select all

set connect [::http::geturl http://wmaraci.com/whois-detay?domain=$text]

would be changed to...

Code: Select all

set connect [::http::geturl http://wmaraci.com/whois?domain=$text]

It's a rather simple fix, enjoy.

[gasak]

Hi Get_A_Fix,

Been tried that but still not working. Nothing's come up when testing a command ".whois egghelp.org" on the channel. Please advice.

Thanks

[gasak]

Just notice that the code have some unicode inside which is unreadable by eggdrop. How to make it works?