#!/usr/bin/perl

print "Content-Type: text/html\n\n\n";

use CGI;

my $Q = new CGI;
my $Action = $Q->param('action');
my $Name = $Q->param('name');
my $Phone = $Q->param('phone');
my $Text = $Q->param('message');
my $Email = $Q->param('email');

if ($Action eq "contact") 
  {
  my $Home = "/tmp/messages";
  my $No = 1;
  if (!(-e $Home)) {`mkdir -p $Home`;}
  my $Message = "$Home/$No\.txt";
  while (-f $Message) {$No++; $Message = "$Home/$No\.txt";}

  open(WRITE, ">$Message");
  print WRITE "name = $Name\n";
  print WRITE "phone = $Phone\n";
  print WRITE "email = $Email\n";
  print WRITE "message = $Text\n";
  close WRITE;

  my $Headers = {};
  $Headers->{'Subject'} = 'email from tcu-inc.com';
  $Headers->{'From'} = $Email;
  $Headers->{'To'} = 'perl@dslextreme.com';

  use Mail::Mailer;
  my $Mail = new Mail::Mailer 'sendmail';
  $Mail->open($Headers);
 print $Mail "name = $Name\nphone = $Phone\nemail = $Email\nmessage = $Text\n";
  $Mail->close();
  }

my $Message1 = "";
if ($Action eq "contact") {$Message1 = "<font size=+2 color=blue>Thank you!</font>";}

print "
<h2> Fill out the form and click 'Contact'.</h2>
$Message1<br>
Because of nasty spammers, this is the best way to contact Mark.

<form method=Contact.pl>
<input type=hidden name=action value=contact>
<table border=0>
<tr><td>Name</td><td><input size=20 name=name></td></tr>
<tr><td>Email</td><td><input size=20 name=email></td></tr>
<tr><td>Phone</td><td><input size=20 name=phone></td></tr>
<tr><td>Message</td><td><textarea rows=5 cols=50 name=message></textarea></td></tr>
<tr><td colspan=2><input type=submit value=Contact></td></tr>
</table>
</form>
"