#!/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("Turning off virus notifications for $domainname");
$notification_status = virus_notification_status($domainname);
if ( $notification_status eq "off" )
{
print "Sorry, but it seems that your virus notification setting is already turned off.";
print_support_contact_information();
} else {
# write to file for later processing
open ( TURNONNOTIFY, ">>$remove_virus_notification_file" ) || file_error($remove_virus_notification_file);
print TURNONNOTIFY "$domainname\n";
close (TURNONNOTIFY);
print "Thank you for your request to turn off your virus notification emails.";
show_time_to_change();
}
require $footer;