#!/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);
$multidroptype = param ('multidrop');
$emailaddress = param ('emailaddress');
$multidrop_address = "\@$domainname";
# Define the tab which appears to the front
$tab_section = $tabnum_email;
# Output the content associated with this tab
print "";
# display tabs
require $tabdisplay;
print_header("Creation of a 'multi-drop' ('catch-all') email account for $domainname");
$address_exists = find_if_address_exists($multidrop_address);
if ( $address_exists != 0 )
{
print "Sorry, but this multidrop appears to already exist.
";
print_support_contact_information();
} else {
if ( ( $emailaddress ne "none" ) && ( check_email_address_syntax($emailaddress) ) )
{
print "Sorry, but the syntax of the email address you supplied ($emailaddress) is incorrect.
";
print_support_contact_information();
} else {
if ( $multidroptype eq "rem_user" )
{
#
# Send emails for non-existent addresses to the main user
#
$ret = php_request ("setMultiDrop", "scope=domain:$domainname", "multiDrop=mainuser", "multiDropTarget=ignore");
print "Thank you. All emails sent to non-existent email addresses \@$domainname will be sent to the user $mainuser.";
show_time_to_change();
} elsif ( $multidroptype eq "rem_email" ) {
#
# Send emails for non-existent addresses to another email address
#
$ret = php_request ("setMultiDrop", "scope=domain:$domainname", "multiDrop=email", "multiDropTarget=$emailaddress");
print "Thank you. All emails sent to non-existent email addresses \@$domainname will be forwarded to $emailaddress.";
show_time_to_change();
} elsif ( $multidroptype eq "all_user" ) {
#
# Send emails for all addresses to the main user
#
print qq!