smeserver-support/root/etc/e-smith/db/configuration/migrate/20StatusReport

{
    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";
}