#!/usr/bin/perl -w

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

########### Credits #################
# Script written by R. Todd Vandenbark
#####################################

# -------- initialize variables ---------
$bsuIDnumber ="";    # BSU ID # input
$studentName="";     # student's last name input
$organization="";    # Greek organization input
@studentlist=();     # list of students
$bsunum2="";         # search variable: ID
$name2="";           # search variable: last name
$org2="";            # search variable: Greek org
@matches=();         # list of matches
$found=0;            # match indicator
$title;              # page title
$subtitle;           # page heading


# --------- initialize error flagss -----
$badIDnum = 0; $badlast=0; $badOrg=0; $error=0;

# ----- get form and data --------------
$form = "../manualStudentLogin.html";
$bsuIDnumber = param("bsuIDnumber"); chomp $bsuIDnumber;
$bsuIDnumber = &cleaninput($bsuIDnumber);
$studentName = param("studentName"); chomp $studentName;
$organization = param("organization"); chomp $organization;

# ---- form error checking --------------
if ((!$bsuIDnumber) && (!$studentName) && (!$organization)) { # if no input
	$title = 'oops...';
	$subtitle = 'Invalid input';
	$content = '<p> Please enter a valid BSU ID#, last name, or ' .
		'organization name.</p>' . "\n" .
		'<p><a href="../manualStudentLogin.html">Back to search form.</a></p>';
	&errorpgprint();
	exit;
}
 
if (($bsuIDnumber =~ /\D+/) || ($bsuIDnumber =~ /^\d{14,}$/)) { # invalid ID #
	$badIDnum=1; $error++; }
	
elsif (($studentName ne "") && ($studentName !~ /^\w+[ -]?\w*$/)) { # invalid name input
	$badlast=1; $error++; }
	
elsif (($organization ne "") && ($organization !~ /^\w+ \w+ ?\w*$/)) { # invalid org name
	$badOrg=1; $error++; }

if ($error) { # if errors in form
	$title = 'Form error';
	$subtitle = 'Invalid form input';
	$content = '<p>Invalid ';
	if ($badIDnum) { #invalid ID number entered
		$content .= "BSU ID number ($bsuIDnumber) "; }
	if ($badlast) { # invalid last name entered
		$content .= "last name ($studentName) "; }
	if ($badOrg) { #invalid organization name entered
		$content .= "organization name ($organization) "; }
	$content .= 'entered. Please <a href="../manualStudentLogin.html">try again</a>.</p>';
	&errorpgprint();
	exit;	
}

# ------------ processing goes from here... --------

# ---- input student list file ----
$inStudents = '../../student.txt';

open (IN, "$inStudents") ||
   die "Can't open $inStudents: $!\n";
@studentlist = <IN>;
close IN;

# ---- search for matches ---------
foreach $key (@studentlist) { # find
	($bsunum2,$bsuname2,$fname2,$lname2,$org2) = split (/:/, $key);
	if ($bsuIDnumber eq $bsunum2) { # add to list
		push (@matches, $key); 
		$found++;
	}
	elsif ($studentName eq $lname2) { # add to list 
		push (@matches, $key); 
		$found++;
	}
	elsif ($organization eq $org2) { # add to list 
		push (@matches, $key); 
		$found++;
	}
} # ---- end foreach ---- #

# ---- output search results ---- #
if (!$found) { # if no results, print page
	$title ='Search results';
	$subtitle = 'Unable to find:';
	$content = "<p>$bsuIDnumber $studentName $organization<\/p> \n" .
	'<p><a href="../manualStudentLogin.html">Search again</a> -== OR ==- back to <a href="sl2.cgi">Main Menu</a></p>';
	&errorpgprint();
}
else { # one or more matches found, show list
	$title = 'Search successful';
	$subtitle = 'Results';
	$action = 'studentlogin.cgi';
	$method = 'post';
	$encoding = 'application/x-www-form-urlencoded';
	my $css = '<link rel="stylesheet" ' .
    	'type="text/css" href="../studylog3.css" />';
	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("$subtitle");
    print '</div> <!-- end #header -->' . "\n";
    print '<div id="mainContent">' . "\n";
	print startform($method,$action,$encoding);
	print '<ul>';
	foreach $key (@matches) {
		($bsunum3,$username3,$first3,$last3,$org3) = split(/:/,$key);
	 	print '<li>'. "\n" .
      	'<input type="radio" name="foundstudent" value="'.
	  	$key . '" /> ' . "$last3, $first3 of $org3, ID\#$bsunum3 \n";
	 	print "<\/li> \n";
	}# -- end foreach --
	print '</ul>';
	print '<p>';
	# print reset;
	print ' &nbsp; ';
	print submit(-name=>'submit', -value=>'Login');
	print ' &nbsp; ';
	print submit(-name=>'submit', -value=>'Logout');
	print end_form();
	&reportBugs();
	&footerprint();
	
	print end_html;  # ---- end of script -------
}


# ------------ subroutines used -----------
sub cleaninput {
    my $string = $_[0];
    $string =~ s/<([^>]|\n)*>//g ; # strip HTML  
    $string =~ s/^\s+// ; # strip leading spaces
    $string =~ s/\s+$// ; # strip trailing spaces
    return $string;
}

# ------ print page -------

sub errorpgprint {
    my $css = '<link rel="stylesheet" ' .
    'type="text/css" href="../studylog3.css" />';
    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("$subtitle");
    print '</div> <!-- end #header -->' . "\n";
    print '<div id="mainContent">' . "\n";
	
    print "$content \n";

    print '<!-- end #mainContent --></div>'. "\n";
    &footerprint();
    print end_html();
} # ------ end sub --------

sub reportBugs { # ---- prints table for bug reporting -----------
print <<EOF;

      <table>
      <tr>
        <td class="w33l">
           <form action="bugReport.cgi" method="post" name="bugReport" id="bugReport">
		   <input name="pageFrom" type="hidden" value="manualLogin.cgi" />
           <a href="javascript:document.bugReport.submit()">
			<img src="../images/problemButton1.gif" alt="Report a problem." /></a>
			</form>
          </td>
        <td class="w33ctr"><a href="sl2.cgi"><img src="../images/mainmenudiamond.gif" alt="Main menu." width="100" height="75" /></a></td>
        <td class="w33rt"><a href="../helpfaq.html"><img src="../images/helpButton1.gif" alt="Help function" /></a></td>
      </tr>
    </table>
    
EOF
} # ----- end bug reporting subroutine ----------------


sub footerprint { # ---- prints footer with credits--------------
	print '<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>';
}