1package require starsync 2 3set r [starsync::reply] 4 5lassign $argv log 6if {$log ne "" && [file writable $log]} { 7 set time [clock format [clock seconds] -format {%Y/%m/%d %T}] 8 if {[catch { set env(REMOTE_ADDR) } addr]} { set addr - } 9 if {[catch { set env(REQUEST_URI) } uri]} { set uri - } 10 set fd [open $log a] 11 puts $fd [linsert $r 0 $addr $time $uri] 12 close $fd 13} 14