#!/usr/bin/perl
# Save scheduled checking options

require './package-updates-lib.pl';
&ReadParse();

&lock_file($module_config_file);
$config{'sched_email'} = $in{'email_def'} ? '*' : $in{'email'};
$config{'sched_action'} = $in{'action'};
&save_module_config();
&unlock_file($module_config_file);

$oldjob = $job = &find_cron_job();
if ($in{'sched_def'}) {
	if ($job) {
		&lock_file(&cron::cron_file($job));
		&cron::delete_cron_job($job);
		&unlock_file(&cron::cron_file($job));
		}
	$msg = $text{'sched_no'};
	}
else {
	$job ||= { 'user' => 'root',
		   'active' => 1,
		   'command' => $cron_cmd };
	$job->{'mins'} = $job->{'hours'} = $job->{'days'} =
		$job->{'months'} = $job->{'weekdays'} = '*';
	if ($in{'sched'} eq 'h') {
		$job->{'mins'} = int(rand()*60);
		}
	elsif ($in{'sched'} eq 'd') {
		$job->{'mins'} = int(rand()*60);
		$job->{'hours'} = int(rand()*24);
		}
	elsif ($in{'sched'} eq 'w') {
		$job->{'mins'} = int(rand()*60);
		$job->{'hours'} = int(rand()*24);
		$job->{'weekdays'} = int(rand()*7);
		}
	&lock_file(&cron::cron_file($job));
	if ($oldjob) {
		&cron::change_cron_job($job);
		}
	else {
		&cron::create_cron_job($job);
		}
	&unlock_file(&cron::cron_file($job));
	&lock_file($cron_cmd);
	&cron::create_wrapper($cron_cmd, $module_name, "update.pl");
	&unlock_file($cron_cmd);
	$msg = $text{'sched_yes'};
	}

# Tell the user
&ui_print_header(undef, $text{'sched_title'}, "");

print "$msg<p>\n";

&webmin_log("sched", undef, $in{'sched_def'} ? 0 : 1);
&ui_print_footer("index.cgi?mode=$in{'mode'}&search=".
		 &urlize($in{'search'}), $text{'index_return'});