#!/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);
@existing_addresses = find_existing_addresses($domainname);
@addresses_awaiting_deletion = find_addresses_awaiting_deletion();
$abuse = "abuse\@$domainname";
$postmaster = "postmaster\@$domainname";
# 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 ("Deletion of an email address for $domainname");
print "Please select the address you wish to delete from the list below: