mirror of
https://github.com/webmin/webmin.git
synced 2026-02-09 08:42:20 +00:00
31 lines
684 B
Perl
31 lines
684 B
Perl
|
|
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";
|
|
}
|
|
}
|
|
|
|
|