diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-12 13:48:17 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-12 13:48:17 +0000 |
commit | fcf560f10c3e597fd74fabbddd2abcb7856dd7c1 (patch) | |
tree | 517829397ad6900f5ca07caf0846b73412ee047f /scm/dictrans.scm | |
parent | d31ef40180393b0cd5eeee80164b958132f35423 (diff) | |
download | ellinika-fcf560f10c3e597fd74fabbddd2abcb7856dd7c1.tar.gz ellinika-fcf560f10c3e597fd74fabbddd2abcb7856dd7c1.tar.bz2 |
Improve compatibility with dict.cgi
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@226 941c8c0f-9102-463b-b60b-cd22ce0e6858
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 @@ -101,5 +101,5 @@ (define sql-port 3306) (define sql-password #f) -(define sql-user #f) +(define sql-username #f) (define verbose-option #f) (define debug-level 0) @@ -109,4 +109,6 @@ (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))) @@ -768,5 +770,5 @@ (set! sql-password (cdr x))) ((user) - (set! sql-user (cdr x))) + (set! sql-username (cdr x))) ((interface) (set! sql-iface (cdr x))) @@ -799,5 +801,5 @@ (let ((conn (sql-connect sql-iface sql-host sql-port sql-database - sql-user sql-password))) + sql-username sql-password))) (if (not conn) (begin |