IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
########################################## 

### DomainWhois.tcl ### 

### Sürüm 1.2 ### 

### By eScaPe ### 

### [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ### 

### [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ### 

### ### 

########################################## 

 

############################################################################ 

### Copyright © 2000 - 2001 Turkçeye Çevirmeye Çalıştım İnş. YararLı OLur.## 

############################################################################ 

 

############################################################################# 

## 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. ## 

############################################################################# 

 

############### 

##KullanıLışı## 

################################################### 

## ## .dwhois <domainADI> (Com|NET|ORG vs vs..) ## 

######### ## 

######### information for a domain. ## 

################################################### 

 

############################################ 

######KodLama ßaşlıyor Elleme Yapma! ####### 

############################################ 

 

bind pub - .dwhois dwhois 

proc dwhois {nick host handle chan text} { 

set server "isfree.schlundtec.com" 

set port 80 

set l 14 

set i 0 

set path "/cgi-bin/isfree.cgi?nodesign=1&domain=[lindex $text 0]" 

set sockdw [socket $server $port] 

puts $sockdw "GET $path HTTP/1.0" 

puts $sockdw "User.Agent:Mozilla" 

puts $sockdw "Host: $server" 

puts $sockdw "" 

flush $sockdw 

while {$i <= $l} { 

gets $sockdw linedw 

putlog $linedw 

if {[string match "*Domain*frei*" $linedw]} { 

putserv "PRIVMSG $chan :[lindex $text 0] domaini (alan adı) boştadır ve kaydedilebilir" 

close $sockdw 

return 0 

} 

if {[string match "*Domain*registriert*" $linedw]} { 

gets $sockdw 

putserv "PRIVMSG $chan :Domain Sahibi: [html [gets $sockdw]] Cadde: [html [gets $sockdw]] Kent: [html [gets $sockdw]] Ülke: [html [gets $sockdw]]" 

close $sockdw 

return 0 

} 

incr i 

} 

close $sockdw 

} 

proc html { text } { 

regsub -all "</TD>" $text "" text 

regsub -all "</FONT>" $text "" text 

regsub -all " " $text "" text 

regsub -all "&uuml;" $text "ü" text 

regsub -all "&ouml;" $text "ö" text 

regsub -all "&auml;" $text "ä" text 

regsub -all "&Uuml;" $text "Ü" text 

regsub -all "&Ouml;" $text "Ö" text 

regsub -all "&Auml;" $text "Ä" text 

regsub -all "&szlig;" $text "ß" text 

regsub -all "&quot;" $text "\"" text 

regsub -all "<tb>" $text "" text 

regsub -all "<font" $text "" text 

regsub -all "size=\"2\"" $text "" text 

regsub -all "face=\"Verdana,Arial,Helvetica,Geneva\">" $text "" text 

regsub -all "<br>" $text "" text 

regsub -all "&nbsp;" $text "" text 

regsub -all "</font>" $text "" text 

regsub -all "<td>" $text "" text 

regsub -all "</td>" $text "" text 

regsub -all "" $text "" text 
 regsub -all "" $text "" text 

regsub -all "

 

" $text "" text 

return $text 

} 

 

 

 

putlog "\002DOMAINWHOIS:\002 DomainWhois.tcl Sürüm 1.2 by eScaPe TCL Yüklendi!."