#!/usr/bin/perl
require "sm.pl";
require "sm_html.pl";
require "sm-lib.pl";

require "cookie-lib.pl";
require "Date.pl";


&formdata;
$uid=$FORM{'uid'};
$mbr_id=$FORM{'i'};
$mode=$FORM{'m'};

&chkuid;
if ($cookieset eq "N"){
 &sh_header;
}
&sh_title ("$title");
&sh_body ($bg);
&tabs();
&menubar;
&leftbar;
if ($mode eq ""){
 &contactform;
}
elsif($mode eq "1"){
 &chkmand;
 if ($errflg == 0){
  $contact_email=inputchk($FORM{'m_contact_email'});
  &chkemail($contact_email);
  if ($errflg == 0){
   $contact_fname=inputchk($FORM{'m_contact_fname'});
   $contact_lname=inputchk($FORM{'m_contact_lname'});
   $contact_address=inputchk($FORM{'contact_address'});
   $contact_city=inputchk($FORM{'contact_city'});
   $contact_county=inputchk($FORM{'contact_county'});
   $contact_pcode=inputchk($FORM{'contact_pcode'});
   $contact_country=inputchk($FORM{'contact_country'}); 
   $contact_text=inputchk($FORM{'m_contact_text'});
   &sndmsgin;
   &para(1);
   &sh_fmttext ($font2, $fsize, "<strong>Thank you</strong><br>If your message requires a response we will get back to you as soon as possible.");
   &para(5);
  }
  else{
   &para(1);
   &sh_fmttext ($font2, $fsize, "<strong>Whoops!</strong><br>The email address which you have entered appears to be an incorrect format. Please press the back button on your browser.");
   &para(6);
  } 
 }
 else{
  &para(1);
  &sh_fmttext ($font2, $fsize, "<strong>Whoops!</strong><br>All fields marked <strong>Required</strong> must be completed. Please press the back button on your browser.");
  &para(6);
 } 
}
&rightbar;
&sh_mainpg4;
&sh_footer;

#************************************************************************
sub contactform{
print <<HTML;
<font face="$font2" size="$fsize">
<strong>Contact Us</strong><br>
Please submit your comments/questions etc using the form below. If you prefer you can
contact us by telephone, fax, email or post - our details appear at bottom of each page of the
web site.
<p>
(If you experience a problem using the form you can contact us by sending an email to <a href="mailto:admin\@sallymitchell.com">admin\@sallymitchell.com</a>)
<p>
<hr size="1">
<form action="/cgi-bin/sm-cont.cgi" method="POST">
<font color="#CC6600"><strong>Your Details</strong></font><br>
<p>
<strong>Email Address</strong> (Required)</font><br>
<input type="text" size="30" name="m_contact_email" value="$mbr_email">
<p>
<font face="$font2" size="$fsize">
<strong>First Name</strong> (Required)</font><br>
<input type="text" size="30" name="m_contact_fname" value="$mbr_fname">
<p>
<font size="$fsize" face="$font2">
<strong>Last Name</strong> (Required)</font><br>
<input type="text" size="30" name="m_contact_lname" value="$mbr_lname">
<p>
<font size="$fsize" face="$font2">
<strong>Address</strong></font><br>
<input type="text" size="30" name="contact_address" value="$mbr_address">
<p>
<font size="$fsize" face="$font2">
<strong>Town/City</strong></font><br>
<input type="text" size="30" name="contact_city" value="$mbr_city">
<p>
<font size="$fsize" face="$font2">
<strong>County/State/Province</strong></font><br>
<input type="text" size="30" name="contact_county" value="$mbr_county">
<p>
<font size="$fsize" face="$font2">
<strong>Post/Zip Code</strong></font><br>
<input type="text" size="12" name="contact_pcode" value="$mbr_pcode">
<p>
<font size="$fsize" face="$font2">
<strong>Country</strong></font><br>
<input type="text" size="30" name="contact_country" value="$mbr_country">
<p>&nbsp;</p>
<font size="$fsize" face="$font2">
<font color="#CC6600"><strong>Your Question/Comments</strong> (Required)</font><br>
</font>
<textarea name="m_contact_text" rows="5" cols="40" wrap="virtual"></textarea>
<p>
<input type="hidden" name="m" value="1">
<input type="hidden" name="i" value="$mbr_id">
<input type="hidden" name="uid" value="$uid">
<input type="submit" value="Send Message" name="submit">
</form>
<p>&nbsp;</p>
</font>
HTML
}


sub showcomp{
print <<HTML;
<strong>$comp_heading</strong><br>
$comp_text
<p>&nbsp;</p>
HTML
}


sub sndmsgin{
open (MAIL, "|$mailprog $emailcentraladmin") || die "Can't open $mailprog!\n";
print MAIL "Reply-to: $contact_email\n";
print MAIL "From: $contact_email\n";
print MAIL "To: $emailcentraladmin\n";
print MAIL "Subject: Feedback\n\n";
print MAIL "Submitted By:\n";
print MAIL "$contact_fname $contact_lname\n";
print MAIL "$contact_email\n";
print MAIL "$contact_address\n";
print MAIL "$contact_city\n";
print MAIL "$contact_county\n";
print MAIL "$contact_pcode\n";
print MAIL "$contact_country\n\n";
print MAIL "Comments/Feedback/Question\n";
print MAIL "$contact_text\n";
print MAIL "\n\n\n";
close (MAIL);
}