Processing table: prc.upload_file

Jump to line:


1
 
If:
 

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

2
 
If:
 

 
 
Then:
declare global ErrMsg,ErrReturn(8,*),OutFile(256,*),FString

3
 
If:
 

 
 
Then:
declare global UName,Pass(20,*),FName,LName,Email,URL,SessID,Expire,SIDString,PEncode(40,*),SessUName,FileRoot

4
 
If:
 

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

5
 
If:
 

 
 
Then:
declare OHandle(4,.0),Msg,IHandle(4,.0),SelfURL,Style,Pre,FPos(20,.0),FLine

6
 
If:
 

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

7
 
If:
 

 
 
Then:
declare global CNoPlus(1,YESNO)

8
 
If:
 

 
 
Then:
declare Cookie,CLUName,CLPass

9
 
If:
 

 
 
Then:
declare global CookiePresent(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:
Restricted="N"

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 "flfsslog" and cgi(8) eq "Y"

 
 
Then:
Cookie=cgi(3)

23
 
If:
cgi(2) eq "upfile" and cgi(4) eq "Y"

 
 
Then:
UpReal=cgi(7);UpOrig=cgi(5);UpSize=cgi(6)

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

 
 
Then:
UpPass=cgi(3);Restricted="Y"

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

 
 
Then:
UpDesc=cgi(3)

26
 
If:
 

 
 
Then:
delete cgi;getnext cgi;goto cgiloop

27
postcgi
If:
Cookie eq ""

 
 
Then:
goto nocook

28
 
If:
Cookie ne ""

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

29
 
If:
cp ne "0"

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

30
 
If:
 

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

31
 
If:
not ckchk

 
 
Then:
close ckchk;goto nocook

32
 
If:
 

 
 
Then:
Pass=ckchk(9);close ckchk

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

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

35
 
If:
SessID eq "CHANGEDIP"

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

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

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

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

38
 
If:
SUpdate eq "Y"

 
 
Then:
call "update_session"

39
 
If:
Cookie eq ""

 
 
Then:
UName=SessUName

40
 
If:
Cookie ne ""

 
 
Then:
UName=CLUname

41
 
If:
UpReal eq ""

 
 
Then:
call "upform";exit

42
 
If:
 

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

43
 
If:
IHandle lt "0"

 
 
Then:
Style="";goto skiprd

44
 
If:
 

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

45
 
If:
 

 
 
Then:
ln=close(Ihandle)

46
skiprd
If:
 

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

47
 
If:
IHandle lt "0"

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

48
 
If:
 

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

49
 
If:
 

 
 
Then:
ln=close(IHandle)

50
skiprd2
If:
 

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

51
 
If:
IHandle lt "0"

 
 
Then:
ErrMsg="Could not open storage root configuration file.";call "generr";t)

52
 
If:
ErrReturn eq "DONE"

 
 
Then:
goto myexit

53
 
If:
 

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

54
 
If:
 

 
 
Then:
ln=close(IHandle);

55
 
If:
 

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

56
 
If:
 

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

57
 
If:
 

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

58
 
If:
 

 
 
Then:
lookup ctrl = flfss_fcodectl k=(UName) i=A -npx

59
 
If:
ctrl

 
 
Then:
FControl=ctrl(2);ctrl(2)=FControl+"1";write ctrl;close ctrl;goto ctrldn

60
 
If:
 

 
 
Then:
close ctrl;FControl="1"

61
 
If:
 

 
 
Then:
lookup ctlst = flfss_fcodectl r=free -n

62
 
If:
not ctlst

 
 
Then:
ErrMsg="Could not obtain free record for control number.";call "upform";exit

63
 
If:
 

 
 
Then:
ctlst(1)=Uname;ctlst(2)=FControl+"1";write ctlst;close ctlst

64
ctrldn
If:
 

 
 
Then:
UpBase=UpReal

65
 
If:
 

 
 
Then:
FString=UpBase;call "make_basename";UpBase=FString;bn=UpBase

66
 
If:
 

 
 
Then:
RmBase=UpOrig

67
 
If:
 

 
 
Then:
FString=RmBase;call "make_basename";RmBase=FString

68
 
If:
 

 
 
Then:
uf(3,ALLUP)=mid(Uname,"1","1");us(3,ALLUP)=mid(Uname,len(Uname),"1")

69
 
If:
 

 
 
Then:
bt=instr(bn,".")

70
 
If:
bt ne "0"

 
 
Then:
bp=bt-"1"

71
 
If:
bt eq "0"

 
 
Then:
bp=len(bn)

72
 
If:
 

 
 
Then:
bf(3,ALLUP)=mid(bn,bp-"1","1");bs(3,ALLUP)=mid(bn,bp,"1")

73
 
If:
(uf lt "0" or uf gt "9") and (uf lt "A" or uf gt "Z")

 
 
Then:
uf="SYM"

74
 
If:
(us lt "0" or us gt "9") and (us lt "A" or us gt "Z")

 
 
Then:
us="SYM"

75
 
If:
(bf lt "0" or bf gt "9") and (bf lt "A" or bf gt "Z")

 
 
Then:
bf="SYM"

76
 
If:
(bs lt "0" or bs gt "9") and (bs lt "A" or bs gt "Z")

 
 
Then:
bs="SYM"

77
 
If:
 

 
 
Then:
UpDest=FileRoot{"/"{""{uf{""{"/"{""{bf{""{"/"{""{us{""{"/"{""{bs{""{"/"{UpBase

78
 
If:
 

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

79
 
If:
IHandle lt "0"

 
 
Then:
ErrMsg="Could not open upload file.";call "upform";exit

80
 
If:
 

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

81
 
If:
OHandle lt "0"

 
 
Then:
ErrMsg="Could not open storage file.";call "upform";exit

82
 
If:
 

 
 
Then:
FPos="0"

83
cploop
If:
 

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

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

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

85
 
If:
 

 
 
Then:
lo=write(OHandle,FLine)

86
 
If:
lo ne ln

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

87
 
If:
FPos lt UpSize

 
 
Then:
FPos=FPos+ln;goto cploop

88
 
If:
 

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

89
 
If:
 

 
 
Then:
lookup upld = flfss_uploads r=free -n

90
 
If:
not upld

 
 
Then:
ErrMsg="Could not find free record for file upload entry.";call "upform";exit

91
 
If:
 

 
 
Then:
upld(1)=UName;upld(2)=RmBase;upld(3)=UpDest;upld(4)=UpSize

92
 
If:
 

 
 
Then:
upld(5)="0";upld(6)=@td;upld(7)=@tm;upld(8)=Restricted;upld(9)=UName{"-"{FControl;upld(10)="N"

93
 
If:
UpDesc ne ""

 
 
Then:
upld(11)=UpDesc

94
 
If:
UpPass ne ""

 
 
Then:
Pass=UpPass;call "scramble_pass";upld(12)=PEncode

95
 
If:
 

 
 
Then:
write upld;close upld

96
 
If:
 

 
 
Then:
ErrMsg="Upload successful!";call "updone";exit

97
myexit
If:
 

 
 
Then:
exit


Displayed with Fairlight prc2html v01.02.08