#!/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);
$hostingplan = find_hosting_plan ($domainname);
# Define the tab which appears to the front
$tab_section = $tabnum_report_spam;
# Output the content associated with this tab
print "";
# display tabs
require $tabdisplay;
if ( $hostingplan eq "SOHO" )
{
print "Sorry, but your SOHO hosting plan does not support this feature of MailWall.
";
} else {
print_header("Reporting spam emails*");
require $tab_front[$tab_section-1];
}
require $footer;