<%once>
use CGI::Auth::Flexible;

sub do_redirect_mason ($$$$) {
    my ($c, $ar, $new_url, $cookie) = @_;
    $m->auto_send_headers(0);
    CGI::Auth::Flexible::do_redirect_cgi($c,$ar,$new_url,$cookie);
}

my $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; },
#    print => sub { my ($c,$ar,@t) = @_; $m->print(@t); },
    encrypted_only => 0,
    );
</%once>
<%perl>
my $cgi = $m->cgi_object();
my $ar = $verifier->new_request($cgi);
if ($ar->check_ok()) {
   $m->call_next();   
}
</%perl>