#!/usr/bin/perl -w
# this file is part of CGI::Auth::Auto, look up on cpan for more info
# when you're done with getting this to work, i suggest you get rid of the begin block.
BEGIN { use CGI::Carp qw(fatalsToBrowser); eval qq|use lib '$ENV{DOCUMENT_ROOT}/../lib';|; } # or wherever your lib is
use strict;
use CGI::Auth::Auto;
use CGI qw(:all);
my $auth = new CGI::Auth::Auto;
# if you want to use the template included in the distro,
# put it in cgi-bin/auth/login.html
# as long as this script resides in cgi-bin/, it will be found and used
$auth->check;
my $html =
header().
start_html().
h1("hello ".$auth->username).
p('You are logged in now.').
p('<a href="?logout">logout?</a>');
print $html;
exit;