;;;; -*- scheme -*- ;;;; Greek Dictionary Web Engine ;;;; 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. ;;;; ;;;; 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 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) (load rc-file))))