diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-03-09 22:31:34 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-03-09 22:31:34 +0000 |
commit | 150f2f64e4e580c0d6ab75d4bee150a4369cc4f1 (patch) | |
tree | 8fdccbaafe764302ff42d9657dd0170d4d2c7e3f /src/ellinika | |
parent | 7968cb70a5dcbf57af5884f28dafe188fc6415c5 (diff) | |
download | ellinika-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.scm4 | 5 | ||||
-rw-r--r-- | src/ellinika/config.scm4 | 12 | ||||
-rw-r--r-- | src/ellinika/dico.scm | 9 |
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" . "Греческо-русский словарь"))) |