#!/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);
$report_text = param('report');
$file_ext = time();
$spam_report_file = $listdir . "spam_report." . $file_ext;
# 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;
print_header ("Spam report for $domainname");
print qq!
Thank you for taking the time to submit a spam report to IE Internet's MailWall team. We will investigate
this report and consider its implementation in the next release of MailWall.
!;
open (SPAMREPORT, ">$spam_report_file") || file_error($spam_report_file);
print SPAMREPORT $report_text;
close (SPAMREPORT);
require $footer;