#!/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_mailwall;
# Output the content associated with this tab
print "";
# display tabs
require $tabdisplay;
print_header("Installing a spam whitelist for $domainname");
print "Thank you for your request to install a spam whitelist for your account $domainname.";
# Write to file for later processing
open (WHITELIST, ">>$create_spam_whitelist_file") || file_error($create_spam_whitelist_file);
print WHITELIST "$domainname\n";
close (WHITELIST);
show_time_to_change();
require $footer;