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

2023-07-10 08:43:33 +01:00
parent f3dcd239bb
commit 56eab664a2
40 changed files with 2032 additions and 2 deletions
--- a/root/etc/e-smith/db/configuration/migrate/20StatusReport
+++ b/root/etc/e-smith/db/configuration/migrate/20StatusReport
@@ -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);
+}