#!/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 "<body class=section-$tab_section>";

# display tabs
require $tabdisplay;

print_header("Installing a spam whitelist for $domainname");

print qq!

<form method=post action=/$script_bin/$confirm_turn_on_spam_whitelist class=text>
By clicking on the button below you can install a spam whitelist. Once installed you can add email addresses to this whitelist
so that emails coming from these email addresses will not be scanned for spam. As a result, you can be guaranteed that even if 
an email from one of these email addresses looks like spam, it will not be stopped by Mailwall's Anti-Spam filters. This 
spam whitelist will not affect your Anti-Virus protection.

!;

print_end_of_form();
require $footer;
