Quantcast
Channel: West Wind Message Board Messages
Viewing all articles
Browse latest Browse all 10393

Re: Server Status Page

$
0
0
Re: Server Status Page
FoxInCloud
Re: Server Status Page
Jul. 22, 2013
02:47 am
3U605Z1Z4Show this entire thread in new window
Gratar Image based on email address
From:FoxInCloud support
To:Michele
awProcess.wUserConnected() and aw.vcx!awFrm.wUserConnected() gives you an array of IDs of users currently connected.

You can retrieve user's name by a code such as:

* ------------------------------------------------------------PROCEDURE wUserConnected && {en} IDs of users currently connected to the application {fr} ID des utilisateurs couramment connectés à l'applicationLPARAMETERS tawUser && @ [User ID for application, FirstOn, Current Session, IP] ordered by FirstOnLOCAL loExact AS abSet OF abDev.prg, loRecno AS abRecno OF abData.prg; , lt, lcIP, liResult, lnResult lnResult = DoDefault(@m.tawUser)IF m.lnResult > 0 loRecno = abRecno('Users') loExact = abSet('EXACT', 'ON') lt = Datetime()FOR liResult = m.lnResult TO 1 STEP -1* If user belongs to the same company as current user,IFLookup(Users.Company, m.tawUser[m.liResult, 1], Users.userID, 'userID') = m.this.cCompany* Replace user ID by user's full name tawUser[m.liResult, 1] = cWords(' '; , Trim(users.FirstName); , Trim(users.LastName); , Iif(tawUser[m.liResult, 3], '(me)', ''); )ELSE* Remove user from array lnResult = m.lnResult - 1Adel(tawUser, m.liResult)ENDIFENDFORIF m.lnResult = 0 && should never happen - at least current user should be found as connected aClear(@m.tawUser)ELSEDIMENSION tawUser[m.lnResult, Alen(tawUser, 2)]ENDIFENDIFRETURN m.lnResult



Is there some documentation to help me to understand the info i can read in the Server Status Page of my app ?

you mean FoxInCloud-status.xxx?

Yes

Where can i read info about the user in my app?

Which information are you looking at?
Which user accessed your application when?
Others?
That's something we need to further define and implement.

I mean open sessions...in a particular moment..



Thierry Nivelet (FoxInCloud)
Never explain, never complain (Queen Elizabeth II) - ban but and not


Viewing all articles
Browse latest Browse all 10393

Trending Articles