#!/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/@/\@/;
$deptauth = $co->param('deptauth');
$deptauth =~ s/@/\@/;
$date = $co->param('date');
$phone = $co->param('phone');
$timeIn = $co->param('timeIn');
$dress = $co->param('dress');
$startShow =$co->param('startShow');
$ensemble = $co->param('Ensemble');
$location = $co->param('Location');
$comments = $co->param('Comments');
$comments =~ s/</&lt/;

$htmlmess = "Submitted by: $from\n";
$htmlmess .= "Phone number to be reached at: $phone\n";
$htmlmess .= "Ensemble: $ensemble\n";
$htmlmess .= "Location: $location\n";
$htmlmess .= "When: $date\n";
$htmlmess .= "Earliest time sound crew can get in: $timeIn\n";
$htmlmess .= "Dress rehersal: $dress\n";
$htmlmess .= "Show time: $startShow\n";
$htmlmess .= "Special requirements: $comments\n";
$htmlmess .= "From the Sound Services webpage.";

$mailmess = "To: $deptauth\n";
$mailmess .= "CC: kbeattie\@mailer.fsu.edu\n";
$mailmess .= "CC: $email\n";
$mailmess .= "CC: cljones\@tlh.fdt.net\n";
$mailmess .= "From: $email\n";
$mailmess .= "Subject: Sound Services booking\n\n"; 
$mailmess .= "***Official Approval Required*** Dr. Shellahamer or Mr. Beattie Please Reply-to-All\n\n";
$mailmess .= "Submitted by: $from\n";
$mailmess .= "Phone number to be reached at: $phone\n";
$mailmess .= "Ensemble: $ensemble\n";
$mailmess .= "Location: $location\n";
$mailmess .= "When: $date\n";
$mailmess .= "Sound crew setup and sound check time: $timeIn\n";
$mailmess .= "Dress rehersal time: $dress\n";
$mailmess .= "Show time: $startShow\n";
$mailmess .= "Special requirements: $comments\n\n";
$mailmess .= "\nFrom the Sound Services webpage.";

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

close MAIL;
}

$htmlmess =~ s/\n/<BR>\n/g;   

   print

   $co->center($co->h1('Request for Sound Services submitted for approval.')),
   $co->hr,
   $co->br,
   $htmlmess,
   $co->end_html;