14 lines
490 B
Plaintext
14 lines
490 B
Plaintext
{
|
|
my $rec = $DB->get('statusreport')
|
|
|| $DB->new_record('statusreport', { type => 'configuration' });
|
|
|
|
my %props = $rec->props;
|
|
|
|
exists $props{DayOfWeek} or $props{DayOfWeek} = int(rand(7));
|
|
exists $props{Hour} or $props{Hour} = int(rand(24));
|
|
exists $props{Minute} or $props{Minute} = int(rand(60));
|
|
$rec->merge_props(%props);
|
|
|
|
$DB->set_prop('statusreport', "type", "configuration") if ${'statusreport'}{type} eq "service";
|
|
}
|