#!/usr/bin/perl -w

#---------------------------------------------------------------
# Study Log: Check Student ID CGI
# By Michael Pierce and modified by Crystal White and Todd Vandenbark
# April 4, 2009 (last modified April 23, 2009)
# Task:
#   -Page where student's id, name, and greek house is displayed
#   -put informtion in the student.txt file if correct
#!/usr/bin/perl -w

#---------------------------------------------------------------
# Study Log: Check Student ID CGI
# By Michael Pierce and modified by Crystal White and Todd Vandenbark
# April 4, 2009 (last modified April 23, 2009)
# Task:
#   -Page where student's id, name, and greek house is displayed
#   -put informtion in the student.txt file if correct
#   -print out Main Menu page
#   -use cookies to maintain the state of pages
# Input: ID number
# Output: Student's information to student.txt, main menu page
#---------------------------------------------------------------

use CGI qw(:standard -debug);
use CGI::Carp qw(fatalsToBrowser);

# --- retrieve cookie ---------------------------------- #
$cookiedata=cookie('id');

# Set stylesheet
$css = '<link rel="stylesheet" ' .
    'type="text/css" href="../studylog.css" />';

# File for Student Information
$stf= "../student.txt";

# HTML form

$form1= "http://studylog.firesidelibrarian.com/cgi/submitHouse.cgi";
$form2= "http://studylog.firesidelibrarian.com/faq.htm";

# read in file

if (-r $stf) {

    # read in file
    open(IN,$stf) || die "can't read $stf";
    @sts = <IN>;
    close IN;
    chomp @sts;

    # %pws : key=ID, value=name
    foreach $key (@sts) {
        ($idnum,$user,$first,$last,$session) = split(/:/,$key);
    } # end foreach

}
 
# get input
$newuser = param("newuser");

open (OUT, ">>$stf") || die "can't append to $stf";
print OUT "$newuser\n";
close (OUT);


#Print HTML for Student Log Main Menu
    $title = "Study Log Main Menu";
    $content ='<p><inut type="hidden" name="id1" value="' . $cookiedata . '" />' . "\n" .
	   '<form action="clockIn.cgi" method="post"><input type="submit" id="buttonstyle2" value="Begin Studying"></form>' . "\n" .
	   '<form action="logOut.cgi" method="post"><input type="submit" id="buttonstyle2" value="Log Out">'.
	   '</form>' . "\n" .
	   '<form action="tally.cgi" method="post"><input type="submit" id="buttonstyle2" value="Check Tally"></form>' . "\n".
	   '<form action="continue.cgi" method="post"><input type="submit" id="buttonstyle2" value="Continue Studying"></form>' . "\n" .'<br /><br />'.
	   '<p><a href="' . $form2 .'">Help</a></p>';
    &pgprint(); 
	
sub pgprint {
	print header(); 
	print start_html(-title=>$title,
	                 -head =>$css);
	print '<div id="head">';
	print h1("$title");
	print '</div> <!-- end #header -->';
	print '<hr />';
	print h2("$subtitle");
	print "$content\n";
	print '<hr />' . "\n";
	print '<!-- end #mainContent --></div>'. "\n" .
    '<div id="footer">'. "\n" .
    '<p>Created by Michael Pierce, Roy (Todd) Vandenbark, and Crystal White.<br/>Indiana University Bloomington<br/>School of Library and Information Science<br />S517: Web Programming<br />'. "\n" .
     'April 27th, 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();
}