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

---

system.verbs.builtins.io.client.validateLogin

on validateLogin () {
	<<Changes
		<<8/8/10; 5:22:05 AM by DW
			<<Created. 
	local (adrdata = io.init (), pta = html.getpagetableaddress ());
	if pta^.method == "POST" {
		local (s);
		try {
			local (username = adrdata^.client.prefs.username);
			local (password = string (adrdata^.client.prefs.password));
			local (server = adrdata^.client.prefs.server);
			[server].io.authenticate (username, password);
			s = "<font color=\"green\">The Instant Outline server likes your username and password! :-)</font>"}
		else {
			scratchpad.tryerror = tryerror;
			s = "<font color=\"red\">The Instant Outline server is unhappy with your username and password. :-(</font>"};
		return (s)}
	else {
		return ("")}};
bundle { //test code
	local (pt);
	new (tabletype, @pt);
	pt.method = "POST";
	html.setpagetableaddress (@pt);
	dialog.alert (validateLogin ())}

---

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.