egghelp.org community Forum Index
[ egghelp.org home | forum home ]		 egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

UPDATE REQUEST: Domain/IP Whois

 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests
View previous topic :: View next topic  
Author Message
Scayett
Voice


Joined: 27 Mar 2012
Posts: 3
PostPosted: Tue Mar 27, 2012 8:06 pm    Post subject: UPDATE REQUEST: Domain/IP Whois Reply with quote
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:
<@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!
Back to top
View user's profile Send private message
Regex
Voice


Joined: 19 Mar 2011
Posts: 19
PostPosted: Wed Mar 28, 2012 8:46 am    Post subject: Reply with quote
I've written a script like that, but basically script is TURKISH. I've translated it for you.

Code:

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.
Back to top
View user's profile Send private message
Scayett
Voice


Joined: 27 Mar 2012
Posts: 3
PostPosted: Thu Mar 29, 2012 12:07 pm    Post subject: Reply with quote
Thanks, this works Smile
Back to top
View user's profile Send private message
anbinal
Voice


Joined: 29 Aug 2012
Posts: 2
PostPosted: Wed Aug 29, 2012 1:12 am    Post subject: Re: UPDATE REQUEST: Domain/IP Whois Reply with quote
@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.
Back to top
View user's profile Send private message
gasak
Halfop


Joined: 09 Aug 2010
Posts: 45
PostPosted: Fri Jan 18, 2013 11:50 am    Post subject: Reply with quote
sorry to bump, but does the web still working? Just tried the tcl but seems doesnt work anymore. Please advice.

Thanks
_________________
Learning Knows No Boundaries!!
Back to top
View user's profile Send private message
Get_A_Fix
Master


Joined: 07 May 2005
Posts: 206
Location: New Zealand
PostPosted: Sat Jan 19, 2013 3:02 pm    Post subject: Reply with quote
gasak wrote:
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:

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


would be changed to...

Code:

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


It's a rather simple fix, enjoy.
_________________
We explore.. and you call us criminals. We seek after knowledge.. and you call us criminals. We exist without skin color, without nationality, without religious bias.. and you call us criminals.
Back to top
View user's profile Send private message AIM Address Yahoo Messenger MSN Messenger
gasak
Halfop


Joined: 09 Aug 2010
Posts: 45
PostPosted: Sun Jan 20, 2013 12:20 am    Post subject: Reply with quote
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
_________________
Learning Knows No Boundaries!!
Back to top
View user's profile Send private message
gasak
Halfop


Joined: 09 Aug 2010
Posts: 45
PostPosted: Mon Jan 21, 2013 5:50 am    Post subject: Reply with quote
Just notice that the code have some unicode inside which is unreadable by eggdrop. How to make it works?
_________________
Learning Knows No Boundaries!!
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests All times are GMT - 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber