PAL.C.T MINI SHELL
#!/usr/bin/perl
# Convert an alias server to a sub-server, after asking for confirmation
require './virtual-server-lib.pl';
&ReadParse();
$d = &get_domain($in{'dom'});
&can_config_domain($d) || &error($text{'unalias_ecannot'});
($dleft, $dreason, $dmax) = &count_domains("realdoms");
&error(&text('setup_emax', $dmax)) if ($dleft == 0);
if ($in{'confirm'}) {
# Do it, and show progress
&ui_print_unbuffered_header(&domain_in($d), $text{'unalias_title'}, "");
&$first_print(&text('unalias_doing', "<tt>$d->{'dom'}</tt>"));
$ok = &unalias_virtual_server($d);
if ($ok) {
&$second_print($text{'setup_done'});
}
else {
&$second_print($text{'unalias_failed'});
}
&run_post_actions();
&webmin_log("unalias", "domain", $d->{'dom'}, $d);
# Call any theme post command
if (defined(&theme_post_save_domain)) {
&theme_post_save_domain($d, 'modify');
}
}
else {
# Ask for confirmation first
&ui_print_header(&domain_in($d), $text{'unalias_title'}, "", "unalias");
print &ui_confirmation_form(
"unalias.cgi", $text{'unalias_rusure'},
[ [ 'dom', $d->{'id'} ] ],
[ [ 'confirm', $text{'unalias_ok'} ] ],
);
}
&ui_print_footer(&domain_footer_link($d),
"", $text{'index_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`