[noctool-cvs] CVS source

[jprewett]

Update of /project/noctool/cvsroot/source
In directory cl-net:/tmp/cvs-serv4266

Modified Files:
	web.lisp 
Log Message:

got rid of hunchentoot dependencies (since SymbolicWeb got rid of HT dependencies)



--- /project/noctool/cvsroot/source/web.lisp	2008/12/08 20:53:50	1.5
+++ /project/noctool/cvsroot/source/web.lisp	2008/12/11 20:24:52	1.6
@@ -1,20 +1,13 @@
 (in-package :sw)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (require :hunchentoot)
   (require :cl-who)
   (require :symbolicweb)
-  (use-package :hunchentoot)
   (use-package :cl-who)
   (use-package :symbolicweb))
 
 (setf *SHOW-LISP-BACKTRACES-P* t)
 (setf *SHOW-LISP-ERRORS-P* t)
-(setf CHUNGA:*ACCEPT-BOGUS-EOLS* t)
-
-;; turn off SW debugging
-(setf *sw-debug* NIL)
-
 
 ;; with-gensyms is modified from Paul Graham On Lisp
 (defmacro with-gensyms (symbols &body body)
@@ -451,15 +444,11 @@
     (add-to *root* systems-pane)
     (add-to *root* info-pane)))
 
-(push (hunchentoot::create-static-file-dispatcher-and-handler "/noctool.css" "/noctool/source/noctool.css" "text/css") (tbnl:server-dispatch-table (sw::ht-server-instance-of sw::*server*)))
+;; (push (hunchentoot::create-static-file-dispatcher-and-handler "/noctool.css" "/noctool/source/noctool.css" "text/css") (tbnl:server-dispatch-table (sw::ht-server-instance-of sw::*server*)))
 
 (defun noctool-image-dispatch ()
   ())
 
-;; XXX unimplemented!
-(push (create-prefix-dispatcher "/images/" #'noctool-image-dispatch)
-      *dispatch-table*)
-
 (defvar *unwanted-monitors* '(noctool::cpu-monitor))
 
 (defun schedule-all-monitors ()