Subversion Repositories wimsdev

Rev

Rev 23 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 23 Rev 18425
Line 2... Line 2...
2 
 
 2 
 
3 
!if robot isin $session
 3 
!if robot isin $session
4 
 !exit
 4 
  !exit
5 
!endif
 5 
!endif
6 
 
 6 
 
7 
s2dir=!replace internal sessions/ by s2/ in $wims_sesdir
 7 
s2dir=!replace internal sessions/ by s2/ in $wims_sesdir
8 
!writefile wimshome/$s2dir/.trap trapped for $httpd_HTTP_USER_AGENT
 8 
!writefile wimshome/$s2dir/.trap trapped for $httpd_HTTP_USER_AGENT
9 
!if $wims_session_expired!=$empty
 9 
!if $wims_session_expired!=$empty
10 
 now=$wims_nowseconds
 10 
  now=$wims_nowseconds
11 
 future=!date -d '20 minutes' '+%s'
 11 
  future=!date -d '20 minutes' '+%s'
12 
 n=!recordcnt $trapcheck
 12 
  n=!recordcnt $trapcheck
13 
 !if $n>100
 13 
  !if $n>100
14 
  n=100
 14 
    n=100
15 
 !endif
 - 
 
16 
 !for i=1 to $n
 - 
 
17 
  f$i=!record $i of $trapcheck
 - 
 
18 
 !next i
 - 
 
19 
 !writefile $trapcheck
 - 
 
20 
 !for i=1 to $n
 - 
 
21 
  !distribute items $(f$i) into ses,add,tim
 - 
 
22 
  !if $tim>$now and $ses,$add!=$wims_session_expired,$httpd_REMOTE_ADDR
 - 
 
23 
   !appendfile $trapcheck :$(f$i)
 - 
 
24 
  !endif
 15 
  !endif
- 
 
 16 
  !for i=1 to $n
- 
 
 17 
    f$i=!record $i of $trapcheck
25 
 !next i
 18 
  !next i
- 
 
 19 
  !writefile $trapcheck
- 
 
 20 
  !for i=1 to $n
- 
 
 21 
    !distribute items $(f$i) into ses,add,tim
- 
 
 22 
    !if $tim>$now and $ses,$add!=$wims_session_expired,$httpd_REMOTE_ADDR
- 
 
 23 
      !appendfile $trapcheck :$(f$i)
- 
 
 24 
    !endif
- 
 
 25 
  !next i
26 
 !appendfile $trapcheck :$wims_session_expired,$httpd_REMOTE_ADDR,$future
 26 
  !appendfile $trapcheck :$wims_session_expired,$httpd_REMOTE_ADDR,$future
27 
!endif
 27 
!endif
28 
!usererror trapped $httpd_HTTP_USER_AGENT
 28 
!usererror trapped $httpd_HTTP_USER_AGENT
29 
 
 -