#!/usr/bin/perl -w

#-------------------------------------------------------------------------------------------------
# -mail-form.cgi by John Callendar 
# -Javascript History/Link from:
#      http://www.stickysauce.com/tutorials/programming/javascript/createhistorybutton.htm
#-------------------------------------------------------------------------------------------------
# Modified by:
# L548 - Computer Programming for Information Management - Spring 2003 Project Group
#  ACARI Group Members:
#	Michelle Cooper - Project Manager
#	Matt Devers - Programmer
#	Kevin Miller, Jr. - Webmaster
# Created on April 2, 2003
#	Modified on August 1, 2003
#-------------------------------------------------------------------------------------------------
# Description:
# -Request Form for the Afghanistan and Central Asia Information website: (mail_form.cgi)
#	This program will process all requests for passwords, information,
#	and other general information and send the form results via email 
#       to the Near Eastern Languages and Cultures Department for processing.
# -Request Form must check for: 
# 	1. Valid Full Name (First and Last Names)
#	2. Valid Email Address (user@domain.com)
#--------------------------------------------------------------------------------------------------
# Contact Information:
#	If problems, contact Kevin Miller, Jr., at kevinmillerjr@hotmail.com
#--------------------------------------------------------------------------------------------------

#--------------
# configuration
#--------------

$sendmail  = '/usr/sbin/sendmail'; # where is sendmail?
$recipient = 'shahrani@indiana.edu';  # where form data is sent to (will need to be changed to Dr. Shahrani's  email address)
$sender    = 'nelcmesp@indiana.edu';  # default sender (will need to be changed to NELC email address)
$webmaster = 'kevinmillerjr@hotmail.com'; # webmaster email address
$site_name = 'Afghanistan and Central Asia Research Information'; # name of site to return to after
$site_url  = '/~afghan/';          # URL to return to after submitting form
$form = '/~afghan/requestform.htm'; # URL for HTML to Email form
$update = 'August 1, 2003,'; # Last Updated Date for web site
$updateby = 'Kevin Miller, Jr.'; # Person who updated web site

#--------------
# script begins
#--------------

use CGI qw(:standard);

#----------
# get input
#----------

$name = param 'name'; #requester's name
$email = param 'email'; #requester's email address 
$request = param 'request'; #requester's request
$comments = param 'comments'; #requester's reason for request

#------------------------
# check for missing input
#------------------------

if ($name eq "") {push(@missing,"Name"); }
if ($email eq "") { push(@missing,"Email"); }
if ($request eq "") { push(@missing,"Reason for Request"); }
$missing= join(", ",@missing); #this will place all missing information in an array and list
                               #and list in the next part of the program

#------------------------------
# reprompt for input if missing
#------------------------------
if ($missing) {
   
    &htmlopen;  #starts the html output page

    &htmlbody1; 

    &htmlbody2a; #prints missing input

    &htmlfin;    
    
    exit;
}

#------------------------------------------
# Check for bad full name and email address
#------------------------------------------

#----------------------------------
# 1. Check for bad full name format
#----------------------------------
if ($name !~ / /i) {
    $badname=1;
    $msg1 ="<i>'$name'</i> is not a Valid Full Name.<br>Please use your First and Last Name.<br>Example: Bob Hoosier";
}

#--------------------------------
# 2. check for bad address format
#--------------------------------
if ($email !~ /^[^@]+@[^@]+\.[a-zA-Z]{2,4}$/) {
    $bademail=1;
    $msg2 ="<i>'$email'</i> is not a Valid Email.<br>Please use this format: user\@domain.com";
}

#---------------------------------------
# 3. print bad fullname and/or bad email
#---------------------------------------

if ($badname||$bademail) {

    &htmlopen;  #starts the html output page

    &htmlbody1; 

    &htmlbody2b; #prints bad fullname and/or email format

    &htmlfin;    

    exit;
}

#----------------------------------
# END-Check for bad email address
#----------------------------------

#---------------------------------
# set an appropriate From: address
#---------------------------------

if ($email) {
    # the user supplied an email address
    if ($name) {
        $name =~ s/"//g; # lose any double-quotes in name
        $sender = "\"$name\" <$email>";
    } else {
        # user did not supply a name
        $sender = "$email";
    }
}

#-----------------------
# send the email message
#-----------------------

open MAIL, "|$sendmail -oi -t" or die "Can't open pipe to $sendmail: $!\n";

print MAIL <<"EOP";
To: $recipient
Cc: $webmaster
From: $sender
Subject: ACARI Request Form

Request Form from $name:

Name: $name

Email: $email

Request: 

$request

Comments: 

$comments

EOP

close MAIL or die "Can't close pipe to $sendmail: $!\n";

#-----------------------------------
# now show the HTML Thank-you screen
#-----------------------------------

&htmlopen;  #starts the html output page

&htmlbody1; 

&htmlbody2c;

&htmlfin;

#------------
# subroutines
#------------
sub htmlopen
  {
  	print header();
	
    print "<html>";
    print "   <head>";
    print "		<title>Welcome to M. Nazif Shahrani's &quot;Afghanistan and Central Asia Resource Information&quot; Web site";
    print "     </title>";
    print " <base target= \"new\">";
    print "   </head>";
  }

sub htmlbody1	# generates the html to place links in the lower left portion of the ACARI page.
				# calls sub links, which searches keywords and generates links
  {
print<<EOP;		# ACARI webpage html
<script language="JavaScript" type="text/JavaScript">
<!--

<!--
function MM_displayStatusMsg(msgStr) { //v1.0
  status=msgStr;
  document.MM_returnValue = true;
}
//-->
<!-- The below script changes the scrollbar to match the background color in Internet Explorer -->
//-->
</script>
</head>

<style>
BODY{
scrollbar-face-color:#CCCCFF;
scrollbar-shadow-color:green;
}
</style>
<!-- The below script creates the dynamic hover for all hyperlinks -->
<style>
a:hover{
color:red;
}
</style>

<body bgcolor="CCCCFF">
<div align="center">
  <table width="765" border="1" cellpadding="0" cellspacing="0" bordercolor="#000033">
    <tr>
      <td width="761"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="150" bgcolor="B6d5f8"><a name="top"></a><a href="http://www.indiana.edu/~afghan/index.htm" onMouseOver="MM_displayStatusMsg('Click to Return to Afghanistan and Central Asia Research Information Homepage');return document.MM_returnValue"><img src="http://www.indiana.edu/~afghan/images/banner.gif" alt="Return to Afghanistan and Central Asia Home Page" width="150" height="116" border="0"></a></td>
            <td width="610" valign="top" bgcolor="B6d5f8"><div align="center">
                <h2><font face="Arial, Helvetica, sans-serif">Afghanistan and Central Asia Research Information</font></h2>
                <h3><font face="Arial, Helvetica, sans-serif">Indiana University, Bloomington, Indiana</font></h3>
                <p><font face="Arial, Helvetica, sans-serif">URL: http://www.indiana.edu/~afghan</font></p>
              </div>
            </td>
          </tr>
        </table>
          <table width="101%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFCC">
            <tr>
              <td bordercolor="#FFFFCC" bgcolor="#FFFFCC"><div align="center">
                <p><font face="Arial, Helvetica, sans-serif"><a href="http://www.indiana.edu/~afghan/sitemap.htm" onMouseOver="MM_displayStatusMsg('ACARI Site map');return document.MM_returnValue">Site
                      Map</a> | <a class="navsmall" href="http://www.indiana.edu/~afghan/index.htm" onMouseOver="MM_displayStatusMsg('Return to Afghanistan and Central Asia Research Information Homepage');return document.MM_returnValue" >Home</a> | <a href="http://www.indiana.edu/~afghan/nazif_shahrani.htm" onMouseOver="MM_displayStatusMsg('Information about Nazif Shahrani - Curriculum Vita Available Here');return document.MM_returnValue">About
                      Nazif Shahrani</a> | <a href="http://www.indiana.edu/~afghan/publications_nazif_shahrani.htm" onMouseOver="MM_displayStatusMsg('Publications by Nazif Shahrani');return document.MM_returnValue">Publications</a> | <a href="http://www.indiana.edu/~afghan/lectures_nazif_shahrani.htm" onMouseOver="MM_displayStatusMsg('Nazif Shahrani\'s Lectures Across the Country');return document.MM_returnValue">Lectures</a>                | <a href="http://www.indiana.edu/~afghan/interviews_nazif_shahrani.htm" onMouseOver="MM_displayStatusMsg('Interviews with Nazif Shahrani');return document.MM_returnValue">Interviews</a> | <a href="http://www.indiana.edu/~afghan/resource_links.htm" onMouseOver="MM_displayStatusMsg('Various Resources and Links on Afghanistan and Central Asia');return document.MM_returnValue">Resource
                      Links</a> | <a href="http://www.indiana.edu/~afghan/maps.htm" onMouseOver="MM_displayStatusMsg('Afghanistan and Central Asia Maps');return document.MM_returnValue">Maps</a> | <a href="http://www.indiana.edu/~afghan/contact.htm" onMouseOver="MM_displayStatusMsg('Contact Nazif Shahrani');return document.MM_returnValue">Contact</a></font></p>
              </div>
              </td>
            </tr>
        </table>
 
          <table width="100%" bgcolor="#FFFFFF" border="0" cellspacing="0" cellpadding="0">
            <tr><td>
EOP
  }

sub htmlbody2a
  {
  #<!-- InstanceBeginEditable name="Body" -->

print<<EOP;
   <blockquote>
   <p>&nbsp;</p>
   <h2>Incomplete Input</h2>
   <P>You did not enter: <b><i>$missing</i></b></P>
   <form> <!-- Javascript History function begins -->
   <input type="button" value="Please Go Back and Try Again"
   onClick="javascript: history.go(-1)">
   </form > <!-- End of Javascript History function -->
   </blockquote>

EOP

#<!-- InstanceEndEditable -->

print<<EOP;
</td>
  </tr>
  <tr bordercolor="#00CCFF">
    <td height="551" align="center" valign="top" bordercolor="#B6d5f8" bgcolor="#B6d5f8"><!-- InstanceBeginEditable name="Counter" --><!-- InstanceEndEditable --></td>
    <td align="center" valign="top">
<hr width="75%"> 
      <blockquote> 
        <p align="left">&copy; <a href="http://www.indiana.edu/copyright.html" target="_blank">Copyright</a> 
          2002-2003 by the <a href="http://www.indiana.edu/%7Eanthro/home.html" target="_blank">Dept. 
          of Anthropology</a>, <a href="http://www.indiana.edu/%7Eceus/" target="_blank">Dept. 
          of Central Eurasian Studies</a>, <a href="http://www.indiana.edu/%7Enelcmesp/" target="_blank">The 
          Department of Near Eastern Languages and Cultures</a>, <a href="http://www.iub.edu/" target="_blank">The 
          Trustees of Indiana University</a>, and M. Nazif Shahrani.</p>
        <p align="left">Contact <a href="http://www.indiana.edu/~afghan/requestform.htm" target="_parent">Webmaster</a> 
          if you have any questions or problems with this website.</p>
        <p align="left">Last Updated on <!-- InstanceBeginEditable name="Update Date" -->$update, <!-- InstanceEndEditable --> by <!-- InstanceBeginEditable name="Author" -->
           $updateby<!-- InstanceEndEditable -->.</p>
        <hr width="75%">
        <p><a href="#top">Top</a></p>
        <p>
<!-- InstanceBeginEditable name="Banner" --><!-- InstanceEndEditable --></p>
        <div align="center"></div>
      </blockquote>
      </td>
  </tr>
</table>
EOP

  }

sub htmlbody2b
  {

#<!-- InstanceBeginEditable name="Body" -->

print<<EOP;
   <blockquote>
   <p>&nbsp;</p>
   <h2>Incorrect Input</h2>
   <P><b>$msg1</b> </P>
   <P><b>$msg2</b> </P>
   <form> <!-- Javascript History function begins -->
   <input type="button" value="Please Go Back and Try Again"
   onClick="javascript: history.go(-1)">
   </form> <!--End of Javascript History function -->
   </blockquote>

EOP

#<!-- InstanceEndEditable -->  ## here ends the cell in which the links appear
print<<EOP;
</tr>
        </table>
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td bgcolor="B6d5f8"><p><font face="Arial, Helvetica, sans-serif">&copy; <a href="http://www.indiana.edu/copyright.html" target="_blank" onMouseOver="MM_displayStatusMsg('Indiana University Copyright Information');return document.MM_returnValue">Copyright</a> 2002-2003
                    by the <a href="http://www.indiana.edu/%7Eanthro/home.html" target="_blank" onMouseOver="MM_displayStatusMsg('Department of Anthropology');return document.MM_returnValue">Dept.
                    of Anthropology</a>, <a href="http://www.iub.edu/%7Eceus/" target="_blank" onMouseOver="MM_displayStatusMsg('Department of Central Eurasian Studies');return document.MM_returnValue">Dept.
                    of Central Eurasian Studies</a>, <a href="http://www.indiana.edu/%7Enelcmesp/index.shtml" target="_blank" onMouseOver="MM_displayStatusMsg('Department of Near Eastern Languages and Cultures');return document.MM_returnValue">The
                    Department of Near Eastern Languages and Cultures</a>, <a href="http://www.iub.edu/" target="_blank" onMouseOver="MM_displayStatusMsg('Indiana University, Bloomington, Indiana');return document.MM_returnValue">The
                    Trustees of Indiana University</a>, and <a href="http://www.indiana.edu/~afghan/contact.htm" onMouseOver="MM_displayStatusMsg('Contact Nazif Shahrani');return document.MM_returnValue">M.
                    Nazif Shahrani</a>.</font></p>
                <p><font face="Arial, Helvetica, sans-serif">Contact <a href="http://www.indiana.edu/~afghan/contact.htm" onMouseOver="MM_displayStatusMsg('Contact Webmaster');return document.MM_returnValue">Webmaster</a> if
              you have any questions or problems with this website.</font></p></td>
            </tr>
        </table>
      </tr>
  </table>
  <table width="760" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td>Last Updated on <!-- TemplateBeginEditable name="Date" -->$update<!-- TemplateEndEditable --> by <!-- TemplateBeginEditable name="Webmaster" -->$updateby<!-- TemplateEndEditable --></td>
    </tr>
  </table>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
</div>
EOP
} # end sub body1

sub htmlbody2c
  {
	#<!-- InstanceBeginEditable name="Body" -->

print<<EOP;
   <blockquote>
   <p>&nbsp;</p>
   <h2>Thank you</h2>
   <P>Thank you <b>$name</b> for your form submission.</P>
   <P>Your Request</i> will be processed shortly.</P>
   <P>All responses will be sent to this email address: <b>$email</b></P>
   <hr>
   <P><b>Name:</b> $name</P>
   <P><b>Email:</b> $email</P>    
   <P><b>Request:</b></P>
   <P>$request</P>
   <P><b>Comments:</b></P>
   <P>$comments</P>
   </blockquote>

EOP

#<!-- InstanceEndEditable -->  ## here ends the cell in which the links appear
print<<EOP;
</tr>
        </table>
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td bgcolor="B6d5f8"><p><font face="Arial, Helvetica, sans-serif">&copy; <a href="http://www.indiana.edu/copyright.html" target="_blank" onMouseOver="MM_displayStatusMsg('Indiana University Copyright Information');return document.MM_returnValue">Copyright</a> 2002-2003
                    by the <a href="http://www.indiana.edu/%7Eanthro/home.html" target="_blank" onMouseOver="MM_displayStatusMsg('Department of Anthropology');return document.MM_returnValue">Dept.
                    of Anthropology</a>, <a href="http://www.iub.edu/%7Eceus/" target="_blank" onMouseOver="MM_displayStatusMsg('Department of Central Eurasian Studies');return document.MM_returnValue">Dept.
                    of Central Eurasian Studies</a>, <a href="http://www.indiana.edu/%7Enelcmesp/index.shtml" target="_blank" onMouseOver="MM_displayStatusMsg('Department of Near Eastern Languages and Cultures');return document.MM_returnValue">The
                    Department of Near Eastern Languages and Cultures</a>, <a href="http://www.iub.edu/" target="_blank" onMouseOver="MM_displayStatusMsg('Indiana University, Bloomington, Indiana');return document.MM_returnValue">The
                    Trustees of Indiana University</a>, and <a href="http://www.indiana.edu/~afghan/contact.htm" onMouseOver="MM_displayStatusMsg('Contact Nazif Shahrani');return document.MM_returnValue">M.
                    Nazif Shahrani</a>.</font></p>
                <p><font face="Arial, Helvetica, sans-serif">Contact <a href="http://www.indiana.edu/~afghan/contact.htm" onMouseOver="MM_displayStatusMsg('Contact Webmaster');return document.MM_returnValue">Webmaster</a> if
              you have any questions or problems with this website.</font></p></td>
            </tr>
        </table>
      </tr>
  </table>
  <table width="760" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td>Last Updated on <!-- TemplateBeginEditable name="Date" -->$update<!-- TemplateEndEditable --> by <!-- TemplateBeginEditable name="Webmaster" -->$updateby<!-- TemplateEndEditable --></td>
    </tr>
  </table>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
</div>
EOP
} # end sub body1

sub htmlfin
	{
		print "</body></html>\n";
	}

#---------------
# end of program
#---------------