##
<%init>
my $log_in_status = My::App->authenitcate_user($r);
if ($log_in_status eq 'OK') {
$m->call_next; # proceeed to /auth_required/foo.html
}
else {
my $message = $m->comp('/get_message', key => $log_in_status);
$m->comp('/non_auth', message => $message);
}
####
<% $message %>
<%args>
$key
<%init>
my $message = $key ? $Messages{$key} : ' ';
<%once>
my %Messages = (
http_title => 'Welcome',
# Invalid user name or password OR username deleted from table
101 => 'Invalid username or password',
# No cookie sent to server
201 => 'An error has occured',
# The session id from cookie was invalid
301 => 'An error has occured'
);