\n"; # Setup error handler for down hosts sub add_error { $add_error_msg = join("", @_); } &remote_error_setup(\&add_error); # Make sure each host is set up for firewalling foreach $s (@add) { $add_error_msg = undef; local $firewall = &remote_foreign_check($s, "ipfilter"); if ($add_error_msg) { print "$add_error_msg
\n"; next; } if (!$firewall) { print &text('add_echeck', $s->{'host'}),"
\n"; next; } &remote_foreign_require($s, "ipfilter", "ipfilter-lib.pl"); local $missing = &remote_foreign_call($s, "ipfilter", "missing_firewall_commands"); if ($missing) { print &text('add_emissing', "$missing"),"
\n"; next; } $live = &remote_foreign_call($s, "ipfilter", "get_live_config"); print &text('add_ok', $s->{'host'}, scalar(@$live)),"
\n"; &add_cluster_server($s); } &remote_finished(); if ($in{'add'}) { &webmin_log("add", "host", $add[0]->{'host'}); } else { &webmin_log("add", "group", $in{'group'}); } &ui_print_footer("cluster.cgi", $text{'cluster_return'});