ParkPlus Hosting support

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 = "\n Name: ".param('FirstName')." ".param('LastName')." ".param('Email')."\n DomainName: ".param('DomainName')."\n Package: ".param('HostingPackage'); $message .= "\n Term: ".param('HostingTerm')." months"."\n Address: ".param('Address')."\n City ".param('City')."\n State ".param('State')."\n ZipCode ".param('ZipCode'); $message .= "\n Country: ".param('Country')."\n Phone: ".param('Phone')."\n Fax ".param('Fax')."\n Commnets: ".param('Comments'); my %mail = ( SMTP => 'mail.parkplus.com', To => 'sales@parkplus.com', From => 'Hosting Purchase Request ', Subject => 'Hosting Request', 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('DomainName')) == 0){ $submit_error = "Your DomainName is missing"; } if (length(param('Email')) == 0){ $submit_error = "Your Email is missing"; } if (length(param('FirstName')) == 0){ $submit_error = "Your First Name is missing"; } if (length(param('LastName')) == 0){ $submit_error = "Your Last Name is missing"; } if (length(param('Address')) == 0){ $submit_error = "Your Address is missing"; } if (length(param('City')) == 0){ $submit_error = "Your City is missing"; } if (length(param('ZipCode')) == 0){ $submit_error = "Your Zip Code 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

Home

Windows 2000 hosting

Linux / Apache Hosting

Place an order

Support

About us

Fast Reliable WEB HOSTING - ASP, ASP.NET Fast WEB HOSTING and Linux WEB HOSTING - At-Hosting

HTML $header_printed = 1; } } sub print_body{ my $domainname = param('DomainName'); my $email = param('Email'); my $businessname = param('BusinessName'); my $firstname = param('FirstName'); my $lastname = param('LastName'); my $address = param('Address'); my $city = param('City'); my $zipcode = param('ZipCode'); my $phone = param('Phone'); my $fax = param('Fax'); my $comments = param('Comments'); print <

Place an order

ParkPlus has created an effective and inexpensive program that provides its customers with the highest quality hosting products and services using the latest Internet technologies. Create your own unique Internet identity for a minimal cost now. Get started with your own personal email address and starter web site.

Please, fill the for below to complete your order.

Package details:
* Domain name:
* Term:
Account information:
* E-mail address:
Company name:
* First name:
* Last name:
* Street address:
* City:
* State:
* Zip:
* Country:
Phone number:
Fax number:
Additional notes:
Please specify if you want to order additional features such as dedicated IP or SSL support.	$comments

HTML print_footer(); } sub print_footer{ print <

HTML }