用perl写一个登录校验程序的问题

lhmwzy

怎样实现在一定时间内如何用户不动作，则本次的登录检验码失效，需重新获得登录校验码？

tojeff

单纯用Perl基本上没有可能，因为检验码是在向服务器端发送请求的时候产生的，同时在客户端产生一个隐藏的字域，用来检验的

如果你在客户端要JavaScript写一个小程序，当达到一定的时间以后，修改那个隐藏的字域value

georgek

最初由 lhmwzy 发表
怎样实现在一定时间内如何用户不动作，则本次的登录检验码失效，需重新获得登录校验码？

兄弟能否說詳細一些

tsingson

用 perl 可以实现。

具体作法:
1. 用 session 处理，设置 timeout 时间，如果在 timeout 时间后没有再次操作，就取消验证码。  具体操作看一下 apache::sessions 模块

2. 用 cookie 操作，在 cookie 中记录用户操作时间，在第二次操作进取出时间得到与当前时间的差，如果差大于 timeout 时间就可取消

3. 使用 聊天室那样的定时刷新技术，在刷新时间段内操作，则检证码有效，否则产生新验证码