Posted to tcl by steve at Tue Aug 19 18:50:38 GMT 2014view raw

  1. diff -r 231ef31a11a9 Utilities/Http.tcl
  2. --- a/Utilities/Http.tcl Tue Sep 17 12:17:32 2013 +1000
  3. +++ b/Utilities/Http.tcl Tue Aug 19 11:51:21 2014 -0700
  4. @@ -175,7 +175,13 @@
  5.  
  6. # clf - common log format
  7. proc clf {r} {
  8. - lappend line [dict get $r -ipaddr] ;# remote IP
  9. + # are we getting our remote address from an HTTP header?
  10. + if { [Site var? Log address_from_header] ne "" } {
  11. + lappend line [dict get $r -[string tolower [Site var? Log address_from_header]]]
  12. + } else {
  13. + lappend line [dict get $r -ipaddr] ;# remote IP
  14. + }
  15. +
  16. lappend line - ;# RFC 1413 identity of the client. 'sif
  17. set user [dict get? $r -user] ;# is there a user identity?
  18. if {$user ne ""} {
  19.