Domain Whois .tcl - IRC Forum , Forum Sitesi , Forumlar , Sohbet , Chat , IRCDFORUM
IRC Forum , Forum Sitesi , Forumlar , Sohbet , Chat , IRCDFORUM  


  IRC Forum , Forum Sitesi , Forumlar , Sohbet , Chat , IRCDFORUM IF - Unreal, Services ve Botlar Eggdrop, BNC ve Socket Botlar TCL Scriptler


Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 01 Şubat 2015, 23:54   #1
 
Ahmet - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 01 Şubat 2015
Bulunduğu yer: istanbul
Mesajlar: 43
WEB Sitesi: www.hobichat.net
IRC Sunucusu:
İlgi Alanı: Unreal
Alınan Beğeni: 21
Standart Domain Whois .tcl

PHP- Kodu: 
############################
### DomainWhois.tcl      ###
### Version 1.2          ###
### By Wcc               ###
### wcc@techmonkeys.org  ###
### http://dawg.dynu.com ###
### EFnet #|DAWG|Tcl     ###
############################

############################################################################
### Copyright © 2000 - 2001 |DAWG| Scripting Group. All rights reserved. ###
############################################################################

#############################################################################
## This script connects to the Network Solutions whois server and displays ##
## the registration information for a domain name. You can also set your   ##
## own whois server to connect to.                       ##
#############################################################################

##############
## COMMANDS ##
##############################################
## DCC ## .dwhois <domain> (Can be changed) ##
######### Displays the domain registration  ##
######### information for a domain.        ##
##############################################

##########################################################
## Just load the script, set the variables, and rehash. ##
##########################################################

###########################################################
# Set the flag required to preform internic lookups here. #
###########################################################

set domainwhois_setting(flag"o|o"

#########################################################
# Set the command for performing internic lookups here. #
#########################################################

set domainwhois_setting(cmd"dwhois"

#######################################
# Set the lookup server address here. #
# Format: <server>:<port>             #
#######################################

set domainwhois_setting(server"networksolutions.com:43"

###################################
# Enable use of bold in DCC chat? #
###################################

set domainwhois_setting(bold1

###############################################
# Prefix "DOMAINWHOIS:" in DCC chat messages? #
###############################################

set domainwhois_setting(DOMAINWHOIS:) 1

####################
# Code begins here #
####################

if {![string match 1.6.* $version]} { putlog "\002DOMAINWHOIS:\002 \002WARNING:\002 This script is intended to run on eggdrop 1.6.x or later." }
if {[
info tclversion] < 8.2} { putlog "\002DOMAINWHOIS:\002 \002WARNING:\002 This script is intended to run on Tcl Version 8.2 or later." }

bind dcc $domainwhois_setting(flag$domainwhois_setting(cmddomainwhois_connect

proc domainwhois_dopre 
{} {
    global 
domainwhois_setting
    
if {!$domainwhois_setting(DOMAINWHOIS:)} { return "" }
    if {!
$domainwhois_setting(bold)} { return "DOMAINWHOIS: " }
    return 
"\002DOMAINWHOIS:\002 "
}
proc domainwhois_connect {hand idx text} {
    global 
domainwhois_setting
    
if {$text == ""} { putidx $idx "[domainwhois_dopre]Usage: .$domainwhois_setting(cmd) <domain>" ; return }
    
set server [lindex [split $domainwhois_setting(server) :] 0]
    
set port [lindex [split $domainwhois_setting(server) :] 1]
    if {[catch {
set sock [socket -async $server $port]} error]} {
        
putidx $idx "[domainwhois_dopre]Connection to $domainwhois_setting(server) failed \([string totitle $error]\)."
        
return
    }
    
putidx $idx "[domainwhois_dopre]Looking up [lindex $text 0]."
    
set timerid [utimer 15 [list domainwhois_timeout $sock $idx]]
    
fileevent $sock writable [list domainwhois_connected $sock $idx [lindex [split $text0$timerid]
}
proc domainwhois_connected {sock idx domain timerid} {
    global 
domainwhois_setting
    killutimer $timerid
    
if {[set error [fconfigure $sock -error]] != ""} {
        
putidx $idx "[domainwhois_dopre]Connection to $domainwhois_setting(server) port $domainwhois_setting(port) failed. \([string totitle $error]\)"
        
close $sock
        
return
    }
    
fconfigure $sock -translation binary -buffering none -blocking 1
    fileevent $sock writable 
[list domainwhois_write $sock $idx $domain]
    
fileevent $sock readable [list domainwhois_read $sock $idx]
    
putidx $idx "[domainwhois_dopre]Connection to $domainwhois_setting(server) accepted."
}
proc domainwhois_timeout {sock idx} {
    global 
domainwhois_setting
    close $sock
    putidx $idx 
"[domainwhois_dopre]Connection to $domainwhois_setting(server) timed out."
}
proc domainwhois_read {sock idx} {
    global 
domainwhois_setting
    
if {[gets $sock read] == -1} {
        
putidx $idx "[domainwhois_dopre]Connection to $domainwhois_setting(server) closed."
        
close $sock
        
return
    }
    
putidx $idx "[domainwhois_dopre]> $read"
}
proc domainwhois_write {sock idx domain} {
    
puts $sock "WHOIS $domain"
    
fileevent $sock writable {}
}
putlog "\002DOMAINWHOIS:\002 DomainWhois.tcl Version 1.2 by Wcc is loaded." 

 Ahmet isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Bookmarks

Etiketler
domain, tcl, whois


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Satılık Domain SkandaL Site Satış 2 15 Aralık 2017 13:33
Domain Sitesi Superisi Web Site Tanıtımları 0 30 Eylül 2016 09:12
Domain Satış Şablonu Mathayus Domain Satış 0 27 Mart 2015 17:16
Domain TCL No_FeaR TCL Scriptler 0 21 Mart 2015 22:22
mIRCteyiz.org Domain Satılıktır.. LinuX Domain Satış 2 09 Mart 2015 23:15


All times are GMT +3. The time now is 16:49.


Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.

kurtköy escort

gaziantep escort islami sohbet dini sohbet sohbet odaları türk chat


We Google