From bfeff94be7f70d07760336cb15db214f3907e060 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Fri, 28 Aug 2026 12:23:22 +0200
Subject: [PATCH] gets current scripts

---
 code-current/get-current-scripts     |  2 ++
 code-current/get-current-scripts.rkt | 17 ++++++++---------
 code-current/scripts/000 job test.js |  2 +-
 3 files changed, 11 insertions(+), 10 deletions(-)
 create mode 100755 code-current/get-current-scripts
 mode change 100644 => 100755 code-current/get-current-scripts.rkt

diff --git a/code-current/get-current-scripts b/code-current/get-current-scripts
new file mode 100755
index 0000000..dd30d00
--- /dev/null
+++ b/code-current/get-current-scripts
@@ -0,0 +1,2 @@
+#!/bin/bash
+racket -e "(require \"get-current-scripts.rkt\") (read-all)"
diff --git a/code-current/get-current-scripts.rkt b/code-current/get-current-scripts.rkt
old mode 100644
new mode 100755
index 7933b95..39360a6
--- a/code-current/get-current-scripts.rkt
+++ b/code-current/get-current-scripts.rkt
@@ -4,6 +4,8 @@
          racket/string
          )
 
+(provide read-all)
+
 (define crm-cfg-file (build-path (find-system-path 'home-dir) "crm" "data" "config-internal.php"))
 
 (define (read-db-config)
@@ -67,6 +69,7 @@
                                             (string-append (string-replace name "/" "-") "." ext))))
             )
   
+          (displayln (format "making ~a / ~a" dir name))
           (to-file (mk-name name "id") id)
           (to-file (mk-name name "js") value_script)
           (to-file (mk-name name "descr") description)
@@ -81,13 +84,9 @@
   (let ((rows (query-rows dbh "select id, name, description, formule from script where deleted = 0")))
      (handle-rows "scripts" rows)))
 
-
-
-
-   
-
-
-;(displayln (read-db-config))
-             
-             
+(define (read-all)
+  (let ((dbh (apply connect-db (read-db-config))))
+    (read-script-configs dbh)
+    (read-scripts dbh))
+   )
 
diff --git a/code-current/scripts/000 job test.js b/code-current/scripts/000 job test.js
index 897bdf3..e9d6d23 100644
--- a/code-current/scripts/000 job test.js	
+++ b/code-current/scripts/000 job test.js	
@@ -1,4 +1,4 @@
-// last execution: 2026-08-28 10:17:02
+// last execution: 2026-08-28 10:23:01
 $cfg = ConfigGet('job-test');
 log('warning', 'JobTest: Current value for config job-test:', $cfg);
 $cfg = datetime\now();