#!/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);
$delete_user = param ('user');
# 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 ("Deletion of the FTP user $delete_user for $domainname");
# Ensure that the user is not already awaiting deletion
$awaiting_deletion = 0;
open (AWAITING, "<$deleteftpuserfile");
while ()
{
if (/$delete_user/)
{
$awaiting_deletion = 1;
break;
}
}
close (AWAITING);
if ( $awaiting_deletion == 0 )
{
# Write the user to a file for later deletion
#system ("php", "-q", "/var/www/html/vpanel/mw2cli.php", "-c", "/var/www/html/vpanel/mw2cli.conf.turingsoap.php", "setDelChild", "scope=domain:".$domainname, "childName=user:".$delete_user."@".$domainname);
$ret = php_request ("setDelChild", "scope=domain:".$domainname, "childName=user:".$delete_user."@".$domainname);
open (DELUSER, ">>$deleteftpuserfile");
print DELUSER $delete_user, "\n";
close DELUSER;
print "Thank you for your request to delete the user $delete_user.";
show_time_to_change();
} else {
print "Sorry, but the user $delete_user seems to be awaiting deletion already.
";
print_support_contact_information();
}
require $footer;