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


on authenticate (username, remotekey) {
		<<8/6/08; 8:06:36 AM by DW
			<<Validates the username/remotekey combination. Cribbed from builtins.identica.
	local (url = "", adrcache);
	bundle { //check the cache
		adrcache = @system.temp.friendFeedAuthentications;
		if not defined (adrcache^) {
			new (tabletype, adrcache)};
		adrcache = @adrcache^.[username];
		if defined (adrcache^) {
			if adrcache^ == remotekey {
				return (true)}}};
	try {
		local (urllist = string.urlsplit (url));
		local (s = tcp.httpClient (server:urllist [2], path:urllist [3], ctFollowRedirects:2, flMessages:false, username:username, password:remotekey));
		if tcp.httpGetStatusCode (s) == 200 { //valid login
			adrcache^ = remotekey;
			return (true)}};
	return (false)}
<<bundle //test code
	<<dialog.alert (authenticate ("georgematesky", "fuckyou!"))
	<<dialog.alert (authenticate (user.friendFeed.prefs.username, user.friendFeed.prefs.remotekey))

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.