diff options
Diffstat (limited to 'src/ellinika/config.scm4')
-rw-r--r-- | src/ellinika/config.scm4 | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/src/ellinika/config.scm4 b/src/ellinika/config.scm4 new file mode 100644 index 0000000..8032409 --- /dev/null +++ b/src/ellinika/config.scm4 @@ -0,0 +1,42 @@ +;;;; -*- 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 <http://www.gnu.org/licenses/>. +;;;; + +(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)))) + + |