← Back
Editing: cluster_delete.cgi
#!/usr/bin/perl # Remove some servers from the managed list require './ipfilter-lib.pl'; &ReadParse(); &foreign_require("servers", "servers-lib.pl"); @servers = &list_cluster_servers(); @d = split(/\0/, $in{'d'}); foreach $id (@d) { ($server) = grep { $_->{'id'} == $id } @servers; &delete_cluster_server($server); } if (@d == 1) { &webmin_log("delete", "host", $server->{'host'}); } else { &webmin_log("delete", "group", scalar(@d)); } &redirect("cluster.cgi");
Save File
Cancel