Processing table: prc.download_file

Jump to line:


1
 
If:
 

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

2
 
If:
 

 
 
Then:
declare global ErrMsg,ErrReturn(8,*),OutFile(256,*),FString,FileID,UpRestrict(1,YESNO),TypeFile(256,*),MimeType

3
 
If:
 

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

4
 
If:
 

 
 
Then:
declare global UpReal,UpOrig,UpSize,UpDest,UpBase,RmBase,SUpdate(1,YESNO),Deleted(1,YESNO),UpPass,OUpPass

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),PassThru(1,YESNO),PrePass

8
 
If:
 

 
 
Then:
declare FControl(20,.0)

9
 
If:
 

 
 
Then:
ErrReturn="NOT DONE"

10
 
If:
 

 
 
Then:
OutFile=getenv("ONEGATE_OUTFILE");TypeFile=getenv("ONEGATE_MIMEFILE")

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:
UpPass=""

16
 
If:
 

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

17
cgiloop
If:
not cgi

 
 
Then:
close cgi;goto postcgi

18
 
If:
cgi(1) ne @PW

 
 
Then:
close cgi;goto postcgi

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

 
 
Then:
SessID=cgi(3)

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

 
 
Then:
Cookie=cgi(3)

21
 
If:
cgi(2) eq "fileid" and cgi(8) eq "N"

 
 
Then:
FileID=cgi(3)

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

 
 
Then:
UpPass=cgi(3);PrePass=cgi(3)

23
 
If:
cgi(2) eq "passthru" and cgi(8) eq "N"

 
 
Then:
PassThru="Y"

24
 
If:
 

 
 
Then:
delete cgi;getnext cgi;goto cgiloop

25
postcgi
If:
Cookie eq ""

 
 
Then:
goto nocook

26
 
If:
Cookie ne ""

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

27
 
If:
cp ne "0"

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

28
 
If:
 

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

29
 
If:
not ckchk

 
 
Then:
close ckchk;goto nocook

30
 
If:
 

 
 
Then:
Pass=ckchk(9);close ckchk

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

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

32
 
If:
 

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

33
 
If:
SessID eq "CHANGEDIP"

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

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

36
 
If:
SUpdate eq "Y"

 
 
Then:
call "update_session"

37
 
If:
Cookie eq ""

 
 
Then:
UName=SessUName

38
 
If:
Cookie ne ""

 
 
Then:
UName=CLUname

39
 
If:
 

 
 
Then:
lookup downfl = flfss_uploads k=(FileID) i=b -npx

40
 
If:
not downfl

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

41
 
If:
 

 
 
Then:
UpOrig=downfl(2);UpDest=downfl(3);UpSize=downfl(4);UpRestrict=downfl(8);Deleted=downfl(10)

42
 
If:
 

 
 
Then:
UpOwner=downfl(1);OUpPass=downfl(12)

43
 
If:
Deleted eq "Y" and UpOwner ne UName

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

44
 
If:
UpRestrict eq "Y" and UpPass eq ""

 
 
Then:
close downfl;call "downpassform";exit

45
 
If:
 

 
 
Then:
Pass=UpPass;call "scramble_pass";UpPass=PEncode

46
 
If:
UpRestrict eq "Y" and UpPass ne OUpPass

 
 
Then:
close downfl;ErrMsg="Password `incorrect. File access denied.";call "downpassform";exit

47
 
If:
UpRestrict eq "Y" and PassThru ne "Y"

 
 
Then:
close downfl;PassThru="Y";call "downpassthru";exit

48
 
If:
 

 
 
Then:
downfl(5)=downfl(5)+"1";write downfl;close downfl

49
 
If:
 

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

50
 
If:
IHandle lt "0"

 
 
Then:
Style="";goto skiprd

51
 
If:
 

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

52
 
If:
 

 
 
Then:
ln=close(Ihandle)

53
skiprd
If:
 

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

54
 
If:
IHandle lt "0"

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

55
 
If:
 

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

56
 
If:
 

 
 
Then:
ln=close(IHandle)

57
skiprd2
If:
 

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

58
 
If:
OHandle lt "0"

 
 
Then:
ErrMsg="Could not open MIME type file.";call "logindone";exit

59
 
If:
 

 
 
Then:
call "determine_mimetype"

60
 
If:
 

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

61
 
If:
OHandle lt "0"

 
 
Then:
ErrMsg="Could not write to MIME type file.";call "logindone";exit

62
 
If:
 

 
 
Then:
ln=close(IHandle)

63
 
If:
 

 
 
Then:
IHandle=open(UpDest,"rb")

64
 
If:
IHandle lt "0"

 
 
Then:
ErrMsg="Could not open uploaded file.";call "logindone";exit

65
 
If:
 

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

66
 
If:
OHandle lt "0"

 
 
Then:
ErrMsg="Could not open output file.";call "logindone";exit

67
 
If:
 

 
 
Then:
FPos="0"

68
cploop
If:
 

 
 
Then:
ln=read(IHandle,FLine,"8192")

69
 
If:
FPos lt UpSize and ln eq "0"

 
 
Then:
ErrMsg="Premature end of file during copy.";call "logindone";exit

70
 
If:
 

 
 
Then:
lo=write(OHandle,FLine)

71
 
If:
lo ne ln

 
 
Then:
ErrMsg="Could not write entire line to file during copy.";call "logindone";exit

72
 
If:
FPos lt UpSize

 
 
Then:
FPos=FPos+ln;goto cploop

73
 
If:
 

 
 
Then:
ln=close(IHandle);ln=close(OHandle);exit

74
myexit
If:
 

 
 
Then:
exit


Displayed with Fairlight prc2html v01.02.08