aboutsummaryrefslogtreecommitdiff
path: root/src/cgi-bin
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 /src/cgi-bin
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 'src/cgi-bin')
-rw-r--r--src/cgi-bin/dict.scm49
-rw-r--r--src/cgi-bin/nea.scm48
2 files changed, 7 insertions, 10 deletions
diff --git a/src/cgi-bin/dict.scm4 b/src/cgi-bin/dict.scm4
index c9f895b..4d301fb 100644
--- a/src/cgi-bin/dict.scm4
+++ b/src/cgi-bin/dict.scm4
@@ -1,5 +1,5 @@
;;;; Greek Dictionary Web Engine
-;;;; Copyright (C) 2004, 2005, 2006, 2007 Sergey Poznyakoff
+;;;; Copyright (C) 2004, 2005, 2006, 2007, 2010 Sergey Poznyakoff
;;;;
;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
@@ -51,14 +51,13 @@ ifelse(IFACE,[CGI],(cgi:init))
(if (not db-connection)
(begin
(set! db-connection
- (sql-connect
- sql-iface sql-host sql-port sql-database
- sql-username sql-password))
+ (sql-open-connection
+ ellinika-sql-connection))
(sql-query db-connection "SET NAMES utf8")
)))
(else
(if db-connection
- (sql-connect-close db-connection))
+ (sql-close-connection db-connection))
(set! db-connection #f)))
db-connection)))
diff --git a/src/cgi-bin/nea.scm4 b/src/cgi-bin/nea.scm4
index e490a59..b5a9af0 100644
--- a/src/cgi-bin/nea.scm4
+++ b/src/cgi-bin/nea.scm4
@@ -1,5 +1,5 @@
;;;; News page for Ellinika
-;;;; Copyright (C) 2004, 2005, 2006, 2007 Sergey Poznyakoff
+;;;; Copyright (C) 2004, 2005, 2006, 2007, 2010 Sergey Poznyakoff
;;;;
;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
@@ -380,9 +380,7 @@ ifelse(IFACE,[CGI],(cgi:init))
</rss>"))
(define (nea-sql-connect)
- (let ((conn (sql-connect
- sql-iface sql-host sql-port sql-database
- sql-username sql-password)))
+ (let ((conn (sql-open-connection ellinika-sql-connection)))
(sql-query conn "SET NAMES utf8")
conn))
@@ -507,7 +505,7 @@ ifelse(IFACE,[CGI],(cgi:init))
(template-file target-language tmpl)
nea-html)
- (sql-connect-close conn))
+ (sql-close-connection conn))
(lambda (key err descr)
(with-input-from-file

Return to:

Send suggestions and report system problems to the System administrator.