test.cgi

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5 use CGI;
   6
   7 my $verifier = CGI::Auth::Hybrid->new_verifier(
   8    assocdb_path => '/u/iwj/work/Ssh-gateway/cgi-auth-hybrid.git/dump',
   9    username_password_ok => sub { my ($c,$r,$u,$p)=@_; return $p eq 'sesame'; },
  10 );
  11
  12 my $q = CGI->new;
  13
  14 my $authreq = $verifier->new_request($q);
  15
  16 $authreq->check_ok() or return;
  17
  18 my $cookie = $authreq->secret_cookie();
  19 my $url = url();
  20 my $hiddenhtml = $authoreq->secret_hidden_html();
  21
  22 print <<END;
  23 Content-Type: text/html
  24 Set-Cookie: $cookie
  25
  26 <html><head><title>TITLE</title></head>
  27 <body><h1>H1</h1>
  28 <h1>again</h1>
  29
  30 <form method="POST" action="$url">
  31 $hiddenhtml
  32 END