#!/usr/bin/perl

use CGI;
require "login_subs.pl";
require "main_subs.pl";

##### Prep #####
$cgiobject = new CGI;
#$cgiobject->use_named_parameters;

###### Connect to the database ######
&connect_to_db();

###### Main ######
if (&admin_user_valid()) {
  &continue();
}
else {
  &admin_send_to_login();
}

##### Disconnect #####
&disconnect_from_db();

###### Sub Routines ######
sub continue()
{
    local $page = &get_admin_template();
    local $content = &create_content();
    $page=~s/<!-- MAIN_CONTENT -->/$content/g;
    print $page;
}


sub create_content()
{
    local $content = qq!<center><span class=c-red-18>Administration Home Page</span></center><p>!;
    return($content);
}