#!/usr/bin/perl -wT
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;

use Time::Local;
use POSIX qw(strftime);

use constant DEBUG => 0;
use constant DEBUG  => 1;
use constant TRUE   => 1;
use constant FALSE  => 0;
use constant CR     => "\n";
use constant TAB	=> "\t";

# Time of file generation.
#--------------------------
my $pause;
my $gendate = time;
my @gendate = localtime($gendate);
my $timestamp = sprintf("%04d.%02d.%02d_%02d%02d", $gendate[5] + 1900,
        $gendate[4] + 1, $gendate[3], $gendate[2], $gendate[1] );


print header;
print start_html("Results");

# Set the PATH environment variable to the same path
# # where sendmail is located:
#
$ENV{PATH} = "/usr/sbin";

# my $srv_nm=`/bin/hostname -s`;
# $srv_nm.="$srv_nm\@eecs.wsu.edu";

my $REU_hm="http://reu.eecs.wsu.edu";

# open pipe to sendmail
open (MAIL, "|/usr/sbin/sendmail -oi -t ") or 
	&dienice("Can't fork sendmail: $!\n");

# define mail header
# my $recipient = 'apg@eecs.wsu.edu';

my $recipient = 'XXXX@eecs.wsu.edu';
my $mail_from = 'reu@eecs.wsu.edu';
my $mail_subject = "REU Online Application";



print MAIL "To: $recipient\n";
print MAIL "From: $mail_from\n";

# print subject and a blank line to end header
#----------------------------------------------
print MAIL "Subject: $mail_subject\n\n";

# body starts here...
#-------------------------

print MAIL "Local time @ file generation\: $timestamp" .CR;


# foreach my $p (param()) {
#    print MAIL "$p = ", param($p), "\n";
# }


my $form_A = {
	a1_name				=>"1. Name: ",
	a1_xemail_address			=>"2. Email adddress: ",
	a2_dob				=>"3. Date of Birth: ",
	a3_citizenship		=>"4. U.S. Citizen Permanent Resident: ",
	a4_hom_address00	=>"5. Home Address:" .CR,
	a4_hom_address01	=>TAB . "Street Address 1: ",
	a4_hom_address02	=>TAB . "Street Address 2: ",
	a4_hom_city			=>TAB . "City: ",
	a4_hom_state		=>TAB . "State: ",
	a4_hom_country		=>TAB . "Country: ",
	a5_school00			=>"6. School Name and  Address:" .CR,
	a5_school_name		=>TAB . "School Name: ",
	a5_school_address01	=>TAB . "Street Address 1: ",
	a5_school_address02	=>TAB . "Street Address 2: ",
	a5_school_city		=>TAB . "City: ",
	a5_school_state		=>TAB . "State: ",
	a5_school_country	=>TAB . "Country: ",
	a6_00				=>"7. Telephone Numbers:" .CR,
	a6_hom_fon			=>TAB . "Home: ",
	a6_school_fon		=>TAB . "School: ",
	a7_ref00			=>"8. Names of References:" .CR,
	a7_ref01			=>"Name: ",
	a7_ref02			=>"Name: ",
	a7_ref03			=>"Name: ",

	
};


my $form_B = {
	b1_gpa				=>"1. Current cumulative GPA: ",
	b2_major			=>"2. Major: name ",
	b3_credits			=>"3. Number of credit hours completed: ", 
	b4_class			=>"4. Classification in Fall 2007 semester: ",
	b5_accomplishments	=>"5. Academic and Extracurricular Accomplishments" . CR
							. TAB . TAB . "(including awards, prizes, scholarships): " . CR,
	b6_group_work		=>"6. Briefly explain any team work or group project you have been" . CR
							. TAB . TAB . "involved with:" . CR,
	b7_cs_experience	=>"7. Computer Systems, Programming Languages, and" . CR
							. TAB . TAB . "Operating Systems Experience:\n",
	

};

my $form_C = {
	c1_goals			=>"1. Career Goals:" .CR,
	c2_memberships		=>"2. Memberships in clubs, groups, and societies:" .CR,
	c3_add_info			=>"3. Please indicate any additional information which you" . CR
							.TAB .TAB. "consider to be helpful for your application:" .CR,
};








print MAIL "##################################################" .CR;

# $value = param('fieldname');

print MAIL " A. Personal Information:" .CR;
print MAIL "--------------------------" .CR .CR;

for my $form_key (sort keys %$form_A) {
	my $value = param($form_key);
	print MAIL "\t $form_A->{$form_key}";

	if (defined $value) {
		 print MAIL "$value".CR;
	} else {
		print MAIL CR;
	}
}


print MAIL CR . " B. Academic Background:"  .CR;
print MAIL "--------------------------" .CR .CR;

for my $form_key (sort keys %$form_B) {
	my $value = param($form_key);
	print MAIL "\t $form_B->{$form_key}";

	if (defined $value) {
		 print MAIL "$value".CR;
	} else {
		print MAIL CR;
	}
}

print MAIL CR . " C. General:" .CR;
print MAIL "-------------" .CR .CR;

for my $form_key (sort keys %$form_C) {
	my $value = param($form_key);
	print MAIL "\t $form_C->{$form_key}";

	if (defined $value) {
		 print MAIL "$value".CR;
	} else {
		print MAIL CR;
	}
}

print MAIL "##################################################" .CR;


# Close MAIL input stream so message gets mailed.
close(MAIL);

# print a thank-you page 

# <p>Return to our <a href="index.html">home page</a></p>

print <<EndHTML;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>



<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta name="keywords" content="WSU, Washington State, Washington State University " />

<title>Research Experiences for Undergraduates in Smart Environments at Washington State University</title>

<!-- replace the key below - replace the key below - replace the key below-->
<link href="http://reu.eecs.wsu.edu/core.css" type="text/css" rel="stylesheet" />

<!-- print style sheet -->
<link href="http://reu.eecs.wsu.edu/print.css" rel="stylesheet" type="text/css" media="print"/>

<!-- form style sheet -->
<link href="http://reu.eecs.wsu.edu/form.css" type="text/css" rel="stylesheet" />

<style type="text/css">
<!--
#content #main .homeimg {
	margin-top: -15px;
	margin-left: -20px;
	margin-bottom:0px;
	padding-bottom:0px;
	text-decoration: none;
	line-height:0px;
}
#content #main #homelinks {
	margin-left: -20px;
	margin-top:0px;
	background-color: #cfd2d5;
	padding: 7px 7px 0px 0px;
	font-family: Arial, Helvetica, sans-serif;
	
	text-decoration: none;
}
#content #main #homelinks ul {
	margin: 0px;
	padding: 0px 0px 5px 20px;
	text-decoration: none;
}
#content #main #homelinks li {
	display: inline;
	padding-left: 0px;
	padding-right: 15px;
	text-decoration: none;
}


form div.required fieldset legend {
  font-weight: bold;
}

-->
</style>
</head>

<body>

<!--Beginning of the WSU Identifier Zone. Refer to www.wsu.edu/identity/ for more information. -->
<noscript><div id='logo'><a href='http://www.wsu.edu'><img src='http://www.wsu.edu/navigatewsu/gen2/logo2.gif' alt="WSU Logo"/></a></div><div id='globalnav'><ul><li><a href="http://www.wsu.edu">Washington State University</a></li></ul></div></noscript>
<!--<script language="Javascript" src="http://www.wsu.edu/navigatewsu/gen2/wsuidentifier.js" type="text/javascript"></script>-->
<script language="Javascript" src="http://www.wsu.edu/navigatewsu/gen2/wsuidentifier.js" type="text/javascript"></script>
<script language="javascript" type="text/javascript">
	var strHeader; strHeader = getHeader();	document.write(strHeader);
</script>
<!--End of the WSU Identifier Zone. -->
<div id = "idwrapper"> 
<div id="siteID"> 
  <h2>School of Electrical Engineering and Computer Science</h2>
  <h1><strong>Research Experiences for Undergraduates</strong></h1>
</div>
	
<div id="toolbar">
	<ul>		
		<li><a href="#">Tool One</a>
		</li>
		<li><a href="#">Tool Two</a></li>		
		<li><a href="#">Tool Three</a></li>
		
 	</ul>
</div>
</div>


<div id="content">
  <div id="nav">
    <div id="featured">
      <ul>
        <li><a href="http://www.eecs.wsu.edu">School of EECS</a></li>
        <li><a href="http://www.cea.wsu.edu">CEA</a></li>
        <li><a href="http://www.wsu.edu">WSU</a></li>
      </ul>	
    </div>
    <ul>
      <li><a href="http://reu.eecs.wsu.edu/">Home</a>
	  		<a href="http://reu.eecs.wsu.edu/what_you_do.html">What You Do</a>
			<a href="http://reu.eecs.wsu.edu/what_you_get.html">What You Get</a>
			<a href="http://reu.eecs.wsu.edu/projects.html">Projects</a>
			<a class="ihttp://reu.eecs.wsu.edu/navcurrentpage" href="apply.html">Apply</a>
			<a href="http://reu.eecs.wsu.edu/contact.html">Contact</a>
			<a href="http://reu.eecs.wsu.edu/other_reus.html">Other WSU REUs</a>
	  </li>
    </ul>
  </div>
  <div id="main"> 
    <div align="center"> <br /><img src="http://reu.eecs.wsu.edu/sunse_clock.jpg" alt="" width="290" height="222" class="homeimg" />
    </div>
    <!-- <div id="homelinks">
        <ul>
          <li>link 1</li>
          <li>link 2</li>
          <li>link 3 </li>
          <li>link 4</li>
          <li>link 5 </li>
        </ul>
        <ul>
          <li>link 6</li>
          <li>link 7</li>
          <li>link 8 </li>
          <li>link 9</li>
          <li>link 10 </li>
        </ul>
    </div>-->
    <p><br />

	Thank you for applying to the REU program.<br> 
   	The REU directors will notify you when a decision has been made.<br> 
</p>
  </div>


<div id="localfooter">
     <a href="http://www.eecs.wsu.edu">School of EECS</a>, PO BOX 642752, <a href="http://www.wsu.edu">Washington State University</a>, Pullman, WA, 99164-2752 USA, 509-335-6602, <a href="mailto:webmaster\@eecs.wsu.edu">Contact Us</a></div>
</div>

<!--Beginning of the WSU Global Footer Zone. Refer to www.wsu.edu/identity/ for more information. -->
<noscript>	<div id="wsufooter">Copyright &copy;  Board of Regents, <a href="http://www.wsu.edu">Washington State University</a>  </div>
</noscript>
<script language="javascript" type="text/javascript">var strFooter;strFooter = getFooter();document.write(strFooter);</script>
<!--End of the WSU Global Footer Zone. -->

</body>
</html>
EndHTML

print end_html;

# The dienice subroutine handles errors.

sub dienice {
    my ($errmsg) = @_;
    print "<h2>Error</h2>\n";
    print "<p>$errmsg</p>\n";
    print end_html;
    exit;
}