← Back
Editing: slave_delete.cgi
#!/usr/bin/perl # Remove some servers from the managed list use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; ## no critic $access{'slaves'} || &error($text{'slaves_ecannot'}); &ReadParse(); &foreign_require("servers", "servers-lib.pl"); my @servers = &list_slave_servers(); my @d = split(/\0/, $in{'d'}); my $server; foreach my $id (@d) { ($server) = grep { $_->{'id'} == $id } @servers; &delete_slave_server($server); } if (@d == 1) { &webmin_log("delete", "host", $server->{'host'}); } else { &webmin_log("delete", "group", scalar(@d)); } &redirect("list_slaves.cgi");
Save File
Cancel