#!/usr/bin/perl -w

#---------------------------------------------------------------
# Study Log: Check Student ID CGI
# By Crystal White and Modified by Todd Vandenbark
# April 4, 2009 (last modified April 26, 2009)
# Task:
#   -check for an ID in the ldap.txt file (from BSU, means they are valid students with ID numbers)
#   -check to see if person has loged in before (student.txt), if so bypass the welcome page and print the main menu
#   -If not, print out a Welcome page where we will get there information for the student.txt file
#   -use cookies to maintain the state of pages
# Input: ID number
# Output: ID number, info to student.txt, welcome page or main menu page
#---------------------------------------------------------------

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

# ---- define variables ------------------
$found=0;          # counter for number of matches
$cookiedata="";    # for retrieving info from cookie
$title="";         # page title
$subtitle="";      # text in h1 heading
$id="";            # input from form


# Input from Form
$id = param ("id");

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

# text file
$stf = '../ldap.txt';

# user file
$users = '../student.txt';

# HTML forms
$form1 = "http://studylog.firesidelibrarian.com/studentid.cgi";
$form2 = "http://studylog.firesidelibrarian.com/faq.htm";

# ----------- read in user id file --------------
if (-r $stf) {

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

$cookiedata=cookie('id');
#print "cd= $cookiedata\n";

if (!$cookiedata) {
	# ---- get ID # entered ----------------------
	$cookiedata = param("id"); chomp $cookiedata; 
}
#print "param(id) = $cookiedata\n";

# ---- search for match ------------------
foreach $key (@sts) {
	($num,$username,$fname,$lname) = split (/:/, $key);
	if ( $cookiedata eq $num ) {
		$found++;
        } # end if
} # ---- end foreach -------

#print "found = $found\n";

if (!$found) { # if no match, present error message
    $title = "Invalid entry";
    $content = '<p>Please 
		<a href="../manualid.html">go back and try again</a></p>';
	&pgprint;

} # ------- end if ------   

# ---- tv -----------------------------
# read in list of current system users
# -------------------------------------
else {

@usr = ();
if (-r $users) {
	# read in file
	open(IN2,$users) || die "Can't read $users: !$\n";
	@usr = <IN2>;
	close IN2;
	chomp @usr;
	
	%useh = (); # hash of current users of Study Log system
	foreach $key (@usr) {
		($num,$username,$last,$first,$org,$session) = split(/:/, $key);
		$useh{$num} = $first . $last;
	}
# Create cookie
$cookie = cookie(-name=>'id',-value=>"$cookiedata",-expires=>'+5M');
}

#print "cookie = $cookie \n";

#Print HTML and Errors

if ( exists $useh{$id} ) { # if user already in Study Log system
    $title = "Study Log Main Menu";
    $content ='<p>' . "\n" .
	   '<form action="clockIn.cgi" method="post"><input type="submit" id="buttonstyle2" value="Begin Studying">' . "\n" .
	   '<inut type="hidden" name="id1" value="' . $cookiedata . '" /></form>' . "\n" .
	   '<form action="logOut.cgi" method="post"><input type="submit" id="buttonstyle2" value="Log Out">'.
	   '<inut type="hidden" name="id1" value="' . $cookiedata . '" /></form>' . "\n" .
	   '<form action="tally.cgi" method="post"><input type="submit" id="buttonstyle2" value="Check Tally">' . "\n".
	   '<inut type="hidden" name="id1" value="' . $cookiedata . '" /></form>' . "\n".
	   '<form action="continue.cgi" method="post"><input type="submit" id="buttonstyle2" value="Continue Studying">' . "\n" .'<br /><br />'.
	   '<inut type="hidden" name="id1" value="' . $cookiedata . '" /></form>' . "\n" .
	   '<p><a href="' . $form2 .'">Help</a></p>';
    &pgprint(); 
	exit;
}
else { # create new student user
	# ---- read org file ------
	$orgfile = "../org.txt";
	open (IN2, "$orgfile") ||
    die "Can't open $orgfile: $!\n";
	@orglist = <IN2>;
	close IN2;
	
    print header(-cookie=>$cookie);
    print start_html(-title=>"Welcome New User!",
					 -head =>$css);
	print '<div id="head">' . "\n";
    print h1("Welcome New User!");
	print "\n" . '</div> <!-- end #header -->' . "\n";
	print h2("Set up account");
	print "\n";
	print qq|<form action="submitHouse.cgi" method="post">|;
    print "<p>Please select Your Greek House: <br />\n";
    print "<select name='greekhouse' size='1' id='greekhouse'>\n";
	foreach $key (@orglist) {
	   ($orgname,$contfn,$contln,$cphone,$contem) = split (/:/, $key);
	   $org2us = $orgname; ### form won't pass spaces in Greek names, had to
	   $org2us =~ s/ /_/g; ### substitute '_', then remove in next cgi
        print '<option value="' . $org2us . '">' . $orgname . '</option>' . "\n";
		}
    print '</select></p>' . "\n";
	print '<input name="studentid" type="hidden" id="studentid" value="' .
		$id . 'idnum" />' . "\n";
    print qq|<p><a href="$form1">Back</a> |;
    print qq|<a href="$form2">Help</a></p>|;
    print qq|<input type="submit" value="Submit" id="buttonstyle2">|;
	print "<\/form> \n";
    print end_html();
}
}

# ---------------------------------------------------------------
#          subroutine to print error page content
# ---------------------------------------------------------------
sub pgprint {
	if ($cookie) { print header(-cookie=>$cookie); }
	else { 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();
}