From fcf560f10c3e597fd74fabbddd2abcb7856dd7c1 Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Tue, 12 Oct 2004 13:48:17 +0000
Subject: Improve compatibility with dict.cgi

git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@226 941c8c0f-9102-463b-b60b-cd22ce0e6858
---
 scm/dictrans.scm | 8 +++++---
 1 file 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))
-- 
cgit v1.2.1