Megatest

Check-in [5d1a6894bb]
Login
Overview
Comment:added pgsync via command line creds
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64
Files: files | file ages | folders
SHA1: 5d1a6894bb9bf483a9b22ceca602bec7f63b513e
User & Date: srehman on 2017-03-16 12:13:05
Other Links: branch diff | manifest | tags
Context
2017-03-20
15:14
fixed issues related to PWD not matching -start-dir argument check-in: 75dc576fb1 user: bjbarcla tags: v1.64
12:12
missing server fix commit Closed-Leaf check-in: 74d9575642 user: matt tags: server-fix
2017-03-16
12:13
added pgsync via command line creds check-in: 5d1a6894bb user: srehman tags: v1.64
2017-03-15
17:32
added flag to allow adding prefix to target check-in: 1fee8d8e98 user: srehman tags: v1.64
Changes

Modified cgisetup/models/pgdb.scm from [c3a02037dc] to [0f76410646].

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







|







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

Modified megatest.scm from [eda3e8595c] to [5b2eaab011].

287
288
289
290
291
292
293

294
295
296
297
298
299
300
			"-source-db"

                        "-src-target"
                        "-src-runname"
                        "-diff-email"
			"-sync-to"
			"-prefix-target"			

                        "-diff-html"
			)
 		 (list  "-h" "-help" "--help"
			"-manual"
			"-version"
		        "-force"
		        "-xterm"







>







287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
			"-source-db"

                        "-src-target"
                        "-src-runname"
                        "-diff-email"
			"-sync-to"
			"-prefix-target"			
			"-pgsync"
                        "-diff-html"
			)
 		 (list  "-h" "-help" "--help"
			"-manual"
			"-version"
		        "-force"
		        "-xterm"