;;;; -*- scheme -*- ;;;; Greek Dictionary Web Engine ;;;; Copyright (C) 2005, 2007, 2008 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. ;;;; ;;;; This program is distributed in the hope that it will be useful, ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; GNU General Public License for more details. ;;;; ;;;; You should have received a copy of the GNU General Public License ;;;; along with this program. If not, see . ;;;; (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 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) (load rc-file))))