#!/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
# and Crystal White
#####################################

# Set stylesheet
$css = '<link rel="stylesheet" ' .
    'type="text/css" href="../studylog3.css" />';
$logo = '<img src="../images/faviconbw.png" alt="logo" width="64" height="64" class="logo" />';
$form1 = '../../bsu_studylog.html';

$title = 'Log Out';
$subtitle = 'You are now logged out of the system.';

$cookie_user = cookie(-name    => 'studylog_username',
	                  -expires => "-1h",
					  -value   => '' );
$cookie_pwd =  cookie(-name    => 'studylog_passwd',
	                  -expires => "-1h",
					  -value   => '' );
					  
print header(-cookie => [$cookie_user, $cookie_pwd]);
print start_html (-title => $title,
                  -head => $css,
                  -class => 'oneColFixCtrHdr');
print '<div id="container"><div id="header">' . "\n";
print h1("$logo $title");
print '</div> <!-- end #header -->' . "\n";
print '<div id="mainContent">' . "\n";

print h2("$subtitle");
print "\n";
print qq|<p>Back to <a href="$form1">Main Login</a> page.</p>|;
print "\n";

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

print end_html();