2 # Delete several selected users
4 require './mysql-lib.pl';
6 $access{'perms'} == 1 || &error($text{'perms_ecannot'});
7 &error_setup($text{'users_derr'});
8 @d = split(/\0/, $in{'d'});
9 @d || &error($trext{'users_enone'});
11 if (!$in{'confirm'}) {
13 &ui_print_header(undef, $text{'users_dtitle'}, "");
15 print &ui_confirmation_form("delete_users.cgi",
16 &text('users_drusure', scalar(@d)),
17 [ map { [ "d", $_ ] } @d ],
18 [ [ "confirm", $text{'users_dok'} ] ],
21 &ui_print_footer('list_users.cgi', $text{'users_return'},
22 "", $text{'index_return'});
27 ($host, $user) = split(/ /, $hu);
28 &execute_sql_logged($master_db,
29 "delete from user where user = '$user' ".
30 "and host = '$host'");
32 &execute_sql_logged($master_db, 'flush privileges');
35 &webmin_log("delete", "users", scalar(@d));
36 &redirect("list_users.cgi");