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

---

system.verbs.builtins.mainResponder.members.logonForm

on logonForm (bgcolor = ivory) { //a macro, call it from your logon page
	<<Changes
		<<4/14/00; 9:09:39 PM by JES
			<<localized prompts for mail address and password
		<<Wed, 26 May 1999 01:40:21 GMT by AR
			<<Eliminated some dead code.
	local (pta = html.getPageTableAddress ());
	<<local (formaction = pta^.path) //send the message back to the same place
	
	local (formaction = pta^.responderattributes.urls^.memberHome); //send the user to the home page
	formaction = formaction + "$" + nameof (this^); //add the name of the macro that generated the form to the request
	local (formname = string (this));
	local (titlebgcolor = black, titletextcolor = white);
	local (bodybgcolor = bgcolor, bodytextcolor = black);
	local (defaultmailaddress = "");
	try {defaultmailaddress = pta^.pathargs};
	
	local (htmltext = "", indentlevel = 0);
	on add (s) {
		htmltext = htmltext + string.filledString ("\t", indentlevel) + s + "\r"};
	
	add ("<table border=\"0\"><tr><td>"); indentlevel++;
	add ("<form name=\"" + formname + "\" action=\"" + formaction + "\" method=\"POST\">"); indentlevel++;
	add ("<table cellpadding=\"4\" cellspacing=\"0\" border=\"0\">"); indentlevel++;
	
	add ("<tr bgcolor=\"#" + bodybgcolor + "\">"); indentlevel++;
	add ("<td><font color=\"#" + bodytextcolor + "\">" + mainResponder.getString ("members.mailAddressPrompt") + "</font></td>"); // 4/14/00 JES: localized
	add ("<td><input name=\"mailAddress\" value=\"" + defaultmailaddress + "\" size=\"30\" maxlength=\"60\"></td>");
	add ("</tr>"); indentlevel--;
	
	add ("<tr bgcolor=\"" + bodybgcolor + "\">"); indentlevel++;
	add ("<td><font color=\"#" + bodytextcolor + "\">" + mainResponder.getString ("members.passwordPrompt") + "</font></td>"); // 4/14/00 JES: localized
	add ("<td><input type=\"password\" name=\"password\" size=\"30\" maxlength=\"60\"></td>");
	add ("</tr>"); indentlevel--;
	
	add ("<tr bgcolor=\"#" + bodybgcolor + "\">"); indentlevel++;
	add ("<td> </td>");
	add ("<td align=\"right\"><input type=\"submit\" value=\"" + mainResponder.getString ("members.enterButton") + "\"></td>"); // 4/14/00 JES: localized
	add ("</tr>"); indentlevel--;
	
	add ("</table>"); indentlevel--;
	add ("</form>"); indentlevel--;
	add ("</td></tr></table>"); indentlevel--;
	
	return (htmltext)}

---

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.