At 09:56 AM 11/30/2001, you wrote:
>Anyone know of a CF Whois tag that works with the reworked versions of the
>Global Registry or Verisign/NSI whois. (These two appear to be the same).
>It seems the existing tags like CF_Whois have been outmoded with this new
>revision.

For a hosting companies registration system I wrote 
(http://www.digiweb.co.nz/) I just used CFX_TCPCLIENT (probably got it from 
the developer exchange), and wrote a custom tag around it to do a proper 
whois query.  Here is the code for the custom tag if you want it....


<CFSILENT>
         <!--- OK, we just send a simple WHOIS query to the appropriate
                   place and return the results we recieve.
           --->
         <CFPARAM NAME="ATTRIBUTES.SERVER" DEFAULT="whois.internic.net">
         <CFPARAM NAME="ATTRIBUTES.DOMAIN" DEFAULT="yahoo.com">


         <CFX_TCPCLIENT SESSION="OPEN" HOST="#ATTRIBUTES.SERVER#" 
PORT="whois" SOCKETNAME="WhoisSocket">
         <CFIF Len(TCPClientError)>
                 <!--- An error has occurred, set the return text to this 
message --->
                 <CFSET CALLER.Whois = TCPClientError>
                 <CFEXIT>
         </CFIF>

         <CFSET CALLER.Whois = "">
         <!--- Connected OK, now send query
                   Note that I check for and remove any common host portion 
of the domain
                   that may have been entered by mistake...
           --->

         <CFX_TCPCLIENT SOCKET="#WhoisSocket#" 
SENDRN="#ReReplaceNoCase(ATTRIBUTES.DOMAIN, 
"^((www\.)|(ftp\.)|(smtp\.)|(pop\.)|(mail\.)|(news\.)|(nntp\.))", "")#">
         <CFIF Len(TCPClientError)>
                 <!--- An error has occurred, set the return text to this 
message --->
                 <CFSET CALLER.Whois = TCPClientError>
                 <CFEXIT>
         </CFIF>

         <CFSET  reciever=" ">
         <CFLOOP CONDITION="Len(reciever)">
                 <CFX_TCPCLIENT SOCKET="#WhoisSocket#" RECV="reciever" 
WAITFORRECVDATA="10">
                 <CFIF Len(TCPClientError)>
                         <!--- An error has occurred, set the return text 
to this message --->
                         <CFSET CALLER.Whois = TCPClientError>
                         <CFEXIT>
                 </CFIF>
                 <CFSET CALLER.Whois = "#CALLER.Whois##reciever#">
         </CFLOOP>
         <CFX_TCPCLIENT SOCKET="#WhoisSocket#" SESSION="CLOSE">
</CFSILENT>




----------
James Sleeman
Innovative Media Ltd
Phone: (03) 377 6262
http://www.websolutions.co.nz/

CAUTION: The information contained in this email message is confidential 
and may be legally privileged. If the reader of this message is not the 
intended recipient you are notified that any use, dissemination, 
distribution or reproduction of this message is prohibited. If you have 
received this message in error please notify the sender immediately and 
destroy the original message and any attachments.

Views expressed in this communication may not be those of Innovative Media 
Ltd.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Get the mailserver that powers this list at http://www.coolfusion.com
FAQ: http://www.thenetprofits.co.uk/coldfusion/faq
Archives: http://www.mail-archive.com/[email protected]/
Unsubscribe: http://www.houseoffusion.com/index.cfm?sidebar=lists

Reply via email to