[Change file upload dir and add uploaded file reaping
clinton@unknownlamer.org**20080115222313
 Now expired sessions and stale uploads are reaped once per hour
] {
hunk ./start.lisp 31
+(defvar *golf-file-upload-root* "uploads"
+  "Subdirectory beneath *golf-data-root* to place uploaded files")
+
hunk ./start.lisp 66
-(defvar *golf-session-reaper* nil
-  "CLON Scheduler that runs ucw::remove-expired-sessions")
+(defvar *golf-reaper* nil
+  "CLON Scheduler that expires sessions and deletes any stale uploads etc.")
hunk ./start.lisp 69
-(defun start-reaping-dead-sessions ()
-  (labels ((session-reaper ()
-	     (format *debug-io* "Reaping sessions...~%")
-	     (ucw::remove-expired-sessions *golf-app*)))
-    (stop-reaping-dead-sessions)
-    (setq *golf-session-reaper*
-	  (clon:schedule-function
-	   #'session-reaper
-	   (clon:make-scheduler (clon:make-typed-cron-schedule :hour '*))
-	   :thread t :name "ucw session reaper"))))
+(defun start-reaping ()
+  (stop-reaping-dead-sessions)
+  (setq *golf-session-reaper*
+	(clon:schedule-function
+	 #'reaper
+	 (clon:make-scheduler (clon:make-typed-cron-schedule :hour '*))
+	 :thread t :name "ucw stale bread reaper")))
hunk ./start.lisp 77
-(defun stop-reaping-dead-sessions ()
+(defun stop-reaping ()
hunk ./start.lisp 80
-	    (sb-ext:unschedule-timer *golf-session-reaper*))))
+	    (sb-ext:unschedule-timer *golf-session-reaper*)))))
hunk ./start.lisp 95
-    (start-reaping-dead-sessions)))
+    (setq *file-upload-root* (format nil "~A/~A/"
+				     *golf-data-root* *golf-file-upload-root*))
+    (start-reaping)))
hunk ./start.lisp 101
-  (stop-reaping-dead-sessions)
+  (stop-reaping)
}