diff options
-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 @@ -102,3 +102,3 @@ (define sql-password #f) -(define sql-user #f) +(define sql-username #f) (define verbose-option #f) @@ -110,2 +110,4 @@ +(define dict-cgi-path #f) + ;;; Load the site defaults @@ -769,3 +771,3 @@ ((user) - (set! sql-user (cdr x))) + (set! sql-username (cdr x))) ((interface) @@ -800,3 +802,3 @@ (let ((conn (sql-connect sql-iface sql-host sql-port sql-database - sql-user sql-password))) + sql-username sql-password))) (if (not conn) |