initial commit of file from CVS for e-smith-base on Thu 26 Oct 11:24:52 BST 2023

2023-10-26 11:24:52 +01:00
parent bbc22988a8
commit 9510d1a360
678 changed files with 22721 additions and 2 deletions
--- a/root/etc/e-smith/db/accounts/migrate/10Primary
+++ b/root/etc/e-smith/db/accounts/migrate/10Primary
@@ -0,0 +1,10 @@
+{
+    # Delete any pre-existing Primary=system record
+    my $p = $DB->get('Primary');
+    return unless defined $p;
+
+    my $type = $p->prop('type');
+    return unless defined $type;
+
+    $p->delete if $type eq 'system';
+}