#!/usr/bin/perl -w
use CGI qw(:standard -debug);
use CGI::Pretty ":standard";
use CGI::Carp qw(fatalsToBrowser);
########### Credits #################
# Script written by R. Todd Vandenbark
#####################################
#----------- define variables ---------- #
my $adminuser; # administrator's username input
my $adminpass; # administrator's password input
$logo = '
';
$css = '';
$title = 'Staff System';
$subtitle = 'Staff accounts';
$inadmin=cookie('adminuser');
$inadpass=cookie('adminpass');
if (!$inadmin || !$inadpass) {
# ---- get username & password entered ----
$inadmin = param("username"); chomp $inadmin;
$inadpass = param("passwd2"); chomp $inadpass;
}
$cookie_admin = cookie (
-name => 'staffadmin',
-value => 'access1',
-expires => '+1h');
$cookie_adpass = cookie (
-name => 'adpass',
-value => 'iupui',
-expires => '+1h');
print header( -cookie=>[$cookie_admin, $cookie_adpass]);
print start_html (-title => $title,
-head => $css,
-class => 'oneColFixCtrHdr');
print '