Monday, November 08, 2010 at 12:00 AM.

---

scripting2Suite.server.newPost

on newPost (username, title, adratts) {
	<<Changes
		<<7/3/10; 8:35:20 AM by DW
			<<Created. 
	local (adrdata = scripting2suite.inituser (username), now = clock.now ());
	local (tokenval = string.hashmd5 (username + title + now));
	new (tabletype, adratts);
	adratts^.newPostToken = tokenval;
	adratts^.versionServer = scripting2Info.version;
	adrdata^.stats.newPostTokens.[tokenval] = now;
	return (true)};
bundle { //test code
	<<string.hashmd5 ("davewiner" + "Oh the buzzing" + clock.now ())
		<<"8a2bbb70ea6dc988edce048e879eca16"
	newPost ("davewiner", "Oh the buzzing", @scratchpad.tokenatts);
	edit (@scratchpad.tokenatts)}

---

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.