Ignore:
Timestamp:
08/23/08 14:26:09 (13 years ago)
Author:
felix winkelmann
Message:

henrietta writes REMOTE_ADDR to log

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/hygienic/henrietta.scm

    r11714 r11717  
    7575
    7676  (define (service)
    77     (let ((qs (getenv "QUERY_STRING")))
     77    (let ((qs (getenv "QUERY_STRING"))
     78          (ra (getenv "REMOTE_ADDR")))
     79      (fprintf (current-error-port) "~%========== serving request from ~a ...~%"
     80               (or ra "<unknown>"))
    7881      (unless qs
    7982        (error "no QUERY_STRING set"))
Note: See TracChangeset for help on using the changeset viewer.