Changeset 3905

Show
Ignore:
Timestamp:
09/16/08 16:30:16 (2 months ago)
Author:
hans
Message:

Last minute deployment changes for Quickhoney.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/web/src/images/image.lisp

    r3847 r3905  
    167167 
    168168(defun import-directory (pathname &key user keywords (spool *user-spool-directory-root*) 
    169                          keywords-from-dir (class-name 'store-image)) 
     169                         keywords-from-dir (class-name 'store-image) (delete-files t)) 
    170170  "Import all files from directory by giving them relative names" 
    171171  (let ((path-spool (cdr (pathname-directory spool)))) 

  • trunk/projects/quickhoney/src/handlers.lisp

    r3897 r3905  
    552552            (encode-array-element (second month)))))))) 
    553553 
     554(defclass shutdown-handler (admin-only-handler page-handler) 
     555  ()) 
     556 
     557(defmethod handle ((handler shutdown-handler)) 
     558  (hunchentoot:stop-server hunchentoot:*server*) 
     559  "Shutting down HTTP server") 

  • trunk/projects/quickhoney/src/init.lisp

    r3897 r3905  
    3131  (ensure-directories-exist 
    3232   (setf tbnl:*tmp-directory* (merge-pathnames "hunchentoot-tmp/" *store-directory*))) 
    33   #+cmu 
    3433  (actor-start (make-instance 'cron-actor)) 
    3534  (publish-quickhoney) 
    …… 
    3837    (let ((*package* (find-package :quickhoney.config))) 
    3938      (load "site-config.lisp"))) 
    40   (hunchentoot:start-server :port *webserver-port*)) 
     39  (bt:make-thread (curry #'hunchentoot:start-server 
     40                         :port *webserver-port* 
     41                         :threaded nil 
     42                         :persistent-connections-p nil) 
     43                  :name (format nil "HTTP server on port ~A" *webserver-port*))) 

  • trunk/projects/quickhoney/src/webserver.lisp

    r3881 r3905  
    3838                                        ("/json-news-archive" json-news-archive-handler) 
    3939                                        ("/json-news" json-news-handler) 
     40                                        ("/shutdown" shutdown-handler) 
    4041                                        user 
    4142                                        images 

  • trunk/projects/quickhoney/upgrade-stuff/import.lisp

    r3903 r3905  
    120120        (import-or-update-image pathname) 
    121121        (warn "Ignoring file ~A with unknown extension" pathname)))) 
     122 
     123(defun clean-pixel-images () 
     124  (mapc #'delete-object (images-in-category '(:pixel :editorial))) 
     125  (mapc #'delete-object (images-in-category '(:pixel :parts))))