#!/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); # Define the tab which appears to the front $tab_section = $tabnum_website; # Output the content associated with this tab print ""; # display tabs require $tabdisplay; # find all existing valid users @ftp_users = find_valid_ftp_users($domainname); $num_ftp_users = @ftp_users; print_header ("List of FTP users for $domainname"); if ( $num_ftp_users == 0 ) { print qq! Sorry, but you do not have any FTP users set up yet. If you'd like to set up an FTP user please click here.

!; } else { print<
HEADER # Now loop for each of the user names. for $ftp_user ( @ftp_users ) { print "\n\n"; print ""; $ftp_home = find_user_home_directory($ftp_user); @directories = split ( /\//, $ftp_home); $number_directories = @directories; print ""; } print "

Email User	Options	Home Directory
$ftp_user	\n"; print "reset password\n"; print " "; print "delete user	"; for ( $i = 5; $i < $number_directories ; $i++ ) { print "/$directories[$i]"; } print "

"; } require $footer;