#!/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;
$chosen_user = param ('user');
$domainname = find_domain ($mainuser);
# 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 ("Changing a user's password for $domainname");
print "Please select the user whose password you wish to change and the password you would like to use:
";
print "
";
print "
";
print "(The password's pronounciation is in brackets)";
print_end_of_form();
require $footer;