Domain TCL

[No_FeaR]

TCL Name : Domain.TCL

İşlevi :
Arattığınız domaini almaya müsait veya alınmış olduğunun haberini verir.
Eğer arattığınız domain alınmış ise o domain hakkında bilgileri size aktarır..
Güvenlik altına alınan domain bilgileri resimdeki gibi gözükmektedir..

Komut: .domain (alanadı)
ORNEK: .domain lookjapan.com

NOT: TCL'nin icinde kanaladınızı editlemeyi unutmayınız.. TCL Curl yüklü olan sunucularda çalışır bilginize..


############################
# DOMAIN SORGULAMA TCL #
# BY RASCOLN #
############################

### Domain ve Whois Sorgu Adresi
set kiminsite "[Only Registered Users Can See Links]"

### Komutun Calisacagi Kanal
set domainkanal "#kanaladi"

bind pub - .domain sorgu

proc sorgu {nick host hand chan text} {
set xx 0
set yy 0
if { [string match $::domainkanal $chan] } {
if { [llength $text] > 1 } { return 0 }
if { $text eq "" } { putquick "privmsg $chan :Lütfen bir domain ismi giriniz.."; return 0 }
catch { exec curl -k "$::kiminsite$text" } data
putquick "privmsg $chan :\t\002 DOMAIN SORGULAMA"
if {[string match -nocase "*Registrant:*" $data]} {
putquick "privmsg $chan :---------------------------------------"
putquick "privmsg $chan :\0034,1 Uzgünüm! \0030[lindex $text 0] \0034daha önceden alınmış! \003"
putquick "privmsg $chan :---------------------------------------"
set araal [string range $data [expr [string first "<td class=\"whois\">\*\* Registrant:<br><\/br>" $data]] [expr [string last "<td width=\"39%\" valign=\"top\" align=\"right\">" $data]]]
set araal3 [string range $data [expr [string first "\*\* Additional Info:<br><\/br>" $data]] [expr [string last "<td width=\"39%\" valign=\"top\" align=\"right\">" $data]]]
foreach sirala [split $araal \n] {
if {$xx == 8} { break }
if {![string match "" $sirala] && ![string match -nocase "*<img*" $sirala]} {
if {$xx != 0} {
putquick "privmsg $chan :\0034|\003 [string map -nocase { "<" "" } [string map -nocase {"<td class=\"whois\">** Registrant:" "" "" "" "<br>" "" "<\/br>" "" "<b>" "" "<\/b>" "" "<\/td>" "" "<\/tr>" "" "<\/table>" ""} $sirala]]"
}
}
incr xx
}
foreach sirala3 [split $araal3 \n] {
if {$yy == 3} { break }
if {![string match "" $sirala3] && ![string match -nocase "*<img*" $sirala3]} {
putquick "privmsg $chan :\0034|\003 [string map -nocase { "<" "" } [string map -nocase {"<td class=\"whois\">** Registrant:" "" "" "" "<br>" "" "<\/br>" "" "<b>" "" "<\/b>" "" "<\/td>" "" "<\/tr>" "" "<\/table>" ""} $sirala3]]"
}
incr yy
}
putquick "privmsg $chan :----------------------------------------------"
return 0
}

if {[string match -nocase "*Domain Name:*" $data]} {
putquick "privmsg $chan :---------------------------------------"
putquick "privmsg $chan :\0034,1 Uzgünüm! \0030[lindex $text 0] \0034daha önceden alınmış! \003"
putquick "privmsg $chan :---------------------------------------"
set araal2 [string range $data [expr [string first "<td class=\"sorgusonucu\" align=\"left\" valign=\"top\">Sorgu Sonucu \/" $data]] [expr [string last "<table border=\"0\" cellpadding=\"1\" cellspacing=\"0\" width=\"95%\">" $data]]]
while {[regexp -- {<b>Updated Date:</b> (.*?)<br></br>(.*)$} $araal2 -> update araal2]} {
if {$xx == 1} { break }
regexp -- {<b>Creation Date:</b> (.*?)<br></br>} $araal2 - creat
regexp -- {<b>Registrar Registration Expiration Date:</b> (.*?)<br></br>} $araal2 - expire
regexp -- {<b>Registrar:</b> (.*?)<br></br>} $araal2 - reg
regexp -- {<b>Registrant Name:</b> (.*?)<br></br>} $araal2 - regname
regexp -- {<b>Registrant Street:</b> (.*?)<br></br>} $araal2 - regstreet
regexp -- {<b>Registrant City:</b> (.*?)<br></br>} $araal2 - regcity
regexp -- {<b>Registrant Phone:</b> (.*?)<br></br>} $araal2 - regphone
regexp -- {Name Server:</b> <a href=".*?">(.*?)</a><br></br>} $araal2 - dns
putquick "privmsg $chan :\0034|\003 Domain Adı:\0034 $text"
putquick "privmsg $chan :\0034|\003 Baslangıç Tarihi:\00314 $creat"
putquick "privmsg $chan :\0034|\003 Güncellenme Tarihi:\00314 $update"
putquick "privmsg $chan :\0034|\003 Bitiş Tarihi:\00314 $expire"
putquick "privmsg $chan :\0034|\003 Kayıtlı Sitesi:\00314 $reg"
putquick "privmsg $chan :\0034|\003 Domain Sahibi:\00314 $regname"
putquick "privmsg $chan :\0034|\003 Kayitli Mah/Sok:\00314 $regstreet"
putquick "privmsg $chan :\0034|\003 Kayitli Şehir:\00314 $regcity"
putquick "privmsg $chan :\0034|\003 Telefon Numarası:\00314 $regphone"
putquick "privmsg $chan :\0034|\003 Dns :\00314 $dns"
incr xx
}
putquick "privmsg $chan :----------------------------------------------"
return 0
}
if {[string match -nocase "*match found for*" $data] || [string match -nocase "*kimse*" $data]} {
putquick "privmsg $chan :---------------------------------------"
putquick "privmsg $chan :\0039,1 Tebrikler! \0030[lindex $text 0] \0039satın almaya müsait! \003"
putquick "privmsg $chan :---------------------------------------"
return 0
}
if {[string match -nocase "*LIMIT EXCEEDED*" $data]} {
putquick "privmsg $chan :---------------------------------------"
putquick "privmsg $chan :\0030,1 \[\0038.org\0030\] uzantılı alan adlarının sorgulanmasında geçici bir sorun yaşanmaktadır. \003"
putquick "privmsg $chan :---------------------------------------"
return 0
}
}
}

putlog "Domain Sorgu TCL by rascoLn"

Yapımcısı; rascoLn