2 # Delete several selected host permissions
4 require './mysql-lib.pl';
6 $access{'perms'} || &error($text{'perms_edb'});
7 &error_setup($text{'hosts_derr'});
8 @d = split(/\0/, $in{'d'});
9 @d || &error($trext{'hosts_enone'});
11 if (!$in{'confirm'}) {
13 &ui_print_header(undef, $text{'hosts_dtitle'}, "");
15 print &ui_confirmation_form("delete_hosts.cgi",
16 &text('hosts_drusure', scalar(@d)),
17 [ map { [ "d", $_ ] } @d ],
18 [ [ "confirm", $text{'hosts_dok'} ] ],
21 &ui_print_footer('list_hosts.cgi', $text{'hosts_return'},
22 "", $text{'index_return'});
27 ($host, $db) = split(/ /, $hdu);
28 $access{'perms'} == 1 || &can_edit_db($db) ||
29 &error($text{'perms_edb'});
30 &execute_sql_logged($master_db,
31 "delete from host where host = '$host' ".
34 &execute_sql_logged($master_db, 'flush privileges');
37 &webmin_log("delete", "hosts", scalar(@d));
38 &redirect("list_hosts.cgi");