#!/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 '
' . "\n"; print '
' . "\n"; print h2("$subtitle"); print "\n"; print < Add new staff user Delete staff user Edit staff account Back to Main Menu
Report a problem. Main menu. Help function
EOF print end_html;