print "Content-Type: text/html\n\n";
use CGI qw(:all);
use Mail::Sendmail;
my $header_printed;
my $submit_state;
$submit_state = param('submitstate');
if (length($submit_state) > 0){
submission_request();
}else{
print_header();
print_body();
}
sub submission_request{
$submit_result = check_submit_data();
if ($submit_result eq 0){
print_header();
send_message();
print_footer();
}else{
print_header();
print_error();
print_body();
exit;
}
}
sub send_message{
my $subject = param('Subject');
my $message = param('Name')."\n".param('Email')."\n".param('Message');
my %mail = ( SMTP => 'mail.parkplus.com',
To => 'sales@parkplus.com',
From => 'ParkPlus Support Request ',
Subject => $subject,
Message => $message
);
if (sendmail %mail) {
print_thankyou();
}else{
print "Error sending mail: $Mail::Sendmail::error \n";
}
}
sub print_error{
print <
$submit_result
HTML
}
sub print_thankyou{
print <
Thank you for your submission! We will respond shortly.
HTML
}
sub check_submit_data{
my $submit_error;
if (length(param('Subject')) == 0){
$submit_error = "Your Subject is missing";
}
if (length(param('Name')) == 0){
$submit_error = "Your Name is missing";
}
if (length(param('Email')) == 0){
$submit_error = "Your Email is missing";
}
if (length(param('Message')) == 0){
$submit_error = "Your Message is missing";
}
if (length($submit_error) == 0){
return 0;
}else{
return $submit_error;
}
}
sub print_header{
if ($header_printed == 0){
print header();
print <ParkPlus Hosting support
HTML
$header_printed = 1;
}
}
sub print_body{
my $name = param('Name');
my $subject = param('Subject');
my $message = param('Message');
my $email = param('Email');
print <
Customer Support
Submit a ticket:
Please enter the required information in the following fields to submit a ticket:
