#!/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);

# Define the tab which appears to the front
$tab_section = $tabnum_email;

# Output the content associated with this tab
print "<body class=section-$tab_section>";

# display tabs
require $tabdisplay;

print_header("Creation of an email address to be forwarded to another email address for $domainname");

print qq!

An email to a particular email address is usually sent to a user/account. If, instead, you wish to send emails for
a particular email address to another email address please enter the email addresses below:<BR><BR>

!;

print "<form class=text action=/$script_bin/$confirm_create_forwarding method=post>";
print "<input class=text type=text name=from size=15>";
print "\@$domainname";
print " will be forwarded to <input type=text class=text name=to size=40>";
print_end_of_form();

require $footer;
