PAL.C.T MINI SHELL
#!/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)) {
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);
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`