smalltalk - 报告 Seaside Sessions，例如到期时间

Question

如何显示一份报告，其中显示所有当前的海边 session 及其预期到期时间？

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].

然而，这显示了错误的结果，因为它显示所有 session 同时过期，即距现在时间 600 秒。我找不到另一种方法来获取“剩余时间”。

世界大战？ (Lukas 会做什么)？

韩国尘土飞扬

Answer 1

下面的代码应该可以做到:

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 ] ]

请注意，上面的代码访问的内部数据结构将来可能会发生变化。此外，您可能需要添加额外的检查以使其适用于您的设置。

另请注意，您可能会得到负秒数。这意味着 session 应该消失，但它还没有被收割。