use strict;
use lib '/home/domain.com/cgi-bin/art/admin';
use Links qw/$IN $DB $CFG $USER/;
use GT::SQL;
use Links::SiteHTML;
use Links::Plugins;
use CGI::Carp qw(fatalsToBrowser);

local $SIG{__DIE__} = \&Links::fatal;

Links::init('/home/domain.com/cgi-bin/art/admin');

Links::init_user();


print $IN->header;
use Data::Dumper;
print Dumper($USER);

# no point in letting them past if they are not logged in... so check here...
if (!$USER->{Username}) {
print "WHY ARE WE HERE!!!!";
print $IN->redirect( );
exit;
}

if ($IN->param('action')) { &do_update; } else { &show_form; }