mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
44 lines
1.3 KiB
Perl
Executable File
44 lines
1.3 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Update the configuration for a module on multiple hosts
|
|
|
|
require './cluster-webmin-lib.pl';
|
|
require '../config-lib.pl';
|
|
&ReadParse();
|
|
&error_setup($text{'config_err'});
|
|
|
|
# Get the current config
|
|
@hosts = &list_webmin_hosts();
|
|
@servers = &list_servers();
|
|
($getfrom) = grep { $_->{'id'} == $in{'_getfrom'} } @hosts;
|
|
($serv) = grep { $_->{'id'} == $getfrom->{'id'} } @servers;
|
|
&remote_foreign_require($serv->{'host'}, "webmin", "webmin-lib.pl");
|
|
%fconfig = &remote_foreign_call($serv->{'host'}, "webmin", "foreign_config",
|
|
$in{'mod'});
|
|
|
|
# Call the config parser
|
|
$mdir = &module_root_directory($in{'mod'});
|
|
if (-r "$mdir/config_info.pl") {
|
|
# Module has a custom config editor
|
|
&foreign_require($in{'mod'}, "config_info.pl");
|
|
if (&foreign_defined($in{'mod'}, "config_save")) {
|
|
$func++;
|
|
&foreign_call($in{'mod'}, "config_save", \%fconfig);
|
|
}
|
|
}
|
|
if (!$func) {
|
|
# Use config.info to parse config inputs
|
|
&parse_config(\%fconfig, "$mdir/config.info", $in{'mod'});
|
|
}
|
|
|
|
# Write out to all hosts
|
|
foreach $hid (split(/\0/, $in{'_host'})) {
|
|
($serv) = grep { $_->{'id'} == $hid } @servers;
|
|
if ($hid != $getfrom->{'id'}) {
|
|
&remote_foreign_require($serv->{'host'}, "webmin", "webmin-lib.pl");
|
|
}
|
|
&remote_foreign_call($serv->{'host'}, "webmin", "save_module_config",
|
|
\%fconfig, $in{'mod'});
|
|
}
|
|
&redirect("edit_mod.cgi?mod=$in{'mod'}");
|
|
|