Who have TCL script "Domain Whois" ?

[gL0oM]

hello all, I searching script "domain whois". The Eggdrop can visit to the Web site and get information about some domains, for example:
!whois egghelp.org or !whois microsoft.com and bot send to the channel owned date and other information, registered domain or not registered. Who have this script, place it in this web site please...

p.s. Sorry for my bad English

[Thunderdome]

http://www.egghelp.org/cgi-bin/tcl_arch ... ad&id=1050

actually seing what egghelp.org is all about would not hurt

[gL0oM]

i also used this script, but, it is not what i want. Some domains are not checked by this script... But some information are not full and script display empty options to user. In other web sites the information of domains to full. Anybody have other versions of this script?

[De Kus]

I have a script using the unix command "whois" and some regexp triing to find country, registration name, ip range and abuse email. furthermore its triing to get the info from the IP instead of the the domain name whois. so maybe its not what you like.
remember some whois databases restrict the usage of the informations per ToS.

[Thunderdome]

That script does not allow some... there is another in tclscript.com, which I will test today.
De Kus, where can I get that script?

[gL0oM]

De Kus, upload your script to some web site please...

[gL0oM]

i find some script, with mini Corrections this script was wery good... Tell yours ideas to correct this script...

Code: Select all

bind pub -|- "!whois" whoisinfo
proc whoisinfo { nick uhost hand chan rest } {
set mask {[^A-Za-z\. 0-9 \-]}
set pau [regexp $mask $rest]    
if {$pau==0} {
   set paupau [eval [concat exec -- whois $rest]]
   set blabla [split $paupau \r\n]
   foreach {i} $blabla {
 putserv "PRIVMSG $nick :$i"
   }
} else {putserv "PRIVMSG $nick :String $arg contains not allowed symbols,rejected"}
return 0
}

putlog "whois tcl loaded"

[De Kus]

De Kus, upload your script to some web site please...

without any warrenty or support:

Code: Select all

#De Kus' kleines whoisscript :)
set whoisinuse 0
set re(whois1) {(?ni)inetnum: (.*)\n}
set re(whois2) {(?ni)descr: (.*)\n}
set re(whois3) {(?ni)country: (.*)\n}
set re(whois4) {(?ni)source: (.*)\n}
set re(whois5) { ([A-Za-z0-9\.\-]+@[A-Za-z0-9\.\-]+)}
set re(whois6) {(?ni)route: (.*)\n}
set re(whois7) {Registrant:\n([^\n]+)\n[^\n]+\n[^\n]+\n +([^\n]+)\n}

bind pub ol|ol ?whois whoisquery

proc whoisquery {nick uhost hand chan query} {
	if { $::whoisinuse == 1 } {
		puthelp "NOTICE $nick :Befehl darf nur 1mal/minute benutzt werden."
	} elseif { [scan $query "%s" hostip] != 1 } {
    puthelp "NOTICE $nick :Fehler: Anzahl der Argumente ungültig."
  } else {
  	set ::whoisinuse 1
  	timer 1 [list set ::whoisinuse 0]
    dnslookup [split $hostip] whoisquery_cb [split $nick] [split $chan] [split [string map {| "" < "" > ""} $query]]
    return 1
  }
}

proc whoisquery_cb {ipaddress hostname status nick chan query} {
	if { $hostname == $ipaddress && $ipaddress != "0.0.0.0" || $hostname == "" } {
		set hostname ""
	} elseif { $ipaddress != "0.0.0.0" } {
		set hostname "($hostname)"
		set query $ipaddress
	} else {
		set ipaddress ""
	}

	if {[catch {set sock [open "|bash -c "whois $query"" r]} err] } {
		puthelp "NOTICE $nick :Fehler: $err"
	} else {
		fconfigure $sock -blocking 0
		fileevent $sock readable [list whoisquery_cb2 $sock $ipaddress $hostname $nick $chan]
	}
	return 0
}

proc whoisquery_cb2 {sock ipaddress hostname nick chan} {
	global re
	set nick [join $nick]
	set chan [join $chan]
	set description ""
	set country ""
	set source ""
	set netblock ""
	set abuse ""
	set input [read $sock]
	close $sock
	regexp $re(whois1) $input {} netblock
	regexp $re(whois2) $input {} description
	regexp -all $re(whois3) $input {} country
	regexp $re(whois4) $input {} source
	foreach line [split $input "\n"] {
		if { [string match -nocase *abuse* $line] } {
			if { [regexp $re(whois5) $line {} abuse] } {
				break
			}
		}
	}
	if { $abuse != "" } {
		set abuse " - Abuse eMail: $abuse"
	}
	if { $netblock == "" } {
		regexp $re(whois7) $input {} netblock
	}
	if { $country == "" } {
		if { ![regexp $re(whois7) $input {} description country] } {
			puthelp "NOTICE $nick :Fehler: Unzureichendes Suchergebnis um es wiederzugeben."
			return 0
		}
	}
	puthelp "PRIVMSG $chan :[string trim $source] meldet für $ipaddress$hostname im NetBlock [string trim $netblock]:"
	puthelp "PRIVMSG $chan :Ländercode: [string trim $country] - Beschreibung: [string trim $description]$abuse"
	return 0
}