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