#!/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);
$mail_routing = find_mail_routing($domainname);
# Define the tab which appears to the front
$tab_section = $tabnum_mailwall;
# Output the content associated with this tab
print "";
# display tabs
require $tabdisplay;
print_header("Change of SMTP forwarding IP address for $domainname");
if ( !( $mail_routing =~ /.*[0-9]/ ) )
{
quit_with_errors("An error occured with sourcing your SMTP forwarding details.");
}
print qq!
Please input the new IP address of your mail server in the box provided and click on the submit button: