9 my $dump = "$ENV{'CAHTEST_HOME'}/dump";
11 my $verifier = CGI::Auth::Hybrid->new_verifier(
12 assocdb_path => "$dump/assoc.db",
13 username_password_ok => sub { my ($c,$r,$u,$p)=@_; return $p eq 'sesame'; },
18 END { $verifier->disconnect() if $verifier; }
22 my $authreq = $verifier->new_request($q);
24 $authreq->check_ok() or exit;
26 my $cookie = $authreq->secret_cookie();
28 my $hiddenhtml = $authreq->secret_hidden_html();
31 Content-Type: text/html
34 <html><head><title>TITLE</title></head>
38 <form method="POST" action="$url">