Processing table: prc.logindone

Jump to line:


1
 
If:
 

 
 
Then:
declare extern ErrMsg,ErrReturn,OutFile,SessID,CookiePresent

2
 
If:
 

 
 
Then:
declare extern UName,FName,LName,Email,URL,Remember,Cookie

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>User Menu - "&Uname{"</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>User Menu - "&UName{"</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:
Msg="<ul><div><li><a href=\""{SelfURL{"?onegate_set=flfss_list_accounts&session="{SessID{"\">List User Accounts</a>"

26
 
If:
 

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

27
 
If:
 

 
 
Then:
Msg="<div><li><a href=\""{SelfURL{"?onegate_set=flfss_search_accounts&session="{SessID{"\">Search For Users/Files</a>"

28
 
If:
 

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

29
 
If:
 

 
 
Then:
Msg="<div><li><a href=\""{SelfURL{"?onegate_set=flfss_upload_file&session="{SessID{"\">Upload A File</a>"

30
 
If:
 

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

31
 
If:
 

 
 
Then:
Msg="<div><li><a href=\""{SelfURL{"?onegate_set=flfss_manage_index&session="{SessID{"\">Manage Account And Files</a>"

32
 
If:
 

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

33
 
If:
CookiePresent eq "Y"

 
 
Then:
Msg="<div><li><a href=\""{SelfURL{"?onegate_set=flfss_remove_cookie&session="{SessID{"\">Forget Me (Remove Cookie)</a>"

34
 
If:
CookiePresent eq "Y"

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

35
 
If:
 

 
 
Then:
Msg="</ul><br><br>Interested in seeing how this application works?"

36
 
If:
 

 
 
Then:
Msg=Msg<"<a target=\"_blank\" href=\"http://www2.onnik.com/~fairlite/flfssdocs2.html\">"

37
 
If:
 

 
 
Then:
Msg=Msg{"View the documentation, including full filePro code!</a>";gosub sendln

38
 
If:
 

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

39
 
If:
 

 
 
Then:
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