require 'cron-lib.pl';

sub module_install
{
# Create a cron job to delete old files in /tmp/.webmin
eval {
	$main::error_must_die = 1;
	local @jobs = &cron::list_cron_jobs();
	local ($job) = grep { $_->{'user'} eq 'root' &&
			      $_->{'command'} eq $temp_delete_cmd } @jobs;
	if (!$job) {
		$job = { 'user' => 'root',
			 'active' => 1,
			 'command' => $temp_delete_cmd,
			 'mins' => int(rand()*60),
			 'hours' => int(rand()*24),
			 'days' => '*',
			 'months' => '*',
			 'weekdays' => '*', };
		&create_cron_job($job);
		&create_wrapper($temp_delete_cmd, $module_name,"tempdelete.pl");
		}
	};
if ($@) {
	print STDERR "Failed to setup /tmp cleanup cron job : $@\n";
	}
}




syntax highlighted by Code2HTML, v. 0.9.1