Processing table: prc.manage_file

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,NameEnc,OutShare

7
 
If:
 

 
 
Then:
declare Cookie,CLUName,CLPass

8
 
If:
 

 
 
Then:
declare global CookiePresent(1,YESNO)

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

 
 
Then:
FileID=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 "pass" and cgi(8) eq "N"

 
 
Then:
UpPass=cgi(3)

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

 
 
Then:
UpDesc=cgi(3)

27
 
If:
 

 
 
Then:
delete cgi;getnext cgi;goto cgiloop

28
postcgi
If:
Cookie eq ""

 
 
Then:
goto nocook

29
 
If:
Cookie ne ""

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

30
 
If:
cp ne "0"

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

31
 
If:
 

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

32
 
If:
not ckchk

 
 
Then:
close ckchk;goto nocook

33
 
If:
 

 
 
Then:
Pass=ckchk(9);close ckchk

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

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

35
 
If:
 

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

36
 
If:
SessID eq "CHANGEDIP"

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

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

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

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

39
 
If:
SUpdate eq "Y"

 
 
Then:
call "update_session"

40
 
If:
Cookie eq ""

 
 
Then:
UName=SessUName

41
 
If:
Cookie ne ""

 
 
Then:
UName=CLUname

42
 
If:
 

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

43
 
If:
not valt

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

44
 
If:
 

 
 
Then:
close valt

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=FileID;call "clean_strings";FileID=CString

47
 
If:
 

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

48
 
If:
 

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

49
 
If:
FileID eq ""

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

50
 
If:
Oper ne "sd" and Oper ne "hd" and Oper ne "ud" and Oper ne "cp" and Oper ne "rp" and Oper ne "cd" and Oper ne "ms"

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

51
 
If:
 

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

52
 
If:
IHandle lt "0"

 
 
Then:
Style="";goto skiprd

53
 
If:
 

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

54
 
If:
 

 
 
Then:
ln=close(Ihandle)

55
skiprd
If:
 

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

56
 
If:
IHandle lt "0"

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

57
 
If:
 

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

58
 
If:
 

 
 
Then:
ln=close(IHandle)

59
skiprd2
If:
 

 
 
Then:
lookup upmg = flfss_uploads k=(FileID) i=B -npx

60
 
If:
not upmg

 
 
Then:
ErrMsg="File does not exist.";close upmg;call "logindone";exit;

61
 
If:
upmg(1) ne UName

 
 
Then:
close upmg;ErrMsg="You are not the file's owner. Access Denied.";call "logindone";exit

62
 
If:
upmg(10) eq "Y" and Oper eq "sd"

 
 
Then:
close upmg;ErrMsg="File already deleted.";call "logindone";exit

63
 
If:
Oper eq "cp" and UpPass eq ""

 
 
Then:
close upmg;ErrMsg="No new password provided. Password not changed.";call "logindone";exit

64
 
If:
upmg(10) eq "N" and Oper eq "sd"

 
 
Then:
upmg(10)="Y";write upmg;close upmg;ErrMsg="File deleted.";call "logindone";exit

65
 
If:
upmg(10) eq "N" and Oper eq "ud"

 
 
Then:
close upmg;ErrMsg="File already undeleted.";call "logindone";exit

66
 
If:
upmg(10) eq "Y" and Oper eq "ud"

 
 
Then:
upmg(10)="N";write upmg;close upmg;ErrMsg="File undeleted.";call "logindone";exit

67
 
If:
Oper eq "hd"

 
 
Then:
UpReal=upmg(3);ln=remove(UpReal);delete upmg;close upmg;ErrMsg="File permanently deleted.";call "logindone";exit

68
 
If:
Oper eq "cp"

 
 
Then:
Pass=UpPass;call "scramble_pass";upmg(8)="Y";upmg(12)=PEncode;write upmg;close upmg;ErrMsg="File Password Changed."

69
 
If:
Oper eq "cp"

 
 
Then:
call "logindone";exit

70
 
If:
Oper eq "rp"

 
 
Then:
upmg(8)="N";upmg(12)="";write upmg;close upmg;ErrMsg="File Password Removed.";call "logindone";exit

71
 
If:
Oper eq "cd"

 
 
Then:
upmg(11)=UpDesc;write upmg;close upmg;ErrMsg="File Description Changed."

72
 
If:
Oper eq "cd"

 
 
Then:
call "logindone";exit

73
 
If:
Oper eq "ms"

 
 
Then:
call "make_shareusername";call "publicize_file";close upmg;call "logindone";exit

74
 
If:
 

 
 
Then:
exit

75
myexit
If:
 

 
 
Then:
exit


Displayed with Fairlight prc2html v01.02.08