[bknr-cvs] hans changed trunk/projects/bos/

[BKNR Commits]

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 at 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