From e5b967948428e9fa5a31969858cbcb7eac145320 Mon Sep 17 00:00:00 2001
From: nano <nano@onefortheroadgit.local>
Date: Sun, 3 May 2026 23:52:07 +0000
Subject: [PATCH] Auto-reseed Abacus key from machine env

---
 core/helpers.asp | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/core/helpers.asp b/core/helpers.asp
index a735410..4e6f87c 100644
--- a/core/helpers.asp
+++ b/core/helpers.asp
@@ -78,7 +78,7 @@ Public Function GetEnvironmentValue(name)
 End Function
 
 Public Function GetSecureSetting(key, envName)
-    Dim value
+    Dim value, envValue
 
     value = Trim(CStr(GetAppSetting(key)))
     If Len(value) > 0 And LCase(value) <> "nothing" Then
@@ -86,9 +86,13 @@ Public Function GetSecureSetting(key, envName)
         Exit Function
     End If
 
-    value = Trim(CStr(GetEnvironmentValue(envName)))
-    If Len(value) > 0 Then
-        GetSecureSetting = value
+    envValue = Trim(CStr(GetEnvironmentValue(envName)))
+    If Len(envValue) > 0 Then
+        On Error Resume Next
+        UpdateAppSetting key, envValue
+        Err.Clear
+        On Error GoTo 0
+        GetSecureSetting = envValue
         Exit Function
     End If