Changeset 13600 in project


Ignore:
Timestamp:
03/08/09 18:54:57 (11 years ago)
Author:
sjamaan
Message:

Add debugging logs

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/spiffy/trunk/spiffy.scm

    r13598 r13600  
    121121  (make-parameter
    122122   (lambda (exn chain)
    123      (log-to (error-log) (build-error-message exn chain #t))
     123     (log-to (error-log) "~A" (build-error-message exn chain #t))
    124124     (send-status 500 "Internal server error"))))
    125125
     
    440440                          (receive (local remote)
    441441                            (tcp-addresses in)
     442                            (log-to (debug-log)
     443                                    "~A: incoming request from ~A"
     444                                    (thread-name (current-thread)) remote)
    442445                            ;; This won't change during the session
    443446                            (parameterize ((remote-address remote)
     
    450453                                         (handle-incoming-request in out k)
    451454                                         #f)) ; in case of errors, we get here
     455                                  (log-to (debug-log)
     456                                          "~A: kept alive"
     457                                          (thread-name (current-thread)))
    452458                                  (handle-next-request)))
     459                              (log-to (debug-log)
     460                                          "~A: closing off"
     461                                          (thread-name (current-thread)))
    453462                              (close-input-port in)
    454463                              (close-output-port out))))
Note: See TracChangeset for help on using the changeset viewer.