#!/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_mailwall;
# Output the content associated with this tab
print "";
# display tabs
require $tabdisplay;
print_header("Turning on filename scanning for $domainname");
print qq!
Thank you for your request to turn on this feature.
!;
$filename_scanning_status = virus_advanced_scanning_status($domainname, "Filename");
if ( $filename_scanning_status eq "off" )
{
open ( TURNON, ">>$create_filename_scanning_file" ) || file_error($create_filename_scanning_file);
print TURNON "$domainname\n";
close (TURNON);
show_time_to_change();
} else {
print "However, it seems that this feature is already turned on or is waiting to be turned on.";
print_support_contact_information();
}
require $footer;