Processing table: prc.updone

Jump to line:


1
 
If:
 

 
 
Then:
declare extern ErrMsg,ErrReturn,OutFile,SessID

2
 
If:
 

 
 
Then:
declare extern UName,FName,LName,Email,URL,Remember,Cookie,RmBase,UpSize,UpDesc,UpPass

3
 
If:
 

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

4
 
If:
 

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

5
 
If:
IHandle lt "0"

 
 
Then:
Style="";goto skiprd

6
 
If:
 

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

7
 
If:
 

 
 
Then:
ln=close(Ihandle)

8
skiprd
If:
 

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

9
 
If:
IHandle lt "0"

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

10
 
If:
 

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

11
 
If:
 

 
 
Then:
ln=close(IHandle)

12
skiprd2
If:
 

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

13
 
If:
 

 
 
Then:
Msg="<html><head><title>Upload Successful!</title>"

14
 
If:
 

 
 
Then:
gosub sendln

15
 
If:
Cookie ne ""

 
 
Then:
Msg=Cookie;gosub sendln

16
 
If:
Style ne ""

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

17
 
If:
Style ne ""

 
 
Then:
gosub sendln

18
 
If:
 

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

19
 
If:
 

 
 
Then:
gosub sendln

20
 
If:
 

 
 
Then:
Msg="<div class=\"whole\"><div class=\"header\"><div class=\"title\"><h2>Upload Sucessful!</h2></div><br><hr></div>"

21
 
If:
 

 
 
Then:
gosub sendln

22
 
If:
 

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

23
 
If:
 

 
 
Then:
gosub sendln

24
 
If:
ErrMsg ne ""

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

25
 
If:
 

 
 
Then:
Pre="<div><div class=\"flabel\">File Name:</div>"

26
 
If:
 

 
 
Then:
Msg="<div class=\"fval\">"{RmBase{"</div><br><br></div>";gosub sendln

27
 
If:
 

 
 
Then:
Pre="<div><div class=\"flabel\">File Size:</div>"

28
 
If:
 

 
 
Then:
Msg="<div class=\"fval\">"{UpSize&" bytes</div><br><br></div>";gosub sendln

29
 
If:
 

 
 
Then:
Pre="<div><div class=\"flabel\">Description:</div>"

30
 
If:
 

 
 
Then:
Msg="<div class=\"fval\">"{UpDesc{"</div><br><br></div>";gosub sendln

31
 
If:
UpPass ne ""

 
 
Then:
UpPass="Yes"

32
 
If:
UpPass eq ""

 
 
Then:
UpPass="No"

33
 
If:
 

 
 
Then:
Pre="<div><div class=\"flabel\">Protected:</div>"

34
 
If:
 

 
 
Then:
Msg="<div class=\"fval\">"{UpPass{"</div><br><br></div>";gosub sendln

35
 
If:
 

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

36
 
If:
 

 
 
Then:
gosub sendln

37
 
If:
 

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

38
 
If:
 

 
 
Then:
gosub sendln

39
 
If:
 

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

40
 
If:
 

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

41
 
If:
 

 
 
Then:
gosub sendln

42
 
If:
 

 
 
Then:
ln=close(OHandle)

43
 
If:
 

 
 
Then:
ErrReturn="DONE";end

44
sendln
If:
Pre ne ""

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

45
 
If:
Msg ne ""

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

46
 
If:
 

 
 
Then:
Msg="";Pre=""

47
 
If:
 

 
 
Then:
return


Displayed with Fairlight prc2html v01.02.08