Megatest

Check-in [056d11c7d2]
Login
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: 056d11c7d2ba26bca9215468e88dc55e0a79bfa0
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
31

32
33
34
35
36
37
38
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 (configf:lookup configdat "ext-sync" (or dbname "pgdb")) (args:get-arg "-pgsync"))))
  (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))