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


on pleaseNotify (notifyProcedure, port, path, protocol, urllist, client, adrTable, timeExpires=nil) {
	<<Process a please notify request. Store the information in a notification requests table.
		<<1/15/02; 5:04:51 PM by PBS
	xml.pubsub.initTable (adrTable); //make sure the notifications data structure is set up
	if timeExpires == nil {
		timeExpires = () + (25 * 60 * 60)}; //default is good for 25 hours
	local (url);
	for url in urllist {
		local (adrurl, adrsub);
		adrurl = @adrTable^.notify.[url]; //the address of the table for this resource
		if not defined (adrurl^) { //create if needed
			new (tableType, adrurl)};
		adrsub = @adrurl^.[client]; //a sub-table for this particular client
		new (tabletype, adrsub);
		adrsub^.procedure = notifyProcedure;
		adrsub^.port = port;
		adrsub^.path = path;
		adrsub^.protocol = protocol;
		adrsub^.timeExpires = timeExpires};
	return (true)}

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.