root/trunk/projects/bos/m2/config.lisp

Revision 4010, 3.1 kB (checked in by hans, 1 month ago)

Limit fuer Print-Urkunde auf 90 Euro erhoeht.

Line 
1 (in-package :bos.m2)
2
3 ;;;; Parameter
4
5 ;; Die Gesamtbreite des Gebiets in Quadratmetern.
6 (defconstant +width+ 10800)
7
8 ;; Die UTM-Koordinaten der Nord-West-Ecke des Gebiets (Zone 50)
9 (defconstant +utm-zone+ 50)
10 (defconstant +nw-utm-x+ 491698.366d0)
11 (defconstant +nw-utm-y+ 9890100.289d0)
12
13 ;; Die interne Datenstruktur kachelt die Quadratmetertabelle, um nicht ein
14 ;; Riesenarray in einem Schritt zu erzeugen.
15 ;;
16 ;; Der Wert von +M2TILE-WIDTH+ ist nicht nutzersichtbar, sollte aber die
17 ;; folgenden Richtlinien einhalten:
18 ;; - Bei sehr kleinen Werten (z.B. 1) amortisiert sich Nutzung von Arrays nicht
19 ;; - Zu grosse Arrays (z.B. 10800) sollten vermieden werden, das Lisp
20 ;;   ist nicht verpflichtet diese ueberhaupt anlegen zu koennen.
21 ;; - Muss ein Teiler von +WIDTH+ sein.
22 (defconstant +m2tile-width+ 90)
23
24 ;; Preis in Euro pro Quadratmeter XXX hardcoded
25 (defconstant +price-per-m2+ 3)
26
27 ;; Urkunden-Erzeugung
28
29 (defparameter *mail-amount* 90
30   "Limit fÃŒr den Versand der Urkunde per Post")
31
32 (defparameter *pdf-base-directory* (merge-pathnames #p"certs/" (user-homedir-pathname)))
33 (defparameter *cert-mail-directory* (merge-pathnames "mail-spool/" *pdf-base-directory*)
34   "Verzeichnis fÃŒr per Post zu versendende Urkunden-FDF-Dateien")
35 (defparameter *cert-download-directory* (merge-pathnames "download-spool/" *pdf-base-directory*)
36   "Verzeichnis fÃŒr Urkunden-FDF-Dateien, aus denen
37 Download-Urkunden erzeugt werden sollen")
38 (defparameter *receipt-mail-directory* (merge-pathnames "receipt-mail-spool/" *pdf-base-directory*)
39   "Verzeichnis fÃŒr per Post zu versendende Urkunden-FDF-Dateien")
40 (defparameter *receipt-download-directory* (merge-pathnames "receipt-download-spool/" *pdf-base-directory*)
41   "Verzeichnis fÃŒr Urkunden-FDF-Dateien, aus denen
42 Download-Urkunden erzeugt werden sollen")
43
44 (defparameter *cert-mail-template* (merge-pathnames #p"urkunde-print.pdf"
45                                                     *pdf-base-directory*))
46 (defparameter *cert-download-template* (merge-pathnames #p"urkunde-download.pdf"
47                                                         *pdf-base-directory*))
48 (defparameter *receipt-mail-template* (merge-pathnames #p"spendenbescheinigung-print.pdf"
49                                                        *pdf-base-directory*))
50 (defparameter *receipt-download-template* (merge-pathnames #p"spendenbescheinigung-download.pdf"
51                                                            *pdf-base-directory*))
52
53 ;; Mail-Stuff
54 (defparameter *mail-sender* "mxm-automail@create-rainforest.org"
55   "Absender fÃŒr automatisch generierte Mails")
56 (defparameter *office-mail-address* "mxm-office@bos-deutschland.de"
57   "EmpfÀnger fÃŒr Office-Mails")
58
59 ;; Urkundenerzeugung
60 (defparameter *mail-amount* 90
61   "Limit fÃŒr den Versand der Urkunde per Post")
62
63 (defparameter *num-coords-per-line* 6
64   "Anzahl der Koordinaten pro Zeile im Formular")
65
66 ;; Vertraege
67 (defparameter *manual-contract-expiry-time* (* 42 24 3600))
68 (defparameter *online-contract-expiry-time* (* 3600))
69
70 (defvar *website-url* "http://change-me")
71
72 ;; Einschalten des Mail-Versands (normalerweise aus)
73 (defvar *enable-mails* nil)
Note: See TracBrowser for help on using the browser.