[REBOL] Re: refinement for whois protocol
From: chalz:earthlink at: 22-Apr-2002 4:06
I've got a script on my website for executing whois through my web browser.
I'm sure it can be done more elegantly, but this was still early for me. And
it works, so why mess with it? ;) Anyways, here's what the script says:
; service: "internic.net"
print "Content-Type: text/plain^/"
if not query: system/options/cgi/query-string [
print "Usage: whois?<id>"
print "For instance, whois?chalz.net"
; print "Uses InterNIC. If you want to use"
print "Uses whois.GeekTools.com. If you want to use"
print " another service, use <id>@<service>."
id: first query: parse query "@"
if (length? query) = 2 [
service: second query
print read rejoin [whois:// id "@" service]