mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2025-08-08 07:16:58 +02:00
Code Issues Projects Releases Wiki Activity

Add support for PGSSLMODE environment variable.

Browse Source 
PostgreSQL supports many environment variable to drive its connection
behavior, as documented at the following reference:

  https://www.postgresql.org/docs/current/static/libpq-envars.html

We don't yet support everything, adding them one piece at a time.
This commit is contained in:
Dimitri Fontaine 2018-06-22 14:12:00 +02:00
parent 7b4821e26c
commit 047cf84341
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/parsers/command-db-uri.lisp
View File

@ -106,6 +106,12 @@
(declare (ignore key e)) (declare (ignore key e))
(cons :use-ssl val)))) (cons :use-ssl val))))
(defun get-pgsslmode (&optional (env-var-name "PGSSLMODE") default)
"Get PGSSLMODE from the environment."
(let ((pgsslmode (getenv-default env-var-name default)))
(when pgsslmode
(cdr (parse 'dsn-option-ssl (format nil "sslmode=~a" pgsslmode))))))
(defrule qualified-table-name (and maybe-quoted-namestring (defrule qualified-table-name (and maybe-quoted-namestring
"." "."
maybe-quoted-namestring) maybe-quoted-namestring)
@ -210,7 +216,7 @@
(getenv-default "PGPORT" "5432"))) (getenv-default "PGPORT" "5432")))
:name (or dbname (getenv-default "PGDATABASE" user)) :name (or dbname (getenv-default "PGDATABASE" user))
:use-ssl use-ssl :use-ssl (or use-ssl (get-pgsslmode "PGSSLMODE"))
:table-name table-name))) :table-name table-name)))
;; Now set the password, maybe from ~/.pgpass ;; Now set the password, maybe from ~/.pgpass
(setf (db-pass pgconn) (setf (db-pass pgconn)