#!/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);
$hostingplan = find_hosting_plan ($domainname);
$user_limit = find_user_limit($hostingplan);
@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;
if ( $numusers >= $user_limit )
{
print<sales department.
TOOMANYUSERS
} else {
print_header ("Creation of a new user for $domainname");
print<
HEADER
$new_user = create_new_user($domainname,"email");
print " User name: Your new user name is: $new_user ";
print " Password: Please select the password for this user from this list: ";
print " (The password's pronounciation is in brackets)";
print "
Email address: If you would like to set up an email address for this user you can do so ";
print "now, or you can do it later: