Viewing file:  assoc.cgi (1.04 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Associate or dis-associate features
require './virtual-server-lib.pl';
&error_setup($text{'assoc_err'});
&ReadParse();
$d = &get_domain($in{'dom'});
$d || &error($text{'edit_egone'});
&can_associate_domain($d) || &error($text{'assoc_ecannot'});
# Update domain object with new features
&obtain_lock_everything($d);
foreach my $f (&list_possible_domain_features($d),
&list_possible_domain_plugins($d)) {
if ($d->{$f} && !$in{$f}) {
$d->{$f} = 0;
push(@disabled, $f);
}
elsif (!$d->{$f} && $in{$f}) {
$d->{$f} = 1;
push(@enabled, $f);
}
}
if ($in{'validate'}) {
# Make sure any enabled features actually make sense
foreach my $f (@enabled) {
$vfunc = "validate_$f";
if (defined(&$vfunc)) {
$err = &$vfunc($d);
if ($err) {
&error(&text('assoc_evalidate',
$text{'feature_'.$f}, $err));
}
}
}
}
# Save the domain
&save_domain($d);
&release_lock_everything($d);
&clear_links_cache($d);
&webmin_log("assoc", "domain", $d->{'dom'}, $d);
# Redirect with left-side refresh
&domain_redirect($d, 1);
|