#!/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("Accessing the MailWall content quarantine for $domainname"); print qq!
Have you received a notification that an email has been prevented from reaching you because its content was deemed to be offensive? This is because you have activated MailWall's content management feature. To release this email, please copy and paste the 'Message ID' and 'Message Reference' from the notification message you have received into the boxes below:

Message Reference [ 8 digits ]:
Message ID [ 14 characters ]:
!; print_end_of_form(); require $footer;