Processing table: prc.manage_index

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,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),UpDesc

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),ISDeleted,ISRestricted,TimesDownloaded

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:
lookup valt = flfss_accounts k=(UName) i=A -nx

36
 
If:
not valt

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

37
 
If:
 

 
 
Then:
close valt

38
 
If:
 

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

39
 
If:
IHandle lt "0"

 
 
Then:
Style="";goto skiprd

40
 
If:
 

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

41
 
If:
 

 
 
Then:
ln=close(Ihandle)

42
skiprd
If:
 

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

43
 
If:
IHandle lt "0"

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

44
 
If:
 

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

45
 
If:
 

 
 
Then:
ln=close(IHandle)

46
skiprd2
If:
 

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

47
 
If:
 

 
 
Then:
Msg="<html><head><title>Manage Account And Files</title>"

48
 
If:
 

 
 
Then:
gosub sendln

49
 
If:
 

 
 
Then:
Msg=Expire;gosub sendln

50
 
If:
Style ne ""

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

51
 
If:
 

 
 
Then:
gosub sendln

52
 
If:
 

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

53
 
If:
 

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

54
 
If:
 

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

55
 
If:
 

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

56
 
If:
 

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

57
 
If:
 

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

58
 
If:
 

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

59
 
If:
 

 
 
Then:
Msg="else";gosub sendln

60
 
If:
 

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

61
 
If:
 

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

62
 
If:
 

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

63
 
If:
 

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

64
 
If:
 

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

65
 
If:
 

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

66
 
If:
 

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

67
 
If:
 

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

68
 
If:
 

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

69
 
If:
 

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

70
 
If:
 

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

71
 
If:
 

 
 
Then:
Pre="else"

72
 
If:
 

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

73
 
If:
 

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

74
 
If:
 

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

75
 
If:
 

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

76
 
If:
 

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

77
 
If:
 

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

78
 
If:
 

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

79
 
If:
 

 
 
Then:
gosub sendln

80
 
If:
 

 
 
Then:
Msg="<div class=\"whole\"><div class=\"header\"><div class=\"title\"><h2>Manage Account And Files</h2></div><br><hr>"

81
 
If:
 

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

82
 
If:
 

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

83
 
If:
 

 
 
Then:
gosub sendln

84
 
If:
 

 
 
Then:
un=""

85
 
If:
ErrMsg ne ""

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

86
 
If:
 

 
 
Then:
Msg="<div><br><b>Account details to manage for user '"{UName{"':</b><br><br>";gosub sendln

87
 
If:
 

 
 
Then:
Msg="<div><form action=\""{SelfURL{"\" method=\"POST\" ENCTYPE=\"multipart/form-data\">"

88
 
If:
 

 
 
Then:
Msg=Msg{"<input type=\"hidden\" name=\"session\" value=\""{SessID{"\">"

89
 
If:
 

 
 
Then:
Msg=Msg{"<input type=\"hidden\" name=\"onegate_set\" value=\"flfss_manage_account\">"

90
 
If:
 

 
 
Then:
Msg=Msg{"<input type=\"hidden\" name=\"oper\" value=\"ce\">"

91
 
If:
 

 
 
Then:
Msg=Msg{"<div class=\"flabel\">Change Email:</div><div class=\"fval\">"

92
 
If:
 

 
 
Then:
Msg=Msg{"<input type=\"text\" name=\"email\" size=\"60\" maxlength=\"78\">"

93
 
If:
 

 
 
Then:
Msg=Msg<"<input type=\"submit\" name=\"submit\" value=\"Change!\"></div></form><br><br></div>";gosub sendln

94
 
If:
 

 
 
Then:
Msg="<div><form action=\""{SelfURL{"\" method=\"POST\" ENCTYPE=\"multipart/form-data\">"

95
 
If:
 

 
 
Then:
Msg=Msg{"<input type=\"hidden\" name=\"session\" value=\""{SessID{"\">"

96
 
If:
 

 
 
Then:
Msg=Msg{"<input type=\"hidden\" name=\"onegate_set\" value=\"flfss_manage_account\">"

97
 
If:
 

 
 
Then:
Msg=Msg{"<input type=\"hidden\" name=\"oper\" value=\"cu\">";gosub sendln

98
 
If:
 

 
 
Then:
Msg="<div class=\"flabel\">Change URL:</div><div class=\"fval\">"

99
 
If:
 

 
 
Then:
Msg=Msg{"<input type=\"text\" name=\"url\" size=\"60\">"

100
 
If:
 

 
 
Then:
Msg=Msg<"<input type=\"submit\" name=\"submit\" value=\"Change!\"></div></form><br><br></div>";gosub sendln

101
 
If:
 

 
 
Then:
Msg="<div><br><form action=\""{SelfURL{"\" method=\"POST\" ENCTYPE=\"multipart/form-data\">"

102
 
If:
 

 
 
Then:
Msg=Msg{"<input type=\"hidden\" name=\"session\" value=\""{SessID{"\">"

103
 
If:
 

 
 
Then:
Msg=Msg{"<input type=\"hidden\" name=\"onegate_set\" value=\"flfss_manage_account\">"

104
 
If:
 

 
 
Then:
Msg=Msg{"<input type=\"hidden\" name=\"oper\" value=\"np\">";gosub sendln

105
 
If:
 

 
 
Then:
Msg="<div class=\"flabel\">New Password:</div><div class=\"fval\">"

106
 
If:
 

 
 
Then:
Msg=Msg{"<input type=\"password\" name=\"pass\" size=\"25\" maxlength=\"20\">"

107
 
If:
 

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

108
 
If:
 

 
 
Then:
Msg="<div class=\"flabel\">Verify Password:</div><div class=\"fval\">"

109
 
If:
 

 
 
Then:
Msg=Msg{"<input type=\"password\" name=\"vpass\" size=\"25\" maxlength=\"20\">"

110
 
If:
 

 
 
Then:
Msg=Msg<"<input type=\"submit\" name=\"submit\" value=\"Change!\"></div></form><br><br></div>";gosub sendln

111
 
If:
 

 
 
Then:
Msg="<div><div class=\"flabel\"><a href=\""{SelfURL{"?onegate_set=flfss_manage_account&oper=sc&session="{SessID{"\">"

112
 
If:
 

 
 
Then:
Msg=Msg{"Cancel Account</a></div><br></div>";gosub sendln

113
 
If:
 

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

114
 
If:
 

 
 
Then:
gosub sendln

115
 
If:
 

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

116
 
If:
 

 
 
Then:
Msg="<div><br><b>Files present for user '"{UName{"' to manage:</b><br><br></div>";gosub sendln

117
 
If:
 

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

118
 
If:
 

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

119
 
If:
 

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

120
lstloop
If:
not filelst

 
 
Then:
goto endlst

121
 
If:
filelst(1) ne UName

 
 
Then:
goto endlst

122
 
If:
 

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

123
 
If:
UpDesc eq ""

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

124
 
If:
 

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

125
 
If:
 

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

126
 
If:
 

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

127
 
If:
 

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

128
 
If:
 

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

129
 
If:
 

 
 
Then:
gosub sendln

130
 
If:
 

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

131
 
If:
 

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

132
 
If:
 

 
 
Then:
gosub sendln

133
 
If:
 

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

134
 
If:
 

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

135
 
If:
 

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

136
 
If:
 

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

137
 
If:
 

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

138
 
If:
 

 
 
Then:
dc=dc+"1"

139
 
If:
 

 
 
Then:
ISDeleted="Not Deleted"

140
 
If:
filelst(10) eq "Y"

 
 
Then:
ISDeleted="Deleted"

141
 
If:
 

 
 
Then:
ISRestricted="Not Restricted"

142
 
If:
filelst(8) eq "Y"

 
 
Then:
ISRestricted="Restricted"

143
 
If:
 

 
 
Then:
TimesDownloaded="Times Downloaded:"<filelst(5)

144
 
If:
filelst(10) eq "N"

 
 
Then:
mn="<a href=\""{SelfURL{"?onegate_set=flfss_manage_file&session="{SessID{"&fileid="{filelst(9){"&oper=sd\">"

145
 
If:
filelst(10) eq "N"

 
 
Then:
mn=mn{"Soft-Delete</a>&nbsp;&nbsp;"

146
 
If:
filelst(10) eq "Y"

 
 
Then:
mn="<a href=\""{SelfURL{"?onegate_set=flfss_manage_file&session="{SessID{"&fileid="{filelst(9){"&oper=ud\">"

147
 
If:
filelst(10) eq "Y"

 
 
Then:
mn=mn{"Undelete</a>&nbsp;&nbsp;"

148
 
If:
 

 
 
Then:
mn=mn<"<a href=\""{SelfURL{"?onegate_set=flfss_manage_file&session="{SessID{"&fileid="{filelst(9){"&oper=hd\">"

149
 
If:
 

 
 
Then:
mn=mn{"Hard-Delete</a>"

150
 
If:
filelst(12) ne ""

 
 
Then:
mn=mn{"&nbsp;&nbsp;<a href=\""{SelfURL{"?onegate_set=flfss_manage_file&session="{SessID{"&fileid="{filelst(9){"&oper=rp"

151
 
If:
filelst(12) ne ""

 
 
Then:
mn=mn{"\">Remove Password</a>"

152
 
If:
 

 
 
Then:
ft=mn<"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"{ISDeleted{","<IsRestricted{","<TimesDownloaded

153
 
If:
 

 
 
Then:
et=""

154
 
If:
 

 
 
Then:
et="<form action=\""{SelfURL{"\" enctype=\"multipart/form-data\" method=\"POST\">"

155
 
If:
 

 
 
Then:
et=et{"<input type=\"hidden\" name=\"onegate_set\" value=\"flfss_manage_file\">"

156
 
If:
 

 
 
Then:
et=et{"<input type=\"hidden\" name=\"session\" value=\""{SessID{"\">"

157
 
If:
 

 
 
Then:
et=et{"<input type=\"hidden\" name=\"fileid\" value=\""{filelst(9){"\">"

158
 
If:
 

 
 
Then:
et=et{"<input type=\"hidden\" name=\"oper\" value=\"cp\">"

159
 
If:
 

 
 
Then:
et=et{"<b>Add/Change Password:</b> <input type=\"password\" name=\"pass\" size=\"20\" maxlength=\"20\">"

160
 
If:
 

 
 
Then:
et=et<"<input type=\"submit\" name=\"submit\" value=\"Change!\"></form>"

161
 
If:
 

 
 
Then:
et=et{"<form action=\""{SelfURL{"\" enctype=\"multipart/form-data\" method=\"POST\">"

162
 
If:
 

 
 
Then:
et=et{"<input type=\"hidden\" name=\"onegate_set\" value=\"flfss_manage_file\">"

163
 
If:
 

 
 
Then:
et=et{"<input type=\"hidden\" name=\"session\" value=\""{SessID{"\">"

164
 
If:
 

 
 
Then:
et=et{"<input type=\"hidden\" name=\"fileid\" value=\""{filelst(9){"\">"

165
 
If:
 

 
 
Then:
et=et{"<input type=\"hidden\" name=\"oper\" value=\"cd\">"

166
 
If:
 

 
 
Then:
et=et{"<b>Add/Change Description:</b> <input type=\"text\" name=\"desc\" size=\"60\" maxlength=\"60\">"

167
 
If:
 

 
 
Then:
et=et<"<input type=\"submit\" name=\"submit\" value=\"Change!\"></form>"

168
 
If:
 

 
 
Then:
et=et{"<br><a href=\""{SelfURL{"?onegate_set=flfss_manage_file&oper=ms&session="{SessID{"&fileid="{filelst(9){"\">"

169
 
If:
 

 
 
Then:
et=et{"Create fP Room Mini-Browser URL</a><br>"

170
 
If:
 

 
 
Then:
Msg="<div><br>"{ft{et{"<hr class=\"main\"></div>";gosub sendln

171
 
If:
 

 
 
Then:
getnext filelst;goto lstloop

172
endlst
If:
 

 
 
Then:
close filelst

173
 
If:
 

 
 
Then:
Pre="<div>"

174
 
If:
 

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

175
 
If:
 

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

176
 
If:
 

 
 
Then:
gosub sendln

177
 
If:
 

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

178
 
If:
 

 
 
Then:
gosub sendln

179
 
If:
 

 
 
Then:
ln=close(OHandle)

180
 
If:
 

 
 
Then:
ErrReturn="DONE";end

181
sendln
If:
Pre ne ""

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

182
 
If:
Msg ne ""

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

183
 
If:
 

 
 
Then:
Msg="";Pre=""

184
 
If:
 

 
 
Then:
return

185
myexit
If:
 

 
 
Then:
exit


Displayed with Fairlight prc2html v01.02.08