If:
Then:
declare extern UName,PEncode,Cookie,RemCookie,NCookie
If:
Then:
declare IHandle(4,.0)
If:
Then:
IHandle=open("flfss.cookiedomain","r")
If:
Then:
ln=readline(IHandle,Cookie,"999")
If:
Then:
ln=close(Ihandle)
If:
Then:
un(12,ALLUP)=UName
If:
Then:
Cookie="<meta http-equiv=\"Set-Cookie\" content=\"flfsslog="{un{"%7C"{PEncode{"; domain="{Cookie{"; path=/; expires="
If:
Then:
os(10,mdyy/)=@td+"365"
If:
RemCookie eq "Y"
Then:
os=@td-"1"
If:
Then:
ed(10,mdyy/)=os;et=@tm;dw=dow(ed,"1")
If:
Then:
mon("1")="Jan";mon("2")="Feb";mon("3")="Mar";mon("4")="Apr"
If:
Then:
mon("5")="May";mon("6")="Jun";mon("7")="Jul";mon("8")="Aug"
If:
Then:
mon("9")="Sep";mon("10")="Oct";mon("11")="Nov";mon("12")="Dec"
If:
Then:
mn(2,.0)=mid(ed,"1","2")
If:
Then:
dn=mid(ed,"4","2")
If:
Then:
yn=mid(ed,"7","4")
If:
Then:
we=dw{", "&dn&"-"&mon(mn)&"-"&yn&" "&et&" GMT"
If:
Then:
Cookie=Cookie&we&"\">"
If:
Then:
NCookie="";Cookie="";end