diff options
Diffstat (limited to 'scm/dictrans.scm')
-rw-r--r-- | scm/dictrans.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/scm/dictrans.scm b/scm/dictrans.scm index ec87ad8..5d7f38e 100644 --- a/scm/dictrans.scm +++ b/scm/dictrans.scm @@ -100,7 +100,7 @@ (define sql-database "ellinika") (define sql-port 3306) (define sql-password #f) -(define sql-user #f) +(define sql-username #f) (define verbose-option #f) (define debug-level 0) (define input-files '()) @@ -108,6 +108,8 @@ (define sysconf-dir "=SYSCONFDIR=") (define config-file-name "ellinika.conf") +(define dict-cgi-path #f) + ;;; Load the site defaults (let ((rc-file (string-append sysconf-dir "/" config-file-name))) (if (file-exists? rc-file) @@ -767,7 +769,7 @@ ((password) (set! sql-password (cdr x))) ((user) - (set! sql-user (cdr x))) + (set! sql-username (cdr x))) ((interface) (set! sql-iface (cdr x))) ((verbose) @@ -798,7 +800,7 @@ input-files))) (let ((conn (sql-connect sql-iface sql-host sql-port sql-database - sql-user sql-password))) + sql-username sql-password))) (if (not conn) (begin (display "Cannot connect to the database\n" (current-error-port)) |