diff options
Diffstat (limited to 'haunt/jakob/dynamic')
| -rw-r--r-- | haunt/jakob/dynamic/capabilities/comments.scm | 2 | ||||
| -rw-r--r-- | haunt/jakob/dynamic/capabilities/gallery.scm | 2 | ||||
| -rw-r--r-- | haunt/jakob/dynamic/capabilities/rsvp.scm | 2 | ||||
| -rw-r--r-- | haunt/jakob/dynamic/config.scm (renamed from haunt/jakob/dynamic/database.scm) | 12 | ||||
| -rw-r--r-- | haunt/jakob/dynamic/logging.scm | 4 |
5 files changed, 16 insertions, 6 deletions
diff --git a/haunt/jakob/dynamic/capabilities/comments.scm b/haunt/jakob/dynamic/capabilities/comments.scm index 996c549..33f2429 100644 --- a/haunt/jakob/dynamic/capabilities/comments.scm +++ b/haunt/jakob/dynamic/capabilities/comments.scm @@ -18,7 +18,7 @@ #:use-module (ice-9 match) #:use-module (jakob dynamic capabilities common) #:use-module (jakob dynamic captcha) - #:use-module (jakob dynamic database) + #:use-module (jakob dynamic config) #:use-module (jakob dynamic errors) #:use-module (jakob dynamic util) #:use-module (json) diff --git a/haunt/jakob/dynamic/capabilities/gallery.scm b/haunt/jakob/dynamic/capabilities/gallery.scm index 591335e..7087149 100644 --- a/haunt/jakob/dynamic/capabilities/gallery.scm +++ b/haunt/jakob/dynamic/capabilities/gallery.scm @@ -17,7 +17,7 @@ (define-module (jakob dynamic capabilities gallery) #:use-module (haunt html) #:use-module (ice-9 match) - #:use-module (jakob dynamic database) + #:use-module (jakob dynamic config) #:use-module (jakob dynamic errors) #:use-module (jakob dynamic util) #:use-module (jakob theme) diff --git a/haunt/jakob/dynamic/capabilities/rsvp.scm b/haunt/jakob/dynamic/capabilities/rsvp.scm index 2975e4d..856f1f1 100644 --- a/haunt/jakob/dynamic/capabilities/rsvp.scm +++ b/haunt/jakob/dynamic/capabilities/rsvp.scm @@ -18,7 +18,7 @@ #:use-module (gcrypt base64) #:use-module (ice-9 binary-ports) #:use-module (ice-9 match) - #:use-module (jakob dynamic database) + #:use-module (jakob dynamic config) #:use-module (jakob dynamic errors) #:use-module (jakob dynamic util) #:use-module (json) diff --git a/haunt/jakob/dynamic/database.scm b/haunt/jakob/dynamic/config.scm index f5b1353..5eb615b 100644 --- a/haunt/jakob/dynamic/database.scm +++ b/haunt/jakob/dynamic/config.scm @@ -14,9 +14,17 @@ ;;; along with this program. If not, see ;;; <http://www.gnu.org/licenses/>. -(define-module (jakob dynamic database) - #:export (paramstring-for-dbname)) +(define-module (jakob dynamic config) + #:export (%debug-enabled + paramstring-for-dbname)) +;; Whether or not to enable "debug mode", in which: +;; +;; - Log messages are written to stdout. +;; - Rate limiting is disabled. +(define %debug-enabled (make-parameter (or (getenv "API_SERVER_DEBUG") #f))) + +;; Should be fairly self-explanatory. (define %postgresql-user (make-parameter (or (getenv "API_SERVER_DB_USER") "jakob_dynamic"))) (define %postgresql-host (make-parameter (or (getenv "API_SERVER_DB_HOST") "localhost"))) (define %postgresql-port (make-parameter (or (getenv "API_SERVER_DB_PORT") "5432"))) diff --git a/haunt/jakob/dynamic/logging.scm b/haunt/jakob/dynamic/logging.scm index 7b1bd0a..c937c66 100644 --- a/haunt/jakob/dynamic/logging.scm +++ b/haunt/jakob/dynamic/logging.scm @@ -16,11 +16,13 @@ (define-module (jakob dynamic logging) #:use-module (ice-9 format) + #:use-module (jakob dynamic config) #:use-module (srfi srfi-19) #:export (log-append!)) -(define %log-file-name (make-parameter "/var/log/jakob-dynamic.log")) (define %log-level (make-parameter 'info)) +(define %log-file-name + (make-parameter (if (%debug-enabled) "/dev/stdout" "/var/log/jakob-dynamic.log"))) (define (dominates message-level baseline-level) "Determine if `a' should be shown for baseline log level `b'." |