PAL.C.T MINI SHELL
#!/usr/bin/perl
# Do the validation
require './virtual-server-lib.pl';
&ReadParse();
&error_setup($text{'newvalidate_err'});
&can_edit_templates() || &error($text{'newvalidate_ecannot'});
# Check and parse inputs
if ($in{'servers_def'}) {
@doms = &list_domains();
}
else {
foreach $id (split(/\0/, $in{'servers'})) {
$d = &get_domain($id);
push(@doms, $d) if ($d);
}
}
@doms || &error($text{'newvalidate_edoms'});
if ($in{'features_def'}) {
@feats = ( @validate_features, &list_feature_plugins() );
}
else {
@feats = split(/\0/, $in{'features'});
}
@feats || &error($text{'newvalidate_efeats'});
&ui_print_header(undef, $text{'newvalidate_title'}, "");
print "<b>$text{'newvalidate_doing'}</b><p>\n";
# Do it
print "<dl>\n";
foreach $d (@doms) {
# Call all the feature validators
@errs = ( );
$count = 0;
foreach $f (@feats) {
next if (!$d->{$f});
if (&indexof($f, &list_feature_plugins()) < 0) {
# Core feature
next if (!$config{$f});
$vfunc = "validate_$f";
$err = &$vfunc($d);
$name = $text{'feature_'.$f};
}
else {
# Plugin feature
$err = &plugin_call($f, "feature_validate", $d);
$name = &plugin_call($f, "feature_name");
}
push(@errs, "$name : $err") if ($err);
$count++;
}
# Print message, if anything done
if ($count) {
print "<dt>",&show_domain_name($d),"\n";
if (@errs) {
print "<dd><font color=#ff0000>",
join("<br>\n", @errs),"</font>\n";
}
else {
print "<dd>$text{'newvalidate_good'}\n";
}
}
}
print "</dl>\n";
&ui_print_footer("", $text{'index_return'},
"edit_newvalidate.cgi", $text{'newvalidate_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`