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.