gets current scripts

2026-08-28 12:23:22 +02:00
parent 2f92328461
commit bfeff94be7
3 changed files with 11 additions and 10 deletions
@@ -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))
+   )