8 my $dump = "$ENV{'CAHTEST_HOME'}/dump";
10 #require 'cgi-auth-hybrid.pm';
12 my $verifier = CGI::Auth::Hybrid->new_verifier(
13 assocdb_path => "$dump/assoc.db",
14 username_password_ok => sub { my ($c,$r,$u,$p)=@_; return $p eq 'sesame'; },
17 END { $verifier->disconnect() if $verifier; }
21 my $authreq = $verifier->new_request($q);
23 $authreq->check_ok() or return;
25 my $cookie = $authreq->secret_cookie();
27 my $hiddenhtml = $authreq->secret_hidden_html();
30 Content-Type: text/html
33 <html><head><title>TITLE</title></head>
37 <form method="POST" action="$url">