Show renew_session.html syntax highlighted
% # vim:set syntax=mason:
<%args>
$password => ''
</%args>
<%init>
# vim: set syntax=mason:
my $user = Apache::SiteControl->getCurrentUser($r);
my $logger = Log::Log4perl->get_logger('alphamail');
my $st = [gettimeofday];
if($user->getAttribute('password') eq $password) {
$user->setAttribute($r, 'lasttime', $st);
} else {
$m->redirect('/mail/verify_password.html');
}
my $args = $user->getAttribute('intended_args');
</%init>
<& $user->getAttribute('intended_dest'), @$args &>
<%once>
use Time::HiRes qw( gettimeofday tv_interval );
</%once>
See more files for this project here