smeserver/smeserver-support
6
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

initial commit of file from CVS for smeserver-support on Mon 10 Jul 08:43:33 BST 2023

Browse Source
This commit is contained in:
Brian Read
2023-07-10 08:43:33 +01:00
parent f3dcd239bb
commit 56eab664a2
40 changed files with 2032 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
root/etc/e-smith/db/configuration/migrate/20InstallEpoch Normal file
View File

@@ -0,0 +1,7 @@
{
my $sysconfig = $DB->get('sysconfig')
|| $DB->new_record('sysconfig', { type => 'configuration' });
$sysconfig->prop('InstallEpoch')
|| $sysconfig->set_prop('InstallEpoch', time);
}

11
root/etc/e-smith/db/configuration/migrate/20StatusReport Normal file
View File

@@ -0,0 +1,11 @@
{
my $rec = $DB->get('statusreport')
|| $DB->new_record('statusreport', { type => 'service' });
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);
}