REBOL [
    Title: "WHOIS Maker"
    Date: 30-May-2000
    File: %whoismaker.r
    Author: "David Handy"
    Purpose: "WhoIs query, parse, and save as a file"
    library: [
        level: 'intermediate 
        platform: 'all 
        type: 'Tool 
        domain: [other-net broken] 
        tested-under: none 
        support: none 
        license: none 
        see-also: none
    ]
    Version: 1.0.0
]

whois-server: http://www.networksolutions.com/cgi-bin/whois/whois/whois/
the-query: ""
if not exists? %whois [make-dir %whois]

while [not the-query = "."]
[   the-query: ask "  WHOIS-> "
    whois-the-query: make url! rejoin [whois-server "?" the-query] 
    query-result-html: read whois-the-query
    parse query-result-html [thru 
 copy query-result-preform to 
] either find query-result-preform "Your selection is available" ;true - no match [ print newline "NO MATCH FOUND - enter next query...." print query-result-preform ] ;false - match found [ print newline "MATCH FOUND - processed - enter next query...." print query-result-preform write/append %whois/masterfile.txt rejoin [ query-result-preform newline newline "X X X" newline newline ] html-wrapper: rejoin [newline query-result-preform newline] html-file: make file! rejoin ["whois/" the-query ".html"] write html-file html-wrapper ] ]