#!/usr/bin/perl -w use strict; use warnings; use CGI; my $dump = "/u/iwj/work/Ssh-gateway/cgi-auth-hybrid.git/dump"; require 'cgi-auth-hybrid.pm'; my $verifier = CGI::Auth::Hybrid->new_verifier( assocdb_path => "$dump/assoc.db", username_password_ok => sub { my ($c,$r,$u,$p)=@_; return $p eq 'sesame'; }, ); END { $verifier->disconnect() if $verifier; } my $q = CGI->new; my $authreq = $verifier->new_request($q); $authreq->check_ok() or return; my $cookie = $authreq->secret_cookie(); my $url = url(); my $hiddenhtml = $authreq->secret_hidden_html(); print <TITLE

H1

again