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.