如何
显示显示所有当前海边会话及其预期到期时间的报告?
self session application sessionsDo: [:each |
html text: 'Session For ',((each properties values at: 1) username),' Expires At: '.
html render: (Time now addSeconds: (each application cache expiryPolicy timeout)).
html break].
但是,这显示了错误的结果,因为它显示所有会话同时过期,即从现在的时间开始 600 秒。我找不到其他方法来获得"剩余时间"。
嘿嘿?(卢卡斯会怎么做)?
韩国克朗尘土 飞扬
以下代码应该可以执行此操作:
WAApplication allInstances do: [ :application |
application keysAndHandlersDo: [ :key :session |
| policy table |
policy := application cache expiryPolicy.
table := policy instVarNamed: 'lastAccessTable'.
Transcript
show: session; show: ' expires in ';
show: policy timeout - (Time totalSeconds - (table at: key));
show: ' seconds'; cr ] ]
请注意,上面的代码访问将来可能会更改的内部数据结构。此外,您可能需要添加其他检查以使其与您的设置配合使用。
另请注意,您可能会得到负秒数。这意味着会话应该消失,但尚未收获。