#!/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;
$reset_user = param('user');
$reset_password = param('password');
$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
print_header ("Changing the password for $reset_user");
print "Please find below details of the new password for $reset_user:
";
print "User: $reset_user
";
print "Password: $reset_password";
show_time_to_change();
print_email_confirmation($domainname);
require $footer;