Thursday, April 07, 2011 at 1:07 AM.

---

beautWebsite.userLogin

on userLogin () {
	<<Changes
		<<4/6/11; 4:12:25 PM by DW
			<<This page is redirected to by the signIn page, so we can generate stats and a log entry.
	local (pta = html.getpagetableaddress (), adrradiodata = radio2suite.init (), startticks = clock.ticks ());
	local (adruser = @adrradiodata^.users.[pta^.username], now = clock.now ());
	
	scratchpad.userloginparams = pta^;
	
	adrradiodata^.stats.ctLogins++;
	adrradiodata^.stats.whenLastLogin = now;
	adrradiodata^.stats.whoLastLogin = pta^.username;
	
	radio2Suite.initUser (adruser);
	adruser^.stats.ctLogins++;
	adruser^.stats.whenLastLogin = now;
	
	log2.add (beautInfo.name, "Login", "User \"" +  pta^.username + "\" logged in.", startticks);
	webserver.redirect (pta, "index")};
bundle { //test code
	html.setpagetableaddress (@scratchpad.userloginparams);
	userLogin ()}

---

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.