gets current scripts

code-current/get-current-scripts

@@ -0,0 +1,2 @@
+#!/bin/bash
+racket -e "(require \"get-current-scripts.rkt\") (read-all)"

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)))
 
-
+(define (read-all)
-
+  (let ((dbh (apply connect-db (read-db-config))))
-
+    (read-script-configs dbh)
-   
+    (read-scripts dbh))
-
+   )
-
-;(displayln (read-db-config))
-             
-             
 

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();