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) {
$logger->debug($user->getUsername() . ": Revalidating session at time $st->[0]");
$user->setAttribute($r, 'lasttime', $st);
} else { # FIXME: What if $user is not defined???
$logger->debug($user->getUsername() . ": Redirecting to verify_password");
$m->redirect("$base/mail/verify_password.html");
}
my $args = $user->getAttribute('intended_args');
my $dest = $user->getAttribute('intended_dest') || "$base/mail/index.html";
$logger->error($user->getUsername() . ": Attempt to redirect to autohandler directly! Rewriting URL");
$dest =~ s/autohandler$/index.html/ if($dest =~ /autohandler$/);
$logger->debug($user->getUsername() . ": Extracting intended dest: " . $dest);
$dest =~ s/^\Q$base\E//;
$user->setAttribute($r, 'intended_dest', 0);
</%init>
<& $dest, @$args &>
<%once>
use Time::HiRes qw( gettimeofday tv_interval );
our $base = $config->get('base_uri');
our $logger = Log::Log4perl->get_logger('alphamail');
</%once>
See more files for this project here