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

on htmlSearch (adrPageTable, fname, flShowSiteNames=true, altColor="#F5F5DC", feedback=true, indexName=nil, adrFilterCallback=nil) {
	<<Create a search request, call the search script, and return the results.
		<<The searchRequest table should contain:
				<<May be null.
				<<Otherwise, the membership info address for this user.
				<<The list of sites to search.
		<<8/11/02; 2:14:52 AM by JES
			<<New optional parameter, adrFilterCallback, which is the address of a search result filter callback. Passed to
	local (searchRequest, argTable);
	new (tableType, @searchRequest);
	new (tableType, @argTable);
	<<Parse the search args into a table.
	webserver.parseArgs (adrPageTable^.searchArgs, @argTable);
	<<Populate the searchRequest table.
	bundle { //get the search string
		searchRequest.searchString = argTable.q};
	bundle { //get the start parameter
		try { //start
			searchRequest.start = string.urlDecode (argTable.s);
			searchRequest.start = number (searchRequest.start)}
		else {
			searchRequest.start = 1}};
	bundle { //get max hits per page parameter
		try { //max hits per page
			searchRequest.maxHitsPerPage = string.urlDecode (argTable.m);
			searchRequest.maxHitsPerPage = number (searchRequest.maxHitsPerPage)}
		else {
			searchRequest.maxHitsPerPage = 25}};
	searchRequest.fname = fname;
	searchRequest.flShowSiteNames = flShowSiteNames;
	searchRequest.altColor = altColor; = feedback;
	bundle { //get the site
		if defined ( { =}};
	bundle { //get the adrMemberInfo parameter
		searchRequest.adrMemberInfo = nil;
		try {
			searchRequest.adrMemberInfo = adrPageTable^.adrMemberInfo}};
	<<Add info to the page table.
	adrPageTable^.searchString = searchRequest.searchString;
	if indexName != nil {
		searchRequest.indexName = indexName}
	else {
		searchRequest.indexName = "Index.root"};
	local (s = (@searchRequest, adrFilterCallback));
	return (s)}
<<bundle //test code
	<<htmlSearch (@temp.p, "google")

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.