#!/Perl/bin/perl

require "cgi-lib.pl";
require "common.pl";
require "cookie.lib";

print &PrintHeader;

$aon=1;

&initial;

&check_admin;

&print_skel;

sub do_content {

$user=$input{'user'};

$ufile=$idspath . $s . "U_" . $user;

if (-e $ufile) {
$pfile=$idspath . $s . "P_" . $user;
$dfile=$idspath . $s . "D_" . $user;

unlink $ufile;
unlink $pfile;
unlink $dfile;

        print "<center><font size=5 color=navy>User $user deleted</font></center>";
} else {
        print "<center><font size=5 color=red>User $user does NOT exist</font></center>";
}

}
exit;

#---> Subs