aboutsummaryrefslogtreecommitdiff
path: root/src/ellinika
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/ellinika
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/ellinika')
-rw-r--r--src/ellinika/cgi.scm45
-rw-r--r--src/ellinika/config.scm412
-rw-r--r--src/ellinika/dico.scm9
3 files changed, 8 insertions, 18 deletions
diff --git a/src/ellinika/cgi.scm4 b/src/ellinika/cgi.scm4
index 38fd3de..c7fbdb6 100644
--- a/src/ellinika/cgi.scm4
+++ b/src/ellinika/cgi.scm4
@@ -1,9 +1,9 @@
;;;; -*- scheme -*-
;;;; Greek Dictionary Web Engine
-;;;; Copyright (C) 2005, 2007 Sergey Poznyakoff
+;;;; Copyright (C) 2005, 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
;;;; the Free Software Foundation; either version 3 of the License, or
;;;; (at your option) any later version.
;;;;
@@ -17,14 +17,13 @@
;;;;
(define-module (ellinika cgi)
#:use-module (ellinika config)
#:use-module (ellinika i18n)
#:use-module ifelse(IFACE,[CGI],(www cgi),(guile-user))
#:re-export (base-dir html-dir sysconf-dir locale-path
- sql-iface sql-host sql-port sql-database
- sql-username sql-password
+ ellinika-sql-connection
config-file-name ))
ifelse(IFACE,[CGI],,dnl
(define form-data
(append
diff --git a/src/ellinika/config.scm4 b/src/ellinika/config.scm4
index 8032409..3b2bcbe 100644
--- a/src/ellinika/config.scm4
+++ b/src/ellinika/config.scm4
@@ -1,9 +1,9 @@
;;;; -*- scheme -*-
;;;; Greek Dictionary Web Engine
-;;;; Copyright (C) 2005, 2007, 2008 Sergey Poznyakoff
+;;;; Copyright (C) 2005, 2007, 2008, 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
;;;; the Free Software Foundation; either version 3 of the License, or
;;;; (at your option) any later version.
;;;;
@@ -19,21 +19,13 @@
(define-module (ellinika config))
(define-public base-dir "PREFIX")
(define-public html-dir "HTMLDIR")
(define-public sysconf-dir "SYSCONFDIR")
(define-public locale-path "LOCALEDIR:/usr/share/locale:/usr/local/share/locale")
-(define-public sql-iface "mysql") ;; SQL interface ("mysql" or "postgres")
-;; SQL server hostname or a path to the UNIX socket
-(define-public sql-host "localhost")
-(define-public sql-port 3306) ;; SQL port number (0 for sockaddr_un
- ;; connection)
-(define-public sql-database "ellinika") ;; Name of the database
-(define-public sql-username "gray") ;; Database user name
-(define-public sql-password "") ;; Password for that user name
-
+(define-public ellinika-sql-connection '())
(define-public config-file-name "ellinika.conf")
(define-public (ellinika-config-setup)
;;; Load the site defaults
(let ((rc-file (string-append sysconf-dir "/" config-file-name)))
(if (file-exists? rc-file)
diff --git a/src/ellinika/dico.scm b/src/ellinika/dico.scm
index de564c2..7c04db2 100644
--- a/src/ellinika/dico.scm
+++ b/src/ellinika/dico.scm
@@ -1,8 +1,8 @@
;;;; A Dico module for Greek Dictionary Web Engine -*- scheme -*-
-;;;; Copyright (C) 2008 Sergey Poznyakoff
+;;;; Copyright (C) 2008, 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
;;;; the Free Software Foundation; either version 3 of the License, or
;;;; (at your option) any later version.
;;;;
@@ -72,24 +72,23 @@
(set! target-language (cadr av)))
(else
(dico-error "Unknown option " (car av)))))
(else
(dico-error "Unknown option " (car av))))))
rest)
- (let ((db-connection (sql-connect
- sql-iface sql-host sql-port sql-database
- sql-username sql-password)))
+ (let ((db-connection (sql-open-connection
+ ellinika-sql-connection)))
(sql-query db-connection "SET NAMES utf8")
(list db-connection target-language type))))
(defmacro dbh:conn (dbh) `(list-ref ,dbh 0))
(defmacro dbh:lang (dbh) `(list-ref ,dbh 1))
(defmacro dbh:type (dbh) `(list-ref ,dbh 2))
(define (close-module dbh)
- (sql-connect-close (dbh:conn dbh)))
+ (sql-close-connection (dbh:conn dbh)))
(define descr-list
'(("pl" . "Słownik grecko-polski")
("uk" . "Грецько-украЇнський словник")
("ru" . "Греческо-русский словарь")))

Return to:

Send suggestions and report system problems to the System administrator.