Subversion Repositories wimsdev

trapcheck=wimshome/tmp/log/trap.check

!if robot isin $session
 !exit
!endif

s2dir=!replace internal sessions/ by s2/ in $wims_sesdir
!writefile wimshome/$s2dir/.trap trapped for $httpd_HTTP_USER_AGENT
!if $wims_session_expired!=$empty
 now=$wims_nowseconds
 future=!date -d '20 minutes' '+%s'
 n=!recordcnt $trapcheck
 !if $n>100
  n=100
 !endif
 !for i=1 to $n
  f$i=!record $i of $trapcheck
 !next i
 !writefile $trapcheck
 !for i=1 to $n
  !distribute items $(f$i) into ses,add,tim
  !if $tim>$now and $ses,$add!=$wims_session_expired,$httpd_REMOTE_ADDR
   !appendfile $trapcheck :$(f$i)
  !endif
 !next i
 !appendfile $trapcheck :$wims_session_expired,$httpd_REMOTE_ADDR,$future
!endif
!usererror trapped $httpd_HTTP_USER_AGENT