Handle hostnames with upper-case letters
[webmin.git] / lpadmin / cluster_delete.cgi
1 #!/usr/local/bin/perl
2 # Remove some servers from the managed list
3
4 require './lpadmin-lib.pl';
5 $access{'cluster'} || &error($text{'cluster_ecannot'});
6 &ReadParse();
7 &foreign_require("servers", "servers-lib.pl");
8 @servers = &list_cluster_servers();
9
10 @d = split(/\0/, $in{'d'});
11 foreach $id (@d) {
12         ($server) = grep { $_->{'id'} == $id } @servers;
13         &delete_cluster_server($server);
14         }
15 if (@d == 1) {
16         &webmin_log("delete", "host", $server->{'host'});
17         }
18 else {
19         &webmin_log("delete", "group", scalar(@d));
20         }
21
22 &redirect("cluster.cgi");
23