File: cluster_delete.cgi

package info (click to toggle)
webmin-extra 1.180-4
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 12,324 kB
  • ctags: 1,200
  • sloc: perl: 39,117; makefile: 125
file content (14 lines) | stat: -rwxr-xr-x 346 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/local/bin/perl
# Remove some servers from the managed list

require './firewall-lib.pl';
&ReadParse();
&foreign_require("servers", "servers-lib.pl");
@servers = &list_cluster_servers();

foreach $id (split(/\0/, $in{'d'})) {
	($server) = grep { $_->{'id'} == $id } @servers;
	&delete_cluster_server($server);
	}
&redirect("cluster.cgi");