Processing table: prc.list_files

Jump to line:


1
 
If:
 

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

2
 
If:
 

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

3
 
If:
 

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

4
 
If:
 

 
 
Then:
declare global UpReal,UpOrig,UpSize,UpDest,UpBase,RmBase,SUpdate(1,YESNO),AuthGet(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),UpDesc

8
 
If:
 

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

9
 
If:
 

 
 
Then:
declare global CNoPlus(1,YESNO)

10
 
If:
 

 
 
Then:
declare FControl(20,.0)

11
 
If:
 

 
 
Then:
ErrReturn="NOT DONE"

12
 
If:
 

 
 
Then:
OutFile=getenv("ONEGATE_OUTFILE")

13
 
If:
 

 
 
Then:
declare global OGParseResult(4,*)

14
 
If:
 

 
 
Then:
call "onegate/ogcgixml"

15
 
If:
OGParseResult eq "FAIL"

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

16
 
If:
ErrReturn eq "DONE"

 
 
Then:
goto myexit

17
 
If:
 

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

18
cgiloop
If:
not cgi

 
 
Then:
close cgi;goto postcgi

19
 
If:
cgi(1) ne @PW

 
 
Then:
close cgi;goto postcgi

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

 
 
Then:
SessID=cgi(3)

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

 
 
Then:
Cookie=cgi(3)

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

 
 
Then:
TUser=cgi(3)

23
 
If:
 

 
 
Then:
delete cgi;getnext cgi;goto cgiloop

24
postcgi
If:
Cookie eq ""

 
 
Then:
goto nocook

25
 
If:
Cookie ne ""

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

26
 
If:
cp ne "0"

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

27
 
If:
 

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

28
 
If:
not ckchk

 
 
Then:
close ckchk;goto nocook

29
 
If:
 

 
 
Then:
Pass=ckchk(9);close ckchk

30
nocook
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:
 

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

32
 
If:
SessID eq "CHANGEDIP"

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

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

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

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

35
 
If:
SUpdate eq "Y"

 
 
Then:
call "update_session"

36
 
If:
Cookie eq ""

 
 
Then:
UName=SessUName

37
 
If:
Cookie ne ""

 
 
Then:
UName=CLUname

38
 
If:
 

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

39
 
If:
TUser eq ""

 
 
Then:
ErrMsg="No user specified.";call "logindone";exit

40
 
If:
 

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

41
 
If:
not valt

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

42
 
If:
 

 
 
Then:
close valt

43
 
If:
 

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

44
 
If:
IHandle lt "0"

 
 
Then:
Style="";goto skiprd

45
 
If:
 

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

46
 
If:
 

 
 
Then:
ln=close(Ihandle)

47
skiprd
If:
 

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

48
 
If:
IHandle lt "0"

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

49
 
If:
 

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

50
 
If:
 

 
 
Then:
ln=close(IHandle)

51
skiprd2
If:
 

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

52
 
If:
 

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

53
 
If:
 

 
 
Then:
gosub sendln

54
 
If:
 

 
 
Then:
Msg=Expire;gosub sendln

55
 
If:
Style ne ""

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

56
 
If:
 

 
 
Then:
gosub sendln

57
 
If:
 

 
 
Then:
Pre="<script language=javascript type='text/javascript'>"

58
 
If:
 

 
 
Then:
Msg="function hidediv(pass) {";gosub sendln

59
 
If:
 

 
 
Then:
Pre="var divs = document.getElementsByTagName('div');"

60
 
If:
 

 
 
Then:
Msg="for(i=0;i<divs.length;i++){";gosub sendln

61
 
If:
 

 
 
Then:
Pre="if(divs[i].id.match(pass)){//if they are 'see' divs"

62
 
If:
 

 
 
Then:
Msg="if (document.getElementById) // DOM3 = IE5, NS6";gosub sendln

63
 
If:
 

 
 
Then:
Pre="divs[i].style.visibility=\"hidden\";// show/hide"

64
 
If:
 

 
 
Then:
Msg="else";gosub sendln

65
 
If:
 

 
 
Then:
Msg="if (document.layers) // Netscape 4";gosub sendln

66
 
If:
 

 
 
Then:
Pre="document.layers[divs[i]].display = 'hidden';"

67
 
If:
 

 
 
Then:
Msg="else // IE 4";gosub sendln

68
 
If:
 

 
 
Then:
Pre="document.all.hideShow.divs[i].visibility = 'hidden';"

69
 
If:
 

 
 
Then:
Msg="} } }";gosub sendln

70
 
If:
 

 
 
Then:
Pre="function showdiv(pass) {"

71
 
If:
 

 
 
Then:
Msg="var divs = document.getElementsByTagName('div');";gosub sendln

72
 
If:
 

 
 
Then:
Pre="for(i=0;i<divs.length;i++){"

73
 
If:
 

 
 
Then:
Msg="if(divs[i].id.match(pass)){";gosub sendln

74
 
If:
 

 
 
Then:
Pre="if (document.getElementById)"

75
 
If:
 

 
 
Then:
Msg="divs[i].style.visibility=\"visible\";";gosub sendln

76
 
If:
 

 
 
Then:
Pre="else"

77
 
If:
 

 
 
Then:
Msg="if (document.layers) // Netscape 4";gosub sendln

78
 
If:
 

 
 
Then:
Pre="document.layers[divs[i]].display = 'visible';"

79
 
If:
 

 
 
Then:
Msg="else // IE 4";gosub sendln

80
 
If:
 

 
 
Then:
Pre="document.all.hideShow.divs[i].visibility = 'visible';"

81
 
If:
 

 
 
Then:
Msg="} } } </script>";gosub sendln

82
 
If:
 

 
 
Then:
dc(8,.0)="0"

83
 
If:
 

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

84
 
If:
 

 
 
Then:
gosub sendln

85
 
If:
 

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

86
 
If:
 

 
 
Then:
gosub sendln

87
 
If:
 

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

88
 
If:
 

 
 
Then:
gosub sendln

89
 
If:
 

 
 
Then:
un=""

90
 
If:
ErrMsg ne ""

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

91
 
If:
 

 
 
Then:
Msg="<div><br>Files for user '"{TUser{"':<br><br></div>";gosub sendln

92
 
If:
 

 
 
Then:
Msg="<div><b>* = Password protected file - Left-click to enter password for download.</b><br><br></div>";gosub sendln

93
 
If:
 

 
 
Then:
Msg="<div><div class=\"fname\"><b>Filename</b></div><div class=\"fsize\"><b>Size (bytes)</b></div>"

94
 
If:
 

 
 
Then:
Msg=Msg{"<div class=\"fdate\"><b>Date</b></div><div class=\"ftime\"><b>Time</b></div><br><br></div>";gosub sendln

95
 
If:
 

 
 
Then:
lookup filelst = flfss_uploads k=(TUser) i=A -nx

96
lstloop
If:
not filelst

 
 
Then:
goto endlst

97
 
If:
filelst(1) ne TUser

 
 
Then:
goto endlst

98
 
If:
 

 
 
Then:
UpOrig=filelst(2);UpSize=filelst(4);FMDate=filelst(6);FMTime=filelst(7);UpDesc=filelst(11);Restricted=filelst(8)

99
 
If:
filelst(10) eq "Y"

 
 
Then:
getnext filelst;goto lstloop

100
 
If:
UpDesc eq ""

 
 
Then:
UpDesc="*** NO DESCRIPTION AVAILABLE ***"

101
 
If:
 

 
 
Then:
az=""

102
 
If:
Restricted eq "Y"

 
 
Then:
az="<b>* </b>"

103
 
If:
 

 
 
Then:
Pre="<div><div class=\"fname\">"&az&"<a href=\""{SelfURL{"/"{UpOrig{"?onegate_set=flfss_download_file&session="{SessID

104
 
If:
 

 
 
Then:
Pre=Pre{"&fileid="{filelst(9){"\" OnMouseOver=\"javascript:showdiv('dsc"{dc{"x')\""

105
 
If:
 

 
 
Then:
Pre=Pre<"OnMouseOut=\"javascript:hidediv('dsc"{dc{"x')\">"

106
 
If:
 

 
 
Then:
Pre=Pre{UpOrig{"</a></div>"

107
 
If:
 

 
 
Then:
Msg="<div class=\"fsize\">"{UpSize{"</div>"

108
 
If:
 

 
 
Then:
gosub sendln

109
 
If:
 

 
 
Then:
Pre="<div class=\"fdate\">"{FMDate{"</div>"

110
 
If:
 

 
 
Then:
Msg="<div class=\"ftime\">"{FMTime{"</div>"

111
 
If:
 

 
 
Then:
gosub sendln

112
 
If:
 

 
 
Then:
Pre="<div id=\"dsc"{dc{"x\" style=\"{visibility: hidden; position: absolute;"

113
 
If:
 

 
 
Then:
Msg="left: 201px; width: 555px; border-style: ridge; border-width: 1px;";gosub sendln

114
 
If:
 

 
 
Then:
Pre="z-index: 1; background-color: #0000BB; color: #FFFFEE; padding: 5px;"

115
 
If:
 

 
 
Then:
Msg="font-weight: bold; text-align: center;}\">"{UpDesc{"</div>";gosub sendln

116
 
If:
 

 
 
Then:
Msg="<br></div>";gosub sendln

117
 
If:
 

 
 
Then:
dc=dc+"1"

118
 
If:
 

 
 
Then:
getnext filelst;goto lstloop

119
endlst
If:
 

 
 
Then:
close filelst

120
 
If:
 

 
 
Then:
Pre="<div>"

121
 
If:
 

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

122
 
If:
 

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

123
 
If:
 

 
 
Then:
gosub sendln

124
 
If:
 

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

125
 
If:
 

 
 
Then:
gosub sendln

126
 
If:
 

 
 
Then:
ln=close(OHandle)

127
 
If:
 

 
 
Then:
ErrReturn="DONE";end

128
sendln
If:
Pre ne ""

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

129
 
If:
Msg ne ""

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

130
 
If:
 

 
 
Then:
Msg="";Pre=""

131
 
If:
 

 
 
Then:
return

132
myexit
If:
 

 
 
Then:
exit


Displayed with Fairlight prc2html v01.02.08