Ignore:
Timestamp:
11/16/08 15:28:06 (12 years ago)
Author:
sjamaan
Message:

Add logging support

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/spiffy/trunk/ssp-handler.scm

    r12520 r12527  
    3535(module ssp-handler
    3636  (ssp-handler ssp-include ssp-stringize ssp-short-open-tag ssp-long-open-tag
    37    ssp-close-tag ssp-eval-environment current-workdir exit-handler)
     37   ssp-close-tag ssp-eval-environment current-workdir ssp-exit-handler)
    3838
    3939(import chicken scheme spiffy extras ports regex files posix)
     
    4141
    4242(define current-workdir (make-parameter #f))
    43 (define exit-handler    (make-parameter #f))
     43(define ssp-exit-handler    (make-parameter #f))
    4444
    4545(define ssp-eval-environment (make-parameter (interaction-environment)))
     
    5050                  (content-length ,(string-length out)))
    5151    (lambda ()
    52       (write-response (current-response))
     52      (write-logged-response)
    5353      (display out (response-port (current-response)))))))
    5454
     
    121121   (lambda (return)
    122122     (parameterize ((load-verbose #f)
    123                     (exit-handler (lambda _ (return #f))))
     123                    (ssp-exit-handler (lambda _ (return #f))))
    124124       (load filename (cut eval <> (ssp-eval-environment)))))))
    125125
Note: See TracChangeset for help on using the changeset viewer.