Viewing file:  save_newmxs.cgi (4.51 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Save secondary MX servers
require './virtual-server-lib.pl';
&can_edit_templates() || &error($text{'newmxs_ecannot'});
&ReadParse();
&error_setup($text{'newmxs_err'});
&ui_print_header(undef, $text{'newmxs_title'}, "");
# Get old MX servers and all servers
&foreign_require("servers");
@oldmxs = &list_mx_servers();
%oldmxids = map { $_->{'id'}, $_ } @oldmxs;
@servers = grep { $_->{'user'} } &servers::list_servers();
foreach $id (split(/\0/, $in{'servers'})) {
($server) = grep { $_->{'id'} eq $id } @servers;
if ($server) {
# Make sure the system actually has Virtualmin 2.98+
&$first_print(&text('newmxs_doing', $server->{'host'}));
&remote_foreign_require($server, "webmin", "webmin-lib.pl");
%minfo = &remote_foreign_call($server, "webmin",
"get_module_info", "virtual-server");
if (!$minfo{'version'}) {
# Virtualmin not installed
&$second_print(&text('newmxs_evirtualmin',
$server->{'host'}));
goto failed;
}
else {
# Ask the remote server if it is OK
&remote_foreign_require($server, "virtual-server",
"virtual-server-lib.pl");
$mxerr = &remote_foreign_call($server, "virtual-server",
"check_secondary_mx");
if ($mxerr) {
&$second_print(&text('newmxs_eprob',
$server->{'host'}, $mxerr));
goto failed;
}
# Make sure we're not somehow adding this system!
$rhost = &remote_foreign_call($server, "virtual-server",
"get_system_hostname");
$myhost = &get_system_hostname();
if ($rhost eq $myhost) {
&$second_print(&text('newmxs_esame',
$server->{'host'}, $myhost));
goto failed;
}
# Save the MX name to use for this server
if ($in{"mxname_".$server->{'id'}."_def"}) {
delete($server->{'mxname'});
}
else {
$in{"mxname_".$server->{'id'}} =~
/^[a-z0-9\.\-\_]+$/ ||
&text('newmxs_emxname',
$server->{'host'});
$server->{'mxname'} =
$in{"mxname_".$server->{'id'}};
}
push(@mxs, $server);
$newmxids{$server->{'id'}} = $server;
}
&$second_print($text{'setup_done'});
}
}
&save_mx_servers(\@mxs);
# Update all existing email domains on new MX servers
my $anychanged = 0;
foreach my $d (&list_domains()) {
next if (!$d->{'mail'});
my $oldd = { %$d };
my $changed = 0;
my @ids = split(/\s+/, $d->{'mx_servers'});
my (@added, @deleted);
if ($in{'addexisting'}) {
# Add to new secondaries
if (!$changed++) {
&$first_print(&text('newmxs_dom', $d->{'dom'}));
&$indent_print();
}
foreach $server (@mxs) {
if (!$oldmxids{$server->{'id'}}) {
&$first_print(&text('newmxs_adding',
$server->{'host'}));
$err = &setup_one_secondary($d, $server);
if (!$err) {
push(@ids, $server->{'id'});
&$second_print($text{'setup_done'});
}
else {
&$second_print(&text('newmxs_failed',
$err));
}
push(@added, $server);
}
}
}
# Remove from old secondaries
foreach $server (@oldmxs) {
if (!$newmxids{$server->{'id'}} &&
&indexof($server->{'id'}, @ids) >= 0) {
if (!$changed++) {
&$first_print(&text('newmxs_dom', $d->{'dom'}));
&$indent_print();
}
&$first_print(&text('newmxs_removing',
$server->{'host'}));
$err = &delete_one_secondary($d, $server);
if (!$err) {
&$second_print($text{'setup_done'});
}
else {
&$second_print(&text('newmxs_failed', $err));
}
@ids = grep { $_ != $server->{'id'} } @ids;
push(@deleted, $server);
}
}
if ($changed) {
$d->{'mx_servers'} = join(" ", @ids);
if ($d->{'dns'}) {
# Add or remove DNS MX records
&modify_dns($d, $oldd);
}
}
# Re-sync virtusers for domain to secondaries, if any were added or
# removed
if (@added || @deleted) {
&$first_print($text{'newmxs_syncing'});
@rv = ( );
push(@rv, &sync_secondary_virtusers($d, \@added, 0))
if (@added);
push(@rv, &sync_secondary_virtusers($d, \@deleted, 1))
if (@deleted);
@errs = grep { $_->[1] } @rv;
if (@errs) {
&$second_print(&text('newmxs_esynced',
join(", ", map { $_->[0]->{'host'}." - ".
($_->[1] || "OK") } @rv)));
}
else {
&$second_print(&text('newmxs_synced',
join(", ", map { $_->[0]->{'host'} } @rv)));
}
}
&save_domain($d);
if ($changed) {
&$outdent_print();
&$second_print($text{'setup_done'});
$anychanged++;
}
}
if (!$anychanged) {
&$first_print($text{'newmxs_nothing'});
}
&run_post_actions();
&webmin_log("mxs");
failed: # Goto here if one server fails
&ui_print_footer("edit_newmxs.cgi", $text{'newmxs_return'},
"", $text{'index_return'});
|