Viewing file:  edit_newvalidate.cgi (5.38 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Show a form for validating multiple servers
require './virtual-server-lib.pl';
&ReadParse();
&can_use_validation() || &error($text{'newvalidate_ecannot'});
&ui_print_header(undef, $text{'newvalidate_title'}, "", "newvalidate");
# Start of tabs
print &ui_tabs_start([ [ 'val', $text{'newvalidate_tabval'} ],
&can_use_validation() == 2 ? (
[ 'sched', $text{'newvalidate_tabsched'} ],
[ 'fix', $text{'newvalidate_tabsfix'} ],
[ 'reset', $text{'newvalidate_tabsreset'} ],
) : ( ),
],
'mode', $in{'mode'} || 'val', 1);
# Start of validation form
print &ui_tabs_start_tab('mode', 'val');
print "$text{'newvalidate_desc'}<p>\n";
print &ui_form_start("validate.cgi", "post");
print &ui_table_start($text{'newvalidate_header'}, undef, 2);
# Servers to check
@doms = &list_visible_domains();
print &ui_table_row($text{'newvalidate_servers'},
&ui_radio("servers_def", 1,
[ [ 1, $text{'newips_all'} ],
[ 0, $text{'newips_sel'} ] ])."<br>\n".
&servers_input("servers", [ ], \@doms));
# Features to check
my @validate_features_ = @validate_features;
features_sort(\@validate_features_, \@validate_features_);
foreach $f (@validate_features_) {
push(@fopts, [ $f, $text{'feature_'.$f} ]);
}
my @list_feature_plugins = &list_feature_plugins();
features_sort(\@list_feature_plugins, \@list_feature_plugins);
foreach $f (@list_feature_plugins) {
if (&plugin_defined($f, "feature_validate")) {
push(@fopts, [ $f, &plugin_call($f, "feature_name") ]);
}
}
print &ui_table_row($text{'newvalidate_feats'},
&ui_radio("features_def", 1,
[ [ 1, $text{'newvalidate_all'} ],
[ 0, $text{'newvalidate_sel'} ] ])."<br>\n".
&ui_select("features", undef,
\@fopts, 10, 1));
print &ui_table_end();
print &ui_form_end([ [ "ok", $text{'newvalidate_ok'} ] ]);
print &ui_tabs_end_tab('mode', 'val');
if (&can_use_validation() == 2) {
# Start of scheduled check form
print &ui_tabs_start_tab('mode', 'sched');
print "$text{'newvalidate_desc2'}<p>\n";
print &ui_form_start("save_validate.cgi", "post");
print &ui_table_start($text{'newvalidate_header2'}, undef, 2);
# When to validate
$job = &find_cron_script($validate_cron_cmd);
print &ui_table_row($text{'newvalidate_sched'},
&virtualmin_ui_show_cron_time("sched", $job,
$text{'newquotas_whenno'}));
# Who to notify
print &ui_table_row($text{'newvalidate_email'},
&ui_textbox("email", $config{'validate_email'}, 40));
# Also check config?
print &ui_table_row($text{'newvalidate_config'},
&ui_yesno_radio("config", $config{'validate_config'}));
# Always email
print &ui_table_row($text{'newvalidate_always'},
&ui_yesno_radio("always", $config{'validate_always'}));
# Servers to check
@ids = split(/\s+/, $config{'validate_servers'});
print &ui_table_row($text{'newvalidate_servers'},
&ui_radio("servers_def", @ids ? 0 : 1,
[ [ 1, $text{'newips_all'} ],
[ 0, $text{'newips_sel'} ] ])."<br>\n".
&servers_input("servers", \@ids, \@doms));
# Features to check
@fids = split(/\s+/, $config{'validate_features'});
print &ui_table_row($text{'newvalidate_feats'},
&ui_radio("features_def", @fids ? 0 : 1,
[ [ 1, $text{'newvalidate_all'} ],
[ 0, $text{'newvalidate_sel'} ] ])."<br>\n".
&ui_select("features", \@fids,
\@fopts, 10, 1));
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'save'} ] ]);
print &ui_tabs_end_tab('mode', 'sched');
# Start of permissions fix form
print &ui_tabs_start_tab('mode', 'fix');
print "$text{'newvalidate_desc3'}<p>\n";
print &ui_form_start("fixperms.cgi", "post");
print &ui_table_start($text{'newvalidate_header3'}, undef, 2);
# Servers to check
print &ui_table_row($text{'newvalidate_fixservers'},
&ui_radio("servers_def", 1,
[ [ 1, $text{'newips_all'} ],
[ 0, $text{'newips_sel'} ] ])."<br>\n".
&servers_input("servers", [ ],
[ grep { !$_->{'parent'} } @doms ]));
# Also check sub-servers?
print &ui_table_row($text{'newvalidate_subservers'},
&ui_yesno_radio("subservers", 0));
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'newvalidate_fix'} ] ]);
print &ui_tabs_end_tab('mode', 'fix');
# Start of reset feature form
print &ui_tabs_start_tab('mode', 'reset');
print "$text{'newvalidate_desc4'}<p>\n";
print &ui_form_start("reset_features.cgi", "post");
print &ui_table_start($text{'newvalidate_header4'}, undef, 2);
# Domain to reset
print &ui_table_row($text{'newvalidate_resetdom'},
&one_server_input("server", undef, \@doms));
# Features to reset
my @rfopts;
foreach my $f (@fopts) {
if (&indexof($f->[0], @list_feature_plugins) >= 0) {
$can = &plugin_defined($f->[0], "feature_can_reset") ?
&plugin_call($f->[0], "feature_can_reset") : 1;
}
else {
my $crfunc = "can_reset_".$f->[0];
$can = defined(&$crfunc) ? &$crfunc() : 1;
}
push(@rfopts, $f) if ($can);
}
print &ui_table_row($text{'newvalidate_resetfeats'},
&ui_select("features", undef,
\@rfopts, 10, 1));
# Skip warnings about data loss?
print &ui_table_row($text{'newvalidate_resetskip'},
&ui_yesno_radio("skipwarnings", 0));
print &ui_table_row($text{'newvalidate_resetonoff'},
&ui_yesno_radio("fullreset", 0));
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'newvalidate_reset'} ] ]);
print &ui_tabs_end_tab('mode', 'reset');
}
print &ui_tabs_end(1);
&ui_print_footer("", $text{'index_return'});
|