Processing table: prc.downpassthru

Jump to line:


1
 
If:
 

 
 
Then:
declare extern ErrMsg,ErrReturn,OutFile,PassThru,PrePass

2
 
If:
 

 
 
Then:
declare extern UName,Pass,Remember,UpOrig,UpSize,SessID,UpDesc,UpPass,FileID

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>Password Accepted for File Download</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>Password Accepted for File Download</h2>"

20
 
If:
 

 
 
Then:
Msg=Msg{"</div><br><hr></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>Password accepted for '<b>"{UpOrig{"</b>'. Click below to download:<br><br></div>";gosub sendln

25
 
If:
 

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

26
 
If:
 

 
 
Then:
Msg=Msg{"<a href=\""{SelfURL{"/"{UpOrig{"?onegate_set=flfss_download_file&pass="{PrePass{"&session="{SessID

27
 
If:
 

 
 
Then:
Msg=Msg{"&fileid="{FileID{"&passthru=Y\">Download '"{UpOrig{"'</a></div><br><br></div>"

28
 
If:
 

 
 
Then:
gosub sendln

29
 
If:
 

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

30
 
If:
 

 
 
Then:
gosub sendln

31
 
If:
 

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

32
 
If:
 

 
 
Then:
gosub sendln

33
 
If:
 

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

34
 
If:
 

 
 
Then:
gosub sendln

35
 
If:
 

 
 
Then:
ln=close(OHandle)

36
 
If:
 

 
 
Then:
ErrReturn="DONE";end

37
sendln
If:
Pre ne ""

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

38
 
If:
Msg ne ""

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

39
 
If:
 

 
 
Then:
Msg="";Pre=""

40
 
If:
 

 
 
Then:
return


Displayed with Fairlight prc2html v01.02.08