#!/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 ---------- #
$logo = '<img src="../images/faviconbw.png" alt="logo" width="64" height="64" class="logo" />';
$css = '<link rel="stylesheet" ' .
    'type="text/css" href="../studylog3.css" />';
$title = 'Administrator login';
$subtitle = 'Login required';

# ---- print admin login form ---------- #	
print header();
print start_html (-title => $title,
                  -head => $css,
                  -class => 'oneColFixCtrHdr');
print '<div id="container"><div id="header">';
print h1("$logo $title");
print '</div> <!-- end #header -->' . "\n";
print '<div id="mainContent">' . "\n";
print h2("$subtitle");
print qq{
	<form id="form1" name="form1" method="post" action="smaint.cgi">
	<p><label for="adminuser">Administrator's username: </label>
    <input type="text" name="adminuser" id="adminuser" /></p>
	<p><label for="adminpass">Administrator's password: 
	<input name="adminpass" type="password" /></label></p>
	<p><input name="Clear form" type="reset" value="reset" />
	&nbsp; <input name="Login" type="submit" value="submit" /></p>
</form>
};

print '<!-- end #mainContent --></div>'.
    '<div id="footer">'.
    '<p>Created by Michael Pierce, Todd Vandenbark, Crystal White'.
    '<br />S517: Web Programming <br />'.
     'March 28th, 2009 <br />'.
    '<a href="http://studylog.firesidelibrarian.com/contact.htm">'.
    'Contact Us</a></p>'.
    '<!-- end #footer --></div>'.
    '<!-- end #container --></div>';

    print end_html();