test.cgi

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5 use CGI;
   6 use CGI::Auth::Hybrid;
   7 use URI;
   8
   9 my $dump = "$ENV{'CAHTEST_HOME'}/dump";
  10
  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'; },
  14     encrypted_only => 0,
  15     dir => $dump,
  16 );
  17
  18 END { $verifier->disconnect() if $verifier; }
  19
  20 my $q = CGI->new;
  21
  22 my $authreq = $verifier->new_request($q);
  23
  24 $authreq->check_ok() or exit;
  25
  26 my $cookie = $authreq->secret_cookie();
  27 my $url = $q->url();
  28 my $hiddenhtml = $authreq->secret_hidden_html();
  29
  30 print <<END;
  31 Content-Type: text/html
  32 Set-Cookie: $cookie
  33
  34 <html><head><title>TITLE</title></head>
  35 <body><h1>H1</h1>
  36 <h1>again</h1>
  37
  38 <form method="POST" action="$url">
  39 $hiddenhtml
  40 END