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'; },
16 END { $verifier->disconnect() if $verifier; }
20 my $authreq = $verifier->new_request($q);
22 $authreq->check_ok() or return;
24 my $cookie = $authreq->secret_cookie();
26 my $hiddenhtml = $authreq->secret_hidden_html();
29 Content-Type: text/html
32 <html><head><title>TITLE</title></head>
36 <form method="POST" action="$url">