Processing table: prc.manage_account

Jump to line:


1
 
If:
 

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

2
 
If:
 

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

3
 
If:
 

 
 
Then:
declare global UName,Pass(20,*),FName,LName,Email,URL,SessID,Expire,SIDString,SessUName,FileRoot,TUser(12,ALLUP)

4
 
If:
 

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

5
 
If:
 

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

6
 
If:
 

 
 
Then:
declare global PEncode(40,*),UpPass,UpDesc,VPass(20,*),NPass(20,*)

7
 
If:
 

 
 
Then:
declare Cookie,CLUName,CLPass

8
 
If:
 

 
 
Then:
declare global CookiePresent(1,YESNO),RemCookie(1,YESNO),NCookie

9
 
If:
 

 
 
Then:
declare FControl(20,.0),ISDeleted,ISRestricted,TimesDownloaded

10
 
If:
 

 
 
Then:
declare global CString,CSan(1,YESNO),CNoAmp(1,YESNO),CNoQuest(1,YESNO),CNoSlash(1,YESNO),CNoSpUn(1,YESNO)

11
 
If:
 

 
 
Then:
declare global CNoPlus(1,YESNO)

12
 
If:
 

 
 
Then:
ErrReturn="NOT DONE"

13
 
If:
 

 
 
Then:
OutFile=getenv("ONEGATE_OUTFILE")

14
 
If:
 

 
 
Then:
declare global OGParseResult(4,*)

15
 
If:
 

 
 
Then:
call "onegate/ogcgixml"

16
 
If:
OGParseResult eq "FAIL"

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

17
 
If:
ErrReturn eq "DONE"

 
 
Then:
goto myexit

18
 
If:
 

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

19
cgiloop
If:
not cgi

 
 
Then:
close cgi;goto postcgi

20
 
If:
cgi(1) ne @PW

 
 
Then:
close cgi;goto postcgi

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

 
 
Then:
SessID=cgi(3)

22
 
If:
cgi(2) eq "email" and cgi(8) eq "N"

 
 
Then:
Email=cgi(3)

23
 
If:
cgi(2) eq "oper" and cgi(8) eq "N"

 
 
Then:
Oper=cgi(3)

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

 
 
Then:
Cookie=cgi(3)

25
 
If:
cgi(2) eq "url" and cgi(8) eq "N"

 
 
Then:
URL=cgi(3)

26
 
If:
cgi(2) eq "pass" and cgi(8) eq "N"

 
 
Then:
NPass=cgi(3)

27
 
If:
cgi(2) eq "vpass" and cgi(8) eq "N"

 
 
Then:
VPass=cgi(3)

28
 
If:
 

 
 
Then:
delete cgi;getnext cgi;goto cgiloop

29
postcgi
If:
Cookie eq ""

 
 
Then:
goto nocook

30
 
If:
Cookie ne ""

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

31
 
If:
cp ne "0"

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

32
 
If:
 

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

33
 
If:
not ckchk

 
 
Then:
close ckchk;goto nocook

34
 
If:
 

 
 
Then:
Pass=ckchk(9);close ckchk

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

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

36
 
If:
 

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

37
 
If:
SessID eq "CHANGEDIP"

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

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

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

39
 
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"

40
 
If:
SUpdate eq "Y"

 
 
Then:
call "update_session"

41
 
If:
Cookie eq ""

 
 
Then:
UName=SessUName

42
 
If:
Cookie ne ""

 
 
Then:
UName=CLUname

43
 
If:
 

 
 
Then:
lookup valt = flfss_accounts k=(UName) i=A -nx

44
 
If:
not valt

 
 
Then:
close valt;ErrMsg="User '"{UName{"' does not exist.";call "logindone";exit

45
 
If:
 

 
 
Then:
CNoSpUn="Y";CSan="Y";CNoAmp="N";CNoQuest="N";CNoSlash="N";CNoPlus="N";CString=Oper;call "clean_strings";Oper=CString

46
 
If:
 

 
 
Then:
CNoSpUn="Y";CSan="Y";CNoAmp="N";CNoQuest="N";CNoSlash="N";CNoPlus="N";CString=Email;call "clean_strings";Email=CString

47
 
If:
 

 
 
Then:
CNoSpUn="Y";CSan="Y";CNoAmp="N";CNoQuest="N";CNoSlash="N";CNoPlus="N";CString=VPass;call "clean_strings";VPass=CString

48
 
If:
 

 
 
Then:
CNoSpUn="Y";CSan="Y";CNoAmp="N";CNoQuest="N";CNoSlash="N";CNoPlus="N";CString=NPass;call "clean_strings";NPass=CString

49
 
If:
 

 
 
Then:
CNoSpUn="Y";CSan="Y";CNoAmp="Y";CNoQuest="Y";CNoSlash="Y";CNoPlus="Y";CString=URL;call "clean_strings";URL=CString

50
 
If:
Oper ne "cu" and Oper ne "ce" and Oper ne "np" and Oper ne "da" and Oper ne "sc"

 
 
Then:
ErrMsg="No valid operation specified.";close valt;call "logindone";exit

51
 
If:
Oper eq "sc"

 
 
Then:
close valt;call "cancelform";exit

52
 
If:
Oper eq "np" and NPass ne VPass

 
 
Then:
ErrMsg="Passwords did not match. Password not changed.";close valt;call "logindone";exit

53
 
If:
Oper eq "da" and NPass ne VPass

 
 
Then:
ErrMsg="Passwords did not match. Account not cancelled.";close valt;call "logindone";exit

54
 
If:
 

 
 
Then:
IHandle=open("flfss.styleurl","r")

55
 
If:
IHandle lt "0"

 
 
Then:
Style="";goto skiprd

56
 
If:
 

 
 
Then:
ln=readline(IHandle,Style,"999")

57
 
If:
 

 
 
Then:
ln=close(Ihandle)

58
skiprd
If:
 

 
 
Then:
IHandle=open("flfss.baseurl","r")

59
 
If:
IHandle lt "0"

 
 
Then:
SelfURL="/~fairlite/cgi-bin/cgiwrap/filepro/onegate";goto skiprd2

60
 
If:
 

 
 
Then:
ln=readline(IHandle,SelfURL,"999")

61
 
If:
 

 
 
Then:
ln=close(IHandle)

62
skiprd2
If:
valt(1) ne UName

 
 
Then:
close valt;ErrMsg="You are not the authorised to change this account profile. Access Denied.";call "logindone";exit

63
 
If:
Oper eq "cu"

 
 
Then:
valt(7)=URL;write valt;close valt;ErrMsg="User URL Changed.";call "logindone";exit

64
 
If:
Oper eq "ce"

 
 
Then:
valt(2)=Email;write valt;close valt;ErrMsg="User Email Address Changed.";call "logindone";exit

65
 
If:
Oper eq "np"

 
 
Then:
Pass=NPass

66
 
If:
Oper eq "np"

 
 
Then:
call "scramble_pass";valt(9)=PEncode;write valt;close valt;ErrMsg="Account Password Changed";call "logindone";exit

67
 
If:
Oper eq "da"

 
 
Then:
Pass=NPass;call "scramble_pass"

68
 
If:
Oper eq "da" and PEncode ne valt(9)

 
 
Then:
ErrMsg="Password Incorrect. Account not cancelled.";close valt;call "logindone";exit

69
 
If:
Oper eq "da"

 
 
Then:
lookup wipeup = flfss_uploads k=(UName) i=A -npx

70
wipelp
If:
Oper eq "da" and not wipeup

 
 
Then:
close wipeup;goto endwipe

71
 
If:
Oper eq "da" and wipeup(1) ne UName

 
 
Then:
close wipeup;goto endwipe

72
 
If:
Oper eq "da" and wipeup(1) eq UName

 
 
Then:
UpReal=wipeup(3);ln=remove(UpReal);delete wipeup

73
 
If:
Oper eq "da"

 
 
Then:
getnext wipeup;goto wipelp

74
endwipe
If:
Oper eq "da"

 
 
Then:
close wipeup

75
 
If:
Oper eq "da"

 
 
Then:
lookup wipesess = flfss_sessionids k=(SessID) i=B -npx

76
 
If:
Oper eq "da" and not wipesess

 
 
Then:
close wipesess

77
 
If:
Oper eq "da" and wipesess

 
 
Then:
delete wipesess;close wipesess

78
 
If:
Oper eq "da"

 
 
Then:
RemCookie="Y";call "make_cookie"

79
 
If:
Oper eq "da" and valt(1) eq UName

 
 
Then:
delete valt;close valt;ErrMsg="Account Cancelled. Goodbye.";call "canceldone"

80
 
If:
 

 
 
Then:
close valt;exit

81
myexit
If:
 

 
 
Then:
exit


Displayed with Fairlight prc2html v01.02.08