Processing table: prc.search_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,Search(40,ALLUP),SType

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:
cgi(2) eq "searchval" and cgi(8) eq "N"

 
 
Then:
Search=cgi(3)

19
 
If:
cgi(2) eq "search" and cgi(8) eq "N"

 
 
Then:
SType=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:
SType eq ""

 
 
Then:
call "searchform";exit

34
 
If:
 

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

35
 
If:
IHandle lt "0"

 
 
Then:
Style="";goto skiprd

36
 
If:
 

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

37
 
If:
 

 
 
Then:
ln=close(Ihandle)

38
skiprd
If:
 

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

39
 
If:
IHandle lt "0"

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

40
 
If:
 

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

41
 
If:
 

 
 
Then:
ln=close(IHandle)

42
skiprd2
If:
 

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

43
 
If:
 

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

44
 
If:
 

 
 
Then:
gosub sendln

45
 
If:
 

 
 
Then:
Msg=Expire;gosub sendln

46
 
If:
Style ne ""

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

47
 
If:
 

 
 
Then:
gosub sendln

48
 
If:
 

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

49
 
If:
 

 
 
Then:
gosub sendln

50
 
If:
 

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

51
 
If:
 

 
 
Then:
gosub sendln

52
 
If:
 

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

53
 
If:
 

 
 
Then:
gosub sendln

54
 
If:
 

 
 
Then:
un="";ff="0"

55
 
If:
ErrMsg ne ""

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

56
 
If:
 

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

57
 
If:
SType eq "first"

 
 
Then:
Msg="<div>Users with first names containing '<b>"{Search{"</b>':<br><br></div>";gosub sendln

58
 
If:
SType eq "last"

 
 
Then:
Msg="<div>Users with last names containing '<b>"{Search{"</b>':<br><br></div>";gosub sendln

59
 
If:
SType eq "user"

 
 
Then:
Msg="<div>Users with usernames containing '<b>"{Search{"</b>':<br><br></div>";gosub sendln

60
 
If:
SType eq "file"

 
 
Then:
Msg="<div>Users that own files whose filenames contain '<b>"{Search{"</b>':<br><br></div>";gosub sendln

61
 
If:
SType eq "user" or SType eq "file"

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

62
 
If:
SType eq "first"

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

63
 
If:
SType eq "last"

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

64
lstloop
If:
not acct

 
 
Then:
goto endlst

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

 
 
Then:
getnext acct;goto lstloop

66
 
If:
SType eq "first" and acct(3) co ""{Search{""

 
 
Then:
goto proceed

67
 
If:
SType eq "last" and acct(4) co ""{Search{""

 
 
Then:
goto proceed

68
 
If:
SType eq "user" and acct(1) co ""{Search{""

 
 
Then:
goto proceed

69
 
If:
SType ne "file"

 
 
Then:
getnext acct;goto lstloop

70
 
If:
SType eq "file"

 
 
Then:
lookup flsrch = flfss_uploads k=un i=C -ng

71
filelp
If:
SType eq "file" and not flsrch

 
 
Then:
close flsrch;getnext acct;goto lstloop

72
 
If:
SType eq "file" and flsrch(1) ne acct(1)

 
 
Then:
getnext flsrch;goto filelp

73
 
If:
SType eq "file" and flsrch(2) co ""{Search{""

 
 
Then:
close flsrch;goto proceed

74
 
If:
SType eq "file"

 
 
Then:
getnext flsrch;goto filelp

75
proceed
If:
 

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

76
 
If:
Email ne ""

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

77
 
If:
URL ne ""

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

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

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

79
 
If:
URL ne ""

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

80
 
If:
 

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

81
 
If:
 

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

82
 
If:
 

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

83
 
If:
 

 
 
Then:
gosub sendln

84
 
If:
 

 
 
Then:
getnext acct;goto lstloop

85
endlst
If:
 

 
 
Then:
close acct

86
 
If:
ff eq "0"

 
 
Then:
Pre="<div><center><b>No Matches.</b></center><br><br></div>"

87
 
If:
 

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

88
 
If:
 

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

89
 
If:
 

 
 
Then:
gosub sendln

90
 
If:
 

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

91
 
If:
 

 
 
Then:
gosub sendln

92
 
If:
 

 
 
Then:
ln=close(OHandle)

93
 
If:
 

 
 
Then:
ErrReturn="DONE";end

94
sendln
If:
Pre ne ""

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

95
 
If:
Msg ne ""

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

96
 
If:
 

 
 
Then:
Msg="";Pre=""

97
 
If:
 

 
 
Then:
return

98
myexit
If:
 

 
 
Then:
exit


Displayed with Fairlight prc2html v01.02.08