#!/usr/bin/perl -w

use CGI;
use CGI::Carp 'fatalsToBrowser';
use DBI;

push @INC, '/home/rprior/lib/perl';
require CGI::LoginManager;

# Definitions for database access
my $dbname = 'mydatabase';
my $dbhost = 'localhost';
my $dbuser = 'jdoe';
my $dbpass = 'secret';
my $authtable = 'Users';

# Connect to database
my $dbh = DBI->connect ("DBI:mysql:database=$dbname:host=$dbhost",
                        $dbuser,
                        $dbpass,
                        { RaiseError => 1, AutoCommit => 1 });

# CGI object for headers, cookies, etc.
my $q = CGI->new();

my $l = CGI::LoginManager->new({ 'dbh' => $dbh,
                                 'cgi' => $q});

$l->authorize();  # Only returns if authorized

# Show our "secret" content
print $q->header('text/html');
print $q->start_html('Hello');
print $q->h1('Hello, World!');
print $q->end_html;