Revision: 3996 Author: hans URL: http://bknr.net/trac/changeset/3996
Remove rest of Lisp based cert-daemon.
U trunk/projects/bos/build.lisp U trunk/projects/bos/m2/config.lisp U trunk/projects/bos/m2/packages.lisp
Modified: trunk/projects/bos/build.lisp =================================================================== --- trunk/projects/bos/build.lisp 2008-10-15 20:10:29 UTC (rev 3995) +++ trunk/projects/bos/build.lisp 2008-10-15 20:18:16 UTC (rev 3996) @@ -83,10 +83,3 @@ #+(and cmu mp) (mp::startup-idle-and-top-level-loops))
-(defun start-cert-daemon () - (ensure-sbcl-home) - (env-ascii-check) - (asdf:oos 'asdf:load-op :bos.web) - (format t "; starting certificate generation daemon~%") - (bos.m2.cert-generator:cert-daemon)) -
Modified: trunk/projects/bos/m2/config.lisp =================================================================== --- trunk/projects/bos/m2/config.lisp 2008-10-15 20:10:29 UTC (rev 3995) +++ trunk/projects/bos/m2/config.lisp 2008-10-15 20:18:16 UTC (rev 3996) @@ -49,8 +49,6 @@ *pdf-base-directory*)) (defparameter *receipt-download-template* (merge-pathnames #p"spendenbescheinigung-download.pdf" *pdf-base-directory*)) -(defparameter *cert-daemon-poll-seconds* 2 - "Wartezeit zwischen zwei Directory-Scans des Urkunden-Daemons")
;; Mail-Stuff (defparameter *mail-sender* "mxm-automail@create-rainforest.org"
Modified: trunk/projects/bos/m2/packages.lisp =================================================================== --- trunk/projects/bos/m2/packages.lisp 2008-10-15 20:10:29 UTC (rev 3995) +++ trunk/projects/bos/m2/packages.lisp 2008-10-15 20:18:16 UTC (rev 3996) @@ -52,7 +52,6 @@ #:*receipt-mail-template* #:*receipt-download-template* #:*num-coords-per-line* - #:*cert-daemon-poll-seconds* #:*manual-contract-expiry-time* #:*online-contract-expiry-time*))
@@ -269,16 +268,6 @@ #:peek-queue ))
-(defpackage :bos.m2.cert-generator - (:use :cl - :bos.m2.config - :bknr.utils - :cl-ppcre - :cl-interpol - :cl-gd) - (:shadowing-import-from :cl-interpol #:quote-meta-chars) - (:export #:cert-daemon)) - (defpackage :bos.m2.allocation-cache (:use :cl :geometry