#!/usr/bin/perl print "Content-Type: Text/HTML\n\n"; # This script lists all user accounts and associated email addresses. # The user is given the option to add/delete addresses, delete users and change a user's pw use CGI ':standard'; use Vpanel 1.00; require $header; require $accountinfo; $domainname = find_domain ($mainuser); $hostingplan = find_hosting_plan ($domainname); $smtpforwarding = is_mailertable ($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; # find all existing valid users @validusers = find_valid_users($domainname); print_header ("List of email users and email addresses for $domainname"); print<Email addresses which are being forwarded to other email addresses may be found here.


HEADER # Now loop for each of the user names. for $validuser ( @validusers ) { if ( ( $validuser =~ /^spam/ ) && ( ! ( $validuser =~ /^ftp/ ) ) ) { print "\n\n"; print ""; } elsif ( ! ( $validuser =~ /^ftp/ ) ) { print "\n"; print ""; } else { print ""; } } print "
Email User Options Email Address(es)
$validuser\n"; print "reset password\n"; print "This is your Spam Trap which holds all your Spam emails.
$validuser\n"; print "add an address\n"; # main user's password cannot be deleted if ( $validuser ne $mainuser ) { print "
"; print "reset password "; } @validaddresses = (); @validaddresses = find_valid_addresses_for_user($validuser); $num_valid_addresses = @validaddresses; if ( $num_valid_addresses == 0 ) { print "
"; print "delete user"; print "		There are no email addresses connected with this user."; for $validaddress ( @validaddresses ) { print ""; } else { print "$validaddress"; print ""; } } print "
"; if ( is_multidrop($validaddress) eq "yes" ) { print "This user is set up as a 'multidrop' or 'catch-all' account."; print " All email addresses not configured by
you go to this user."; print "		"; print "delete multidrop
"; print "delete address
"; } print "
"; print "

"; require $footer;