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

---

system.verbs.apps.xmlStorageSystem.mailPasswordToUser

on mailPasswordToUser (mailAddress=user.prefs.mailaddress, adrmessage=nil, adrdata = @xmlStorageSystem.data) {
	<<Changes
		<<12/1/01; 12:17:32 PM by DW
			<<Created.
	local (params = {"mailAddress":mailAddress});
	local (rpcPath);
	if defined (adrdata^.xmlRpcPath) {
		rpcPath = adrdata^.xmlRpcPath};
	if defined (adrdata^.rpcPath) {
		rpcPath = adrdata^.rpcPath};
	with adrdata^ {
		local (response);
		response = xml.rpc (server, port, "xmlStorageSystem.mailPasswordToUser", @params, rpcPath:rpcPath, fldebug:fldebug, flShowMessages:false, protocol:protocol, soapAction:soapAction);
		if adrmessage != nil {
			adrmessage^ = response.message};
		return (not response.flerror)}}
<<bundle //test code
	<<mailPasswordToUser (adrmessage:@scratchpad.message)

---

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.