#! /usr/bin/perl -wT

#use strict;
use CGI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use DBI;
use vars qw($DBH $CGI);
use lib "./";
use tools;
#require Exporter;
#our @ISA = qw(Exporter);
#our @EXPORT = qw();

$DBH = DBI->connect('DBI:mysql:youtrivia','xxx','xxx', {'RaiseError' => 1, 'AutoCommit' => 0}) or die "Couldn't connect: " . DBI->errstr;
my $CGI = CGI->new();

my $action = $CGI->param("submit");

print $CGI->header;
print $CGI->start_html(-title=>"Add User");
my $tools = tools->new();

$tools->display_add_user($CGI,$DBH);
print $CGI->end_html;
exit(0);