Changeset 8440 in project


Ignore:
Timestamp:
02/13/08 09:13:56 (12 years ago)
Author:
elf
Message:

added some extra dribble debug statements in get/post handler

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/http/trunk/http-server.scm

    r8431 r8440  
    384384
    385385(define (get/post-handler req)
     386  (dribble "raw request value: ~A" req)
    386387  (let-values (((loc get-args) (http:decode-url (http:request-url req))))
    387388    (let ([args (append
     
    392393                 get-args)]
    393394          [h (http:find-resource loc)])
     395      (dribble "request handling:  args = ~A  resource = ~A" args h)
    394396      (if h
    395397          (handle-exceptions ex
Note: See TracChangeset for help on using the changeset viewer.