Monday, November 08, 2010 at 12:06 AM.
system.verbs.builtins.webBrowser.utilities.whoIs
case sys.os () {
"MacCn";
"MacOS" {
local (url = webbrowser.getfrontwindowurl (), s, i);
url = url - "http://";
for i = 1 to sizeof (url) {
if url [i] == "/" {
msg (url [i]);
url = string.mid (url, 1, i - 1);
break}};
url = url - "www.";
if dialog.ask ("Who is?", @url) {
netEvents.launch ();
s = netEvents.examples.whois (url);
webbrowser.displaytext ("<html><body><pre>" + s + "</pre></body></html>")}}}
This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.