#!/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);
$number_of_users = find_number_users($domainname);
# Define the tab which appears to the front
$tab_section = $tabnum_website;
# Output the content associated with this tab
print "";
# display tabs
require $tabdisplay;
print_header ("Creation of a new FTP user for $domainname");
if ( $number_of_users >= $user_limit)
{
print<sales department.
TOOMANYUSERS
} else {
print<
HEADER
$new_ftp_user = create_new_user($domainname, "ftp");
print "User name: Your new user name is: $new_ftp_user ";
print " Password: Please select the password for this user from this list: ";
print " (The password's pronounciation is in brackets)";
print "
User's home directory: Please select the directory you wish to give this user access to: ";
print "";
print "";
print_end_of_form();
}
require $footer;