chore: import upstream snapshot with attribution

This commit is contained in:
wehub-resource-sync
2026-07-13 13:12:17 +08:00
commit cf8edb9f21
44281 changed files with 1655134 additions and 0 deletions
+17
View File
@@ -0,0 +1,17 @@
#!/usr/local/bin/perl
require './samba-lib.pl';
&ReadParse();
# check acls
&error_setup("$text{'eacl_aviol'}ask_epass.cgi");
&error("$text{'eacl_np'} $text{'eacl_pmusers'}")
unless $access{'maint_users'} && $access{'view_users'};
# delete
&lock_file($config{'smb_passwd'});
@list = &list_users();
&delete_user($list[$in{'idx'}]);
&unlock_file($config{'smb_passwd'});
&webmin_log("delete", "euser", $list[$in{'idx'}]->{'name'});
&redirect("edit_epass.cgi");