If:
Then:
declare extern SessID,ErrMsg,SessUName
If:
Then:
declare RIP,STime(8,HMS),MyTime(8,HMS),Neg,TDiffMin(2,.0),TDiff(8,HMS)
If:
Then:
declare TDiffHr(2,.0)
If:
Then:
RIP=getenv("REMOTE_ADDR")
If:
Then:
lookup sess = flfss_sessionids k=(SessID) i=b -nx
If:
not sess
Then:
close sess;SessID="NOSESSION";end
If:
sess(2) ne @td
Then:
delete sess;close sess;SessID="NOSESSION";end
If:
sess(5) ne RIP
Then:
close sess;SessID="CHANGEDIP";end
If:
Then:
Stime=sess(4);TDiff=MyTime-STime
If:
Then:
TDiffMin=mid(TDiff,"4","2");Neg=mid(TDiff,"1","1")
If:
Then:
fc=instr(TDiff,":")
If:
fc ne "0"
Then:
TDiffHr=mid(TDiff,fc-"1","1")
If:
TDiffMin gt "30" or Neg eq "-" or TDiffHr gt "0"
Then:
delete sess;close sess;SessID="NOSESSION";end
If:
Then:
SessUName=sess(3);close sess;end