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


<<Script: system.verbs.builtins.webserver.responders.echo.methods.GET; Version 1; Date: Wed, 13 May 1998 06:21:43 GMT; ID: RAB
on get (adrParamTable) {
	<<March 03, 1998 at 9:36:20 PM by WMF
		<<This is a debugging responder that echos all the parameters that are available to a responder 
		<<It is similar to the samples.tellParams CGI
	local (response, i);
	on add (s) {
		response = response + s + cr};
	on addVar (name, val) {
		response = response + "<B>" + name + ":</B> " + string(val) + "<BR>\r"};
	response = "";
	add ("<HTML><HEAD><TITLE>Parameters Received</TITLE></HEAD><BODY>");
	bundle { // show general parameters (those at the top level of adrParamTable)
		add ("<H3>General Parameters:</H3>");
		for i = 1 to sizeOf (adrParamTable^) {
			if (typeOf (adrParamTable^[i]) != tableType) {
				addVar (nameOf (adrParamTable^[i]), adrParamTable^[i])}}};
	bundle { // show the request headers (things at adrParamTable^.requestHeaders)
		add ("<H3>Request Headers:</H3>");
		for i = 1 to sizeOf (adrParamTable^.requestHeaders) {
			addVar (nameOf (adrParamTable^.requestHeaders[i]), adrParamTable^.requestHeaders[i])}};
	add ("</BODY></HTML>");
	adrParamTable^.responseHeaders.["Content-Type"] = "text/html"; // always set the MIME type
	adrParamTable^.responseBody = response;
	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.