nassella/app
1
0
Fork 0
Code Issues 33 Pull Requests Packages Projects 1 Releases Wiki Activity

Properly escape apps.config

Browse Source
This commit is contained in:
Thomas Hintz
2026-07-11 14:37:43 -07:00
parent ce948a86ce
commit ce4882816b
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/nassella.scm
View File

@@ -821,9 +821,19 @@ h1, h2, h3, h4, h5, h6 {
(volume-destroy . ,(search "volume_attachment.machine: Destruction complete" "volume_attachment.machine: Destroying..." "XXX - nothing")))) (volume-destroy . ,(search "volume_attachment.machine: Destruction complete" "volume_attachment.machine: Destroying..." "XXX - nothing"))))
(define (write-config-entry name value) (define (write-config-entry name value)
(display name)
(display "='")
(display (if value
(string-translate* (->string value) '(("'" . "\\'"))) ;; escape any single quotes
""))+
(print "'"))
(define (write-terraform-config-entry name value)
(display name) (display name)
(display "=\"") (display "=\"")
(display value) (display (if value
(string-translate* (->string value) '(("\"" . "\\\""))) ;; escape any double quotes
""))+
(print "\"")) (print "\""))
(define (progress-status->text status) (define (progress-status->text status)
@@ -1632,7 +1642,7 @@ chmod -R 777 /opt/keys")))
(with-output-to-file (string-append dir "/config/production.tfvars") (with-output-to-file (string-append dir "/config/production.tfvars")
(lambda () (lambda ()
(map (lambda (e) (map (lambda (e)
(write-config-entry (car e) (cdr e))) (write-terraform-config-entry (car e) (cdr e)))
`(("server_type" . ,(alist-ref 'digitalocean-size service-config)) `(("server_type" . ,(alist-ref 'digitalocean-size service-config))
("do_token" . ,(alist-ref 'digitalocean-api-token service-config)) ("do_token" . ,(alist-ref 'digitalocean-api-token service-config))
("digitalocean_volume_size" . ,(alist-ref 'digitalocean-volume-size service-config)) ("digitalocean_volume_size" . ,(alist-ref 'digitalocean-volume-size service-config))