aboutsummaryrefslogtreecommitdiffstats
path: root/script-updates
diff options
context:
space:
mode:
Diffstat (limited to 'script-updates')
-rw-r--r--script-updates23
1 files changed, 22 insertions, 1 deletions
diff --git a/script-updates b/script-updates
index 971f2e4..d2390db 100644
--- a/script-updates
+++ b/script-updates
@@ -78,9 +78,30 @@
}
:if ($GlobalConfigVersion < $ExpectedConfigVersion) do={
+ :global GlobalConfigChanges;
+ :local ChangeLogCode;
+ :local Changes;
+
+ :log debug ("Fetching changelog.");
+ :do {
+ :local Result [ / tool fetch check-certificate=yes-without-crl \
+ ($ScriptUpdatesBaseUrl . "global-config.changes" . $ScriptUpdatesUrlSuffix) \
+ output=user as-value ];
+ :if ($Result->"status" = "finished") do={
+ :set ChangeLogCode ($Result->"data");
+ }
+ } on-error={
+ :log info ("Failed fetching changes!");
+ }
+ [ :parse $ChangeLogCode ];
+ :for I from=($GlobalConfigVersion + 1) to=$ExpectedConfigVersion do={
+ :set Changes ( $Changes . "\n * " . $GlobalConfigChanges->[ :tostr $I ] );
+ }
+
$SendNotification "Configuration warning!" \
("Current configuration on " . $Identity . " is out of date. " . \
"Please update global-config, then increase variable " . \
"GlobalConfigVersion (currently " . $GlobalConfigVersion . \
- ") to " . $ExpectedConfigVersion . " and re-run global-config.");
+ ") to " . $ExpectedConfigVersion . " and re-run global-config.\n\n" . \
+ "Changes:" . $Changes);
}