#!/usr/bin/perl
print "Content-Type: Text/HTML\n\n";
use CGI ':standard';
use Vpanel 1.00;
require $header;
require $accountinfo;
$domainname = find_domain ($mainuser);
$comment = param('comment');
$recipient = "controlpanel\@ieinternet.com";
$server = $ENV{'SERVER_NAME'};
$username = "comments\@$server";
# Define the tab which appears to the front
$tab_section = $tabnum_feedback;
# Output the content associated with this tab
print "";
# display tabs
require $tabdisplay;
print_header ("Customer feedback");
print "Thank you for taking the time to help us improve our systems. We will review your comments in the near future.
";
# Open The Mail
open (MAIL, "|$mailprog -t") || &safe_die("Can't open $mailprog!\n");
print MAIL "From: $username\n";
print MAIL "Reply-To: $username\n";
print MAIL "To: $recipient\n";
print MAIL "Subject: Control Panel Comment\n\n";
print MAIL "Below is a comment on the control panel from $domainname:\n";
print MAIL "----------------------------------------------------------------------------------------\n\n";
print MAIL "$comment\n";
print MAIL "";
close (MAIL);
require $footer;