#!/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);
$hostingplan = find_hosting_plan ($domainname);
$num_feature_displayed = 0;
# Define the tab which appears to the front
$tab_section = $tabnum_features;
# Output the content associated with this tab
print "";
# display tabs
require $tabdisplay;
# only display website options if the website is on this server
$web_site_ip_address = find_web_server($domainname);
print_header ("Add extra features to your account");
if ( $web_site_ip_address == 0 )
{
# web record couldn't be found
quit_with_errors("Your website details cannot be retrieved at this time.");
} elsif ( is_ip_address_local($web_site_ip_address) eq "no" ) {
print "
Sorry, but it seems that your website is not being hosted on an IE Internet server. Because of this, no
additional features (e.g. online shop, search engine, discussion board) can't be added to your account at this time.
";
print_support_contact_information();
} elsif ( is_ip_address_local($web_site_ip_address) eq "windows" ) {
print "
Sorry, but your website is being hosted on a windows server. Because of this many of the features
available to most IE Internet customers are unavailable to you through your control panel. Some of
these features may still be available to you.
";
print_support_contact_information();
} else {
# require the front for this tab
require $tab_front[$tab_section-1];
}
show_meaning_of_icons();
require $footer;