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 @@ -97,20 +97,22 @@ (define sql-iface "mysql") (define sql-host "localhost") (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 '()) (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) (load rc-file))) (define (debug level . rest) @@ -764,13 +766,13 @@ (set! sql-host (cdr x))) ((port) (set! sql-port (string->number (cdr x)))) ((password) (set! sql-password (cdr x))) ((user) - (set! sql-user (cdr x))) + (set! sql-username (cdr x))) ((interface) (set! sql-iface (cdr x))) ((verbose) (set! verbose-option #t)) ((preserve) (set! preserve-option #t)) @@ -795,13 +797,13 @@ (lambda (x) (if (not (xmltrans:parse-file x)) (exit 1))) 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)) (exit 1))) (read-pos conn) |