aboutsummaryrefslogtreecommitdiff
path: root/scm/dictrans.scm
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2010-03-09 22:31:34 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2010-03-09 22:31:34 +0000
commit150f2f64e4e580c0d6ab75d4bee150a4369cc4f1 (patch)
tree8fdccbaafe764302ff42d9657dd0170d4d2c7e3f /scm/dictrans.scm
parent7968cb70a5dcbf57af5884f28dafe188fc6415c5 (diff)
downloadellinika-150f2f64e4e580c0d6ab75d4bee150a4369cc4f1.tar.gz
ellinika-150f2f64e4e580c0d6ab75d4bee150a4369cc4f1.tar.bz2
Update for newer Gamma.
* scm/dictrans.scm: Use Gamma 1.99 syntax. * scm/neatrans.scm: Likewise. * src/ellinika/dico.scm: Likewise. * src/cgi-bin/dict.scm4: Likewise. * src/cgi-bin/nea.scm4: Likewise. * src/ellinika/cgi.scm4 (sql-iface) (sql-host,sql-port,sql-database) (sql-username,sql-password): Remove reexports. (ellinika-sql-connection): New reexport. * src/ellinika/config.scm4 (sql-iface) (sql-host,sql-port,sql-database) (sql-username,sql-password): Remove variables. (ellinika-sql-connection): New variable. git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@541 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'scm/dictrans.scm')
-rw-r--r--scm/dictrans.scm34
1 files changed, 16 insertions, 18 deletions
diff --git a/scm/dictrans.scm b/scm/dictrans.scm
index ae9b3f5..d76479e 100644
--- a/scm/dictrans.scm
+++ b/scm/dictrans.scm
@@ -4,3 +4,3 @@
;;;; This file is part of Ellinika
-;;;; Copyright (C) 2004, 2005, 2007 Sergey Poznyakoff
+;;;; Copyright (C) 2004, 2005, 2007, 2010 Sergey Poznyakoff
;;;;
@@ -98,8 +98,3 @@
-(define sql-iface "mysql")
-(define sql-host "localhost")
-(define sql-database "ellinika")
-(define sql-port 3306)
-(define sql-password #f)
-(define sql-username #f)
+(define ellinika-sql-connection '())
(define verbose-option #f)
@@ -127,2 +122,5 @@
+(define (add-conn-param key val)
+ (set! ellinika-sql-connection (cons (cons key val) ellinika-sql-connection)))
+
@@ -671,3 +669,4 @@
conn
- (if (string=? sql-iface "mysql")
+ (if (string=? (let ((x (assoc #:iface ellinika-sql-connection)))
+ (if x (cdr x) "")) "mysql")
"UPDATE pending_links p, dict d SET p.type='CLOSED' WHERE p.word = d.word"
@@ -969,13 +968,13 @@ Informational options:
((database)
- (set! sql-database (cdr x)))
+ (add-conn-param #:db (cdr x)))
((host)
- (set! sql-host (cdr x)))
+ (add-conn-param #:host (cdr x)))
((port)
- (set! sql-port (string->number (cdr x))))
+ (add-conn-param #:port (string->number (cdr x))))
((password)
- (set! sql-password (cdr x)))
+ (add-conn-param #:pass (cdr x)))
((user)
- (set! sql-username (cdr x)))
+ (add-conn-param #:user (cdr x)))
((interface)
- (set! sql-iface (cdr x)))
+ (add-conn-param #:iface (cdr x)))
((verbose)
@@ -1008,4 +1007,3 @@ Informational options:
-(let ((conn (sql-connect sql-iface sql-host sql-port sql-database
- sql-username sql-password)))
+(let ((conn (sql-open-connection ellinika-sql-connection)))
(if (not conn)
@@ -1031,3 +1029,3 @@ Informational options:
(begin
- (sql-connect-close conn)
+ (sql-close-connection conn)
(exit 0)))
@@ -1056,3 +1054,3 @@ Informational options:
- (sql-connect-close conn))
+ (sql-close-connection conn))

Return to:

Send suggestions and report system problems to the System administrator.