(define-action-type TRACE-HEADERS
(:standard
:documentation "Traces the headers of accessed URIs.")
(action activity url)
(let ((*headers* (get-resource-headers activity url))
(stream (report-stream activity)))
(when *headers*
(fresh-line stream)
(print-headers stream))))
Previous slide | Next slide | Back to the first slide | View Graphic Version |