⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.133
Server IP:
185.119.109.197
Server:
Linux managedhosting.chostar.me 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software:
Apache
PHP Version:
8.1.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
webmin
/
virtual-server
/
View File Name :
edit_newvalidate.cgi
#!/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 @fopts = &validation_select_features(); 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'});