wip login/logout handling

[nj-awaymsg.git] / mason / autohandler

diff --git a/mason/autohandler b/mason/autohandler
index 933ed622e7c260a071f835be9241bea298c627fd..a7d58a44946f99c05d6245f3f1e131392cc5a952 100644 (file)
--- a/mason/autohandler
+++ b/mason/autohandler
@@ -13,7 +13,7 @@ sub login_ok_self ($$) {
     return $password eq 'sesame' ? ('self',undef) : (undef,'wrong');
 }
 
-my $ar = CGI::Auth::Flexible->new_verifier(
+our $verifier = CGI::Auth::Flexible->new_verifier(
     dir => "$ENV{'NJAWAYMSG'}/data",
 #    do_redirect => \&do_redirect_mason,
     handle_divert => sub { $m->auto_send_headers(0); return 0; },
@@ -23,18 +23,15 @@ my $ar = CGI::Auth::Flexible->new_verifier(
     login_ok => \&login_ok_self,
     );
 </%once>
-<%perl>
-my $cgi = $m->cgi_object();
-print STDERR ">".$cgi->url()."<\n";
-my $ar = $ar->new_request($cgi);
-if ($ar->check_ok()) {
-   $m->call_next();
-</%perl>
+<%shared>
+our $cgi = $m->cgi_object();
+our $ar = $verifier->new_request($cgi);
+</%shared>
+% if ($ar->check_ok()) {
+%    $m->call_next();
 <hr>
-<form method="POST" action="<% $cgi->url() %>">
+<form method="POST" action="<% $ENV{'URL'} %>">
 <% $ar->secret_hidden_html() %>
 <input type="submit" name="caf_logout" value="Logout">
 </form>
-<%perl>
-}
-</%perl>
+% }