Processing table: prc.list_accounts

Jump to line:


1
 
If:
 

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

2
 
If:
 

 
 
Then:
declare global ErrMsg,ErrReturn(8,*),OutFile(256,*),SUpdate(1,YESNO)

3
 
If:
 

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

4
 
If:
 

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

5
 
If:
 

 
 
Then:
declare Cookie,CLUName,CLPass

6
 
If:
 

 
 
Then:
declare global CookiePresent(1,YESNO)

7
 
If:
 

 
 
Then:
ErrReturn="NOT DONE"

8
 
If:
 

 
 
Then:
OutFile=getenv("ONEGATE_OUTFILE")

9
 
If:
 

 
 
Then:
declare global OGParseResult(4,*)

10
 
If:
 

 
 
Then:
call "onegate/ogcgixml"

11
 
If:
OGParseResult eq "FAIL"

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

12
 
If:
ErrReturn eq "DONE"

 
 
Then:
goto myexit

13
 
If:
 

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

14
cgiloop
If:
not cgi

 
 
Then:
close cgi;goto postcgi

15
 
If:
cgi(1) ne @PW

 
 
Then:
close cgi;goto postcgi

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

 
 
Then:
SessID=cgi(3)

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

 
 
Then:
Cookie=cgi(3)

18
 
If:
 

 
 
Then:
delete cgi;getnext cgi;goto cgiloop

19
postcgi
If:
Cookie eq ""

 
 
Then:
goto nocook

20
 
If:
Cookie ne ""

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

21
 
If:
cp ne "0"

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

22
 
If:
 

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

23
 
If:
not ckchk

 
 
Then:
close ckchk;goto nocook

24
 
If:
 

 
 
Then:
Pass=ckchk(9);close ckchk

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

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

26
 
If:
 

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

27
 
If:
SessID eq "CHANGEDIP"

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

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

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

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

30
 
If:
SUpdate eq "Y"

 
 
Then:
call "update_session"

31
 
If:
 

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

32
 
If:
IHandle lt "0"

 
 
Then:
Style="";goto skiprd

33
 
If:
 

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

34
 
If:
 

 
 
Then:
ln=close(Ihandle)

35
skiprd
If:
 

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

36
 
If:
IHandle lt "0"

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

37
 
If:
 

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

38
 
If:
 

 
 
Then:
ln=close(IHandle)

39
skiprd2
If:
 

 
 
Then:
OHandle=open(OutFile,"wc0t")

40
 
If:
 

 
 
Then:
Msg="<html><head><title>User Listings</title>"

41
 
If:
 

 
 
Then:
gosub sendln

42
 
If:
 

 
 
Then:
Msg=Expire;gosub sendln

43
 
If:
Style ne ""

 
 
Then:
Msg="<link rel=\"stylesheet\" href=\""{Style{"\" type=\"text/css\">"

44
 
If:
 

 
 
Then:
gosub sendln

45
 
If:
 

 
 
Then:
Msg="</head><body>"

46
 
If:
 

 
 
Then:
gosub sendln

47
 
If:
 

 
 
Then:
Msg="<div class=\"whole\"><div class=\"header\"><div class=\"title\"><h2>User Listings</h2></div><br><hr></div>"

48
 
If:
 

 
 
Then:
gosub sendln

49
 
If:
 

 
 
Then:
Msg="<div class=\"main\">"

50
 
If:
 

 
 
Then:
gosub sendln

51
 
If:
 

 
 
Then:
un=""

52
 
If:
ErrMsg ne ""

 
 
Then:
Msg="<div class=\"error\">"{ErrMsg{"</div>";gosub sendln

53
 
If:
 

 
 
Then:
Msg="<div><br><b>Click on any username to see their downloadable files:</b><br><br></div>";gosub sendln

54
 
If:
 

 
 
Then:
lookup acct = flfss_accounts k=un i=A -ng

55
lstloop
If:
not acct

 
 
Then:
goto endlst

56
 
If:
acct(1) eq "MAIN ADMIN"

 
 
Then:
getnext acct;goto lstloop

57
 
If:
 

 
 
Then:
UName=acct(1);Email=acct(2);FName=acct(3);LName=acct(4);URL=acct(7)

58
 
If:
Email ne ""

 
 
Then:
Email="<a href=\"mailto:"{Email{"\">"{Email{"</a>"

59
 
If:
URL ne ""

 
 
Then:
ut=instr(URL,"://")

60
 
If:
URL ne "" and ut eq "0"

 
 
Then:
URL="http://"{URL

61
 
If:
URL ne ""

 
 
Then:
URL="<a target=\"_blank\" href=\""{URL{"\">"{URL{"</a>"

62
 
If:
 

 
 
Then:
Pre="<div><div class=\"ulabel\"><a href=\""{SelfURL{"?onegate_set=flfss_list_files&session="{SessID{"&targetuser="

63
 
If:
 

 
 
Then:
Pre=Pre{UName{"\">"{UName{"</a>:</div>"

64
 
If:
 

 
 
Then:
Msg="<div class=\"fval\">"{FName<LName<"-"<Email<"-"<URL{"</div><br><br></div>"

65
 
If:
 

 
 
Then:
gosub sendln

66
 
If:
 

 
 
Then:
getnext acct;goto lstloop

67
endlst
If:
 

 
 
Then:
close acct

68
 
If:
 

 
 
Then:
Msg="<div><a href=\""{SelfURL{"?onegate_set=flfss_menu&session="{SessID{"\">Return to Menu</a><br></div>";gosub sendln

69
 
If:
 

 
 
Then:
Msg="</div><div class=\"footer\"><hr><span class=\"genby\">Fairlight File Sharing System</span></div></div>"

70
 
If:
 

 
 
Then:
gosub sendln

71
 
If:
 

 
 
Then:
Msg="</body></html>"

72
 
If:
 

 
 
Then:
gosub sendln

73
 
If:
 

 
 
Then:
ln=close(OHandle)

74
 
If:
 

 
 
Then:
ErrReturn="DONE";end

75
sendln
If:
Pre ne ""

 
 
Then:
ln=writeline(OHandle,Pre,len(Pre))

76
 
If:
Msg ne ""

 
 
Then:
ln=writeline(OHandle,Msg,len(Msg))

77
 
If:
 

 
 
Then:
Msg="";Pre=""

78
 
If:
 

 
 
Then:
return

79
myexit
If:
 

 
 
Then:
exit


Displayed with Fairlight prc2html v01.02.08