acl/delete_user.cgi

   1 #!/usr/local/bin/perl
   2 # delete_user.cgi
   3 # Delete a webmin user
   4
   5 require './acl-lib.pl';
   6 &ReadParse();
   7 &error_setup($text{'delete_err'});
   8 $access{'delete'} || &error($text{'delete_ecannot'});
   9 &can_edit_user($in{'user'}) || &error($text{'delete_euser'});
  10 if ($base_remote_user eq $in{'user'}) {
  11         &error($text{'delete_eself'});
  12         }
  13 &delete_user($in{'user'});
  14 &delete_from_groups($in{'user'});
  15 &reload_miniserv();
  16 &webmin_log("delete", "user", $in{'user'});
  17 &redirect("");
  18