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/configuration/migrate/20TelnetServerMode
+++ b/root/etc/e-smith/db/configuration/migrate/20TelnetServerMode
@@ -0,0 +1,18 @@
+{
+    my $old = $DB->get('TelnetServerMode');
+    return unless defined $old;
+    my $status = $old->value;
+    $old->delete;
+
+    my %props = (
+	    type => 'service',
+	    'status' => (($status eq 'off') ? 'disabled' : 'enabled'),
+	    access => 'private',
+	);
+    unless ($status =~ /off|on/)
+    {
+	# The other options are public and private.
+	$props{access} = $status;
+    }
+    $DB->new_record('telnet', \%props);
+}