PAL.C.T MINI SHELL
#!/usr/bin/perl
# Set up regular validation
require './virtual-server-lib.pl';
&ReadParse();
&error_setup($text{'newvalidate_err2'});
&can_edit_templates() || &error($text{'newvalidate_ecannot'});
# Validate inputs
$oldjob = $job = &find_cron_script($validate_cron_cmd);
$job ||= { 'user' => 'root',
'active' => 1,
'command' => $validate_cron_cmd };
if ($in{'sched'}) {
$in{'email'} =~ /^\S+\@\S+$/ || &error($text{'newquotas_eemail'});
&virtualmin_ui_parse_cron_time("sched", $job, \%in);
}
if ($in{'sched'} == 0) {
delete($config{'validate_sched'});
}
elsif ($in{'sched'} == 1) {
$config{'validate_sched'} = '@'.$job->{'special'};
}
else {
$config{'validate_sched'} =
join(" ", $job->{'mins'}, $job->{'hours'}, $job->{'days'},
$job->{'months'}, $job->{'weekdays'});
}
$config{'validate_email'} = $in{'email'};
$config{'validate_config'} = $in{'config'};
$config{'validate_always'} = $in{'always'};
if ($in{'servers_def'}) {
delete($config{'validate_servers'});
}
else {
$in{'servers'} || &error($text{'newvalidate_edoms'});
$config{'validate_servers'} = join(" ", split(/\0/, $in{'servers'}));
}
if ($in{'features_def'}) {
delete($config{'validate_features'});
}
else {
$in{'features'} || &error($text{'newvalidate_efeatures'});
$config{'validate_features'} = join(" ", split(/\0/, $in{'features'}));
}
# Setup the Cron job
if ($oldjob) {
&delete_cron_script($validate_cron_cmd);
}
if ($in{'sched'}) {
&setup_cron_script($job);
}
# Save configuration
$config{'last_check'} = time()+1; # no need for check.cgi to be run
&lock_file($module_config_file);
&save_module_config();
&unlock_file($module_config_file);
&run_post_actions_silently();
&webmin_log("validate");
&redirect("");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`