Overview
| Comment: | allowed cmdline pgdb to override config pgdb |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
056d11c7d2ba26bca9215468e88dc55e |
| User & Date: | srehman on 2017-03-22 11:51:28 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-03-22
| ||
| 12:53 | Cleaned out handful of not used globals and added exception handler for dealing with problems when switching log file output port check-in: f61cc5eb98 user: matt tags: v1.64 | |
| 11:51 | allowed cmdline pgdb to override config pgdb check-in: 056d11c7d2 user: srehman tags: v1.64 | |
|
2017-03-21
| ||
| 23:29 | Merged in use-cache option and couple minor typo fixes from cache-control branch check-in: b8c9afec8d user: matt tags: v1.64 | |
Changes
Modified cgisetup/models/pgdb.scm from [0f76410646] to [1921a0ad10].
| ︙ | ︙ | |||
24 25 26 27 28 29 30 | ;; (import chicken) (use typed-records (prefix dbi dbi:)) ;; given a configdat lookup the connection info and open the db ;; (define (pgdb:open configdat #!key (dbname #f)) | | | 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
;; (import chicken)
(use typed-records (prefix dbi dbi:))
;; given a configdat lookup the connection info and open the db
;;
(define (pgdb:open configdat #!key (dbname #f))
(let ((pgconf (or (args:get-arg "-pgsync") (configf:lookup configdat "ext-sync" (or dbname "pgdb")))))
(if pgconf
(let* ((confdat (map (lambda (conf-item)
(let ((parts (string-split conf-item ":")))
(if (> (length parts) 1)
(let ((key (car parts))
(val (cadr parts)))
(cons (string->symbol key) val))
|
| ︙ | ︙ |