#!/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);
$chosen_user = param ('user');
@validusers = find_valid_users($domainname);
$numusers = @validusers;
# Define the tab which appears to the front
$tab_section = $tabnum_email;
# Output the content associated with this tab
print "";
# display tabs
require $tabdisplay;
print_header ("Deleting a $domainname user's mailbox");
print "
All emails you have not downloaded for a user are in that user's mailbox. If this mailbox has become
particularly large, you can empty it. Just choose the user whose mailbox you wish to delete from the list below.
Choosing this option will not delete the user, it will simply remove all emails from this user's account.
";
print "
";
print "
";
$spam_trap_status = spam_actions_status($domainname);
$spam_trap_name = "spam" . $mainuser;
if ( $spam_trap_status eq "on" )
{
print "[ Note: your spam trap is called $spam_trap_name ]";
}
print_end_of_form();
require $footer;