Show renew_session.html syntax highlighted
% # vim:set syntax=mason:
<%args>
$password => ''
</%args>
<%init>
# vim: set syntax=mason:
my $user = Apache2::SiteControl->getCurrentUser($r);
my $logger = Log::Log4perl->get_logger('alphamail');
my $st = [gettimeofday];
if($user && $user->getAttribute('password') eq $password) {
$user->setAttribute($r, 'lasttime', $st);
} else {
$m->redirect("$base/mail/verify_password.html");
}
my $args = $user->getAttribute('intended_args');
my $dest = $user->getAttribute('intended_dest') || "$base/mail/index.html";
$dest =~ s/^\Q$base\E//;
</%init>
<& $dest, @$args &>
% $user->setAttribute($r, 'intended_dest', 0);
<%once>
use Time::HiRes qw( gettimeofday tv_interval );
our $base = $config->get('base_uri');
</%once>
See more files for this project here