#!/usr/bin/perl
use CGI;

$co = new CGI;

print $co->header,

$co->start_html(
    -title=>'Email Sound Services',
    -author=>'Sound Services',
    -BGCOLOR=>'FFFFFF',
    -text=>'000000');

if ($co->param()) {
$email = $co->param('email');
$from = $co->param('name');
$from =~ s/@/\@/;
$date = $co->param('date');
$ensemble = $co->param('Ensemble');
$location = $co->param('Location');
$comments = $co->param('Comments');
$comments =~ s/</&lt/;


$mailmess = "To: wookie333\@hotmail.com\<br>\n" 
$mailmess .= "From: $email\<br>\n";
#$mailmess = "To: cljones\@tfn.net\<br>\n";
#$mailmess .= "CC: kbeattie\@mailer.fsu.edu\<br>\nFrom: $email\<br>\n";
$mailmess .= "Subject: Sound Services booking\<br>\n"; 
$mailmess .= "Submitted by: $from\<br>\n";
$mailmess .= "Ensemble: $ensemble\<br>\n";
$mailmess .= "Location: $location\<br>\n";
$mailmess .= "When: $date\<br>\n";
$mailmess .= "Special requirements: $comments\<br>\n";
$mailmess .= "From the Sound Services webpage.";

open(MAIL, '|/usr/lib/sendmail -t -oi');
print MAIL $mailmess; 

close MAIL;
}

   print

   $co->center($co->h1('Your request has been sent...Thank you.')),
   $co->hr,
   $co->br,
   $mailmess,
   $co->end_html;