If:
Then:
declare extern ErrMsg,ErrReturn,OutFile,SessID
If:
Then:
declare extern UName,FName,LName,Email,URL,Remember,Cookie,NCookie
If:
Then:
declare OHandle(4,.0),Msg,IHandle(4,.0),SelfURL,Style,Pre
If:
Then:
IHandle=open("flfss.styleurl","r")
If:
Then:
ln=readline(IHandle,Style,"999")
If:
Then:
ln=close(Ihandle)
If:
Then:
IHandle=open("flfss.baseurl","r")
If:
IHandle lt "0"
Then:
SelfURL="/~fairlite/cgi-bin/cgiwrap/filepro/onegate";goto
skiprd2
If:
Then:
ln=readline(IHandle,SelfURL,"999")
If:
Then:
ln=close(IHandle)
If:
Then:
OHandle=open(OutFile,"wc0t")
If:
Then:
Msg="<html><head><title>Account Cancelled</title>"
If:
Style ne ""
Then:
Msg="<link rel=\"stylesheet\" href=\""{Style{"\" type=\"text/css\">"
If:
Then:
Msg="</head><body>"
If:
Then:
Msg="<div class=\"whole\"><div class=\"header\"><div class=\"title\"><h2>Account Cancelled</h2></div><br><hr></div>"
If:
Then:
Msg="<div class=\"main\">"
If:
ErrMsg ne ""
Then:
Msg="<div class=\"error\">"{ErrMsg{"</div>";gosub
sendln
If:
Then:
Msg="</div><div class=\"footer\"><hr><span class=\"genby\">Fairlight File Sharing System</span></div></div>"
If:
Then:
Msg="</body></html>"
If:
Then:
ln=close(OHandle)
If:
Then:
ErrReturn="DONE";end
If:
Pre ne ""
Then:
ln=writeline(OHandle,Pre,len(Pre))
If:
Msg ne ""
Then:
ln=writeline(OHandle,Msg,len(Msg))