Processing table: prc.upform

Jump to line:


1
 
If:
 

 
 
Then:
declare extern ErrMsg,ErrReturn,OutFile

2
 
If:
 

 
 
Then:
declare extern UName,Pass,Remember,UpOrig,UpSize,SessID,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>File Upload</title>"

14
 
If:
 

 
 
Then:
gosub sendln

15
 
If:
Style ne ""

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

16
 
If:
 

 
 
Then:
gosub sendln

17
 
If:
 

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

18
 
If:
 

 
 
Then:
gosub sendln

19
 
If:
 

 
 
Then:
Msg="<div class=\"whole\"><div class=\"header\"><div class=\"title\"><h2>File Upload - "&UName{"</h2></div><br><hr>"

20
 
If:
 

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

21
 
If:
 

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

22
 
If:
 

 
 
Then:
gosub sendln

23
 
If:
ErrMsg ne ""

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

24
 
If:
 

 
 
Then:
Msg="<div><br><b>Click on <i>Browse</i> to select a file to upload from your system:</b><br><br></div>";gosub sendln

25
 
If:
 

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

26
 
If:
 

 
 
Then:
gosub sendln

27
 
If:
 

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

28
 
If:
 

 
 
Then:
gosub sendln

29
 
If:
 

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

30
 
If:
 

 
 
Then:
Msg="<div class=\"fval\"><input type=\"file\" name=\"upfile\">"

31
 
If:
 

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

32
 
If:
 

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

33
 
If:
 

 
 
Then:
Msg="<div class=\"fval\"><input type=\"text\" name=\"desc\" size=\"60\" maxlength=\"60\">"

34
 
If:
 

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

35
 
If:
 

 
 
Then:
Pre="<div><div class=\"flabel\">(Optional) Password:</div>"

36
 
If:
 

 
 
Then:
Msg="<div class=\"fval\"><input type=\"password\" name=\"pass\" size=\"20\" maxlength=\"20\">"

37
 
If:
 

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

38
 
If:
 

 
 
Then:
Pre="<div><div class=\"flabel\">&nbsp;</div>"

39
 
If:
 

 
 
Then:
Msg="<div class=\"fval\"><input type=\"submit\" name=\"submit\" action=\""{SelfURL{"\" value=\"Upload!\">"

40
 
If:
 

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

41
 
If:
 

 
 
Then:
Msg=Msg{"</div><br><br></div>"

42
 
If:
 

 
 
Then:
gosub sendln

43
 
If:
 

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

44
 
If:
 

 
 
Then:
gosub sendln

45
 
If:
 

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

46
 
If:
 

 
 
Then:
gosub sendln

47
 
If:
 

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

48
 
If:
 

 
 
Then:
gosub sendln

49
 
If:
 

 
 
Then:
ln=close(OHandle)

50
 
If:
 

 
 
Then:
ErrReturn="DONE";end

51
sendln
If:
Pre ne ""

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

52
 
If:
Msg ne ""

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

53
 
If:
 

 
 
Then:
Msg="";Pre=""

54
 
If:
 

 
 
Then:
return


Displayed with Fairlight prc2html v01.02.08