Processing table: prc.menu

Jump to line:


1
 
If:
 

 
 
Then:
2=@td;3=@tm;write

2
 
If:
 

 
 
Then:
declare global ErrMsg,ErrReturn(8,*),OutFile(256,*),FString

3
 
If:
 

 
 
Then:
declare global UName,Pass,FName,LName,Email,URL,SessID,Expire,SIDString,PEncode,SessUName,FileRoot

4
 
If:
 

 
 
Then:
declare global UpReal,UpOrig,UpSize,UpDest,UpBase,RmBase,SUpdate(1,YESNO)

5
 
If:
 

 
 
Then:
declare OHandle(4,.0),Msg,IHandle(4,.0),SelfURL,Style,Pre,FPos(20,.0),FLine

6
 
If:
 

 
 
Then:
declare Cookie,CLUName,CLPass

7
 
If:
 

 
 
Then:
declare global CookiePresent(1,YESNO)

8
 
If:
 

 
 
Then:
declare FControl(20,.0)

9
 
If:
 

 
 
Then:
ErrReturn="NOT DONE"

10
 
If:
 

 
 
Then:
OutFile=getenv("ONEGATE_OUTFILE")

11
 
If:
 

 
 
Then:
declare global OGParseResult(4,*)

12
 
If:
 

 
 
Then:
call "onegate/ogcgixml"

13
 
If:
OGParseResult eq "FAIL"

 
 
Then:
ErrMsg="OGCGIXML Parse Failed.";call "generr"

14
 
If:
ErrReturn eq "DONE"

 
 
Then:
goto myexit

15
 
If:
 

 
 
Then:
lookup cgi = onegate k=@PW i=A -npx

16
cgiloop
If:
not cgi

 
 
Then:
close cgi;goto postcgi

17
 
If:
cgi(1) ne @PW

 
 
Then:
close cgi;goto postcgi

18
 
If:
cgi(2) eq "session" and cgi(8) eq "N"

 
 
Then:
SessID=cgi(3)

19
 
If:
cgi(2) eq "flfsslog" and cgi(8) eq "Y"

 
 
Then:
Cookie=cgi(3)

20
 
If:
 

 
 
Then:
delete cgi;getnext cgi;goto cgiloop

21
postcgi
If:
Cookie eq ""

 
 
Then:
goto nocook

22
 
If:
Cookie ne ""

 
 
Then:
cp=instr(Cookie,"|");CookiePresent="Y"

23
 
If:
cp ne "0"

 
 
Then:
CLUName=mid(Cookie,"1",cp-"1");CLPass=mid(Cookie,cp+"1",len(Cookie)-cp);PEncode=CLPass

24
 
If:
 

 
 
Then:
lookup ckchk = flfss_accounts k=(CLUName) i=A -nx

25
 
If:
not ckchk

 
 
Then:
close ckchk;goto nocook

26
 
If:
 

 
 
Then:
Pass=ckchk(9);close ckchk

27
nocook
If:
(SessID eq "" or SessID eq "NOSESSION") and Cookie eq ""

 
 
Then:
ErrMsg="Your session has expired. Please log in again.";call "loginform";exit

28
 
If:
 

 
 
Then:
SUpdate="Y";call "verify_session"

29
 
If:
SessID eq "CHANGEDIP"

 
 
Then:
ErrMsg="Your session ID does not match your IP Address.";call "loginform";exit

30
 
If:
(SessID eq "" or SessID eq "NOSESSION") and Cookie eq ""

 
 
Then:
ErrMsg="Your session has expired. Please log in again.";call "loginform";exit

31
 
If:
(SessID eq "" or SessID eq "NOSESSION") and (Cookie ne "" and PEncode eq Pass)

 
 
Then:
UName=CLUname;SIDString=@PW;call "make_sessionid";SessID=SIDString;UName=CLUName;call "insert_session";SUpdate="N"

32
 
If:
SUpdate eq "Y"

 
 
Then:
call "update_session"

33
 
If:
Cookie eq ""

 
 
Then:
UName=SessUName

34
 
If:
Cookie ne ""

 
 
Then:
UName=CLUname

35
 
If:
 

 
 
Then:
call "logindone";exit

36
myexit
If:
 

 
 
Then:
exit


Displayed with Fairlight prc2html v01.02.08