Processing table: prc.regform

Jump to line:


1
 
If:
 

 
 
Then:
declare extern ErrMsg,ErrReturn,OutFile

2
 
If:
 

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

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 Registration</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>User Registration</h2></div><br><hr></div>"

20
 
If:
 

 
 
Then:
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><i><b>* = Required Fields</b></i><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_create_account\">"

28
 
If:
 

 
 
Then:
gosub sendln

29
 
If:
 

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

30
 
If:
 

 
 
Then:
Msg="<div class=\"fval\"><input type=\"text\" size=\"15\" maxlength=\"12\" name=\"username\" value=\""{UName{"\">"

31
 
If:
 

 
 
Then:
gosub sendln

32
 
If:
 

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

33
 
If:
 

 
 
Then:
gosub sendln

34
 
If:
 

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

35
 
If:
 

 
 
Then:
Msg="<div class=\"fval\"><input type=\"text\" size=\"25\" maxlength=\"78\" name=\"email\" value=\""{Email{"\">"

36
 
If:
 

 
 
Then:
gosub sendln

37
 
If:
 

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

38
 
If:
 

 
 
Then:
gosub sendln

39
 
If:
 

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

40
 
If:
 

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

41
 
If:
 

 
 
Then:
gosub sendln

42
 
If:
 

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

43
 
If:
 

 
 
Then:
gosub sendln

44
 
If:
 

 
 
Then:
Pre="<div><div class=\"flabel\">* Verify Password:</div>"

45
 
If:
 

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

46
 
If:
 

 
 
Then:
gosub sendln

47
 
If:
 

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

48
 
If:
 

 
 
Then:
gosub sendln

49
 
If:
 

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

50
 
If:
 

 
 
Then:
Msg="<div class=\"fval\"><input type=\"text\" size=\"30\" maxlength=\"30\" name=\"first_name\" value=\""{FName{"\">"

51
 
If:
 

 
 
Then:
gosub sendln

52
 
If:
 

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

53
 
If:
 

 
 
Then:
gosub sendln

54
 
If:
 

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

55
 
If:
 

 
 
Then:
Msg="<div class=\"fval\"><input type=\"text\" size=\"40\" maxlength=\"40\" name=\"last_name\" value=\""{LName{"\">"

56
 
If:
 

 
 
Then:
gosub sendln

57
 
If:
 

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

58
 
If:
 

 
 
Then:
gosub sendln

59
 
If:
 

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

60
 
If:
 

 
 
Then:
Msg="<div class=\"fval\"><input type=\"text\" size=\"60\" name=\"home_url\" value=\""{URL{"\"></div><br><br></div>"

61
 
If:
 

 
 
Then:
gosub sendln

62
 
If:
 

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

63
 
If:
 

 
 
Then:
rm=""

64
 
If:
Remember eq "Y"

 
 
Then:
rm=" CHECKED"

65
 
If:
 

 
 
Then:
Msg="<div class=\"fval\"><input type=\"checkbox\" name=\"remember\" value=\"Y\""{rm{"></div><br><br></div>"

66
 
If:
 

 
 
Then:
gosub sendln

67
 
If:
 

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

68
 
If:
 

 
 
Then:
Msg="<div class=\"fval\"><input type=\"submit\" name=\"submit\" value=\"Register!\"></div><br><br></div>"

69
 
If:
 

 
 
Then:
gosub sendln

70
 
If:
 

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

71
 
If:
 

 
 
Then:
gosub sendln

72
 
If:
 

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

73
 
If:
 

 
 
Then:
gosub sendln

74
 
If:
 

 
 
Then:
ln=close(OHandle)

75
 
If:
 

 
 
Then:
ErrReturn="DONE";end

76
sendln
If:
Pre ne ""

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

77
 
If:
Msg ne ""

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

78
 
If:
 

 
 
Then:
Msg="";Pre=""

79
 
If:
 

 
 
Then:
return


Displayed with Fairlight prc2html v01.02.08