samba/delete_euser.cgi

   1 #!/usr/local/bin/perl
   2
   3 require './samba-lib.pl';
   4 &ReadParse();
   5 # check acls
   6
   7 &error_setup("<blink><font color=red>$text{'eacl_aviol'}</font></blink>");
   8 &error("$text{'eacl_np'} $text{'eacl_pmusers'}")
   9         unless $access{'maint_users'} && $access{'view_users'};
  10 # delete
  11 &lock_file($config{'smb_passwd'});
  12 @list = &list_users();
  13 &delete_user($list[$in{'idx'}]);
  14 &unlock_file($config{'smb_passwd'});
  15 &webmin_log("delete", "euser", $list[$in{'idx'}]->{'name'});
  16 &redirect("edit_epass.cgi");
  17