From f9c494a5cc9d05c14f10c6966132107491e5ee9b Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 12 Oct 2007 15:08:08 +0200 Subject: Support comment submission notification via e-mail. darcs-hash:72d3c69e6dc8ef47e9e6224adcc135637957ad09 --- main.lisp | 26 ++++++++++++++++---------- 1 file changed, 16 insertions(+), 10 deletions(-) (limited to 'main.lisp') diff --git a/main.lisp b/main.lisp index bbc08e6..fdd6b67 100644 --- a/main.lisp +++ b/main.lisp @@ -160,7 +160,9 @@ für die Spamerkennung.

") *journal-warnings*))) (update-records-from-instance comment) - (update-records-from-instance entry))) + (update-records-from-instance entry) + (when (eq *site* :nfs.net) + (mail-comment *notification-email* comment entry)))) (show-web-journal)) (:view-atom-feed (show-atom-feed)) (:view-debugging-page (show-debugging-page)) @@ -169,15 +171,19 @@ #+clisp (defun journal-main () - (ext:letf ((custom:*terminal-encoding* (ext:make-encoding - :charset charset:utf-8))) - (with-initialised-journal - (let ((*random-state* (make-random-state t))) - (if (member "--admin-mode" - (coerce (ext:argv) 'list) - :test #'string=) - (dispatch-admin-action) - (dispatch-user-action)))))) + (let ((encoding (ext:make-encoding :charset charset:utf-8))) + (ext:letf* ((custom:*terminal-encoding* encoding) + (custom:*foreign-encoding* encoding) + (custom:*misc-encoding* encoding) + (custom:*pathname-encoding* encoding) + (custom:*default-file-encoding* encoding)) + (with-initialised-journal + (let ((*random-state* (make-random-state t))) + (if (member "--admin-mode" + (coerce (ext:argv) 'list) + :test #'string=) + (dispatch-admin-action) + (dispatch-user-action))))))) #+clisp -- cgit v1.2.3