#!/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: cljones\@tfn.net\n";
$mailmess .= "CC: kbeattie\@mailer.fsu.edu\nFrom: $email\n";
$mailmess .= "Subject: Sound Services booking\n\n"; 
$mailmess .= "Submitted by: $from\n";
$mailmess .= "Ensemble: $ensemble\n";
$mailmess .= "Location: $location\n";
$mailmess .= "When: $date\n";
$mailmess .= "Special requirements: $comments.\n\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;