Monday, November 08, 2010 at 12:00 AM.
scripting2Suite.editor.menuCommands.mapDomain
on mapDomain () {
<<Changes
<<6/30/10; 5:28:34 PM by DW
<<Created.
local (attname = "domainToMap", s);
op.attributes.getone (attname, @s);
if dialog.ask ("Domain to map?", @s) {
if string.lower (s) beginswith "http://" {
s = string.delete (s, 1, 7)};
if s endswith "/" {
s = string.delete (s, sizeof (s), 1)};
op.attributes.setone (attname, s)}};
bundle { //test code
mapDomain ()}
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.