Thx Aaron, I can log milisecond now. Here's for your reference!
http://devcentral.f5.com/Default.aspx?tabid=53&forumid=5&postid=17943&view=topic
when LB_FAILED {
set info "client { [IP::client_addr]:[TCP::client_port] -> [clientside {IP::local_addr}]:[clientside {TCP::local_port}] }"
set secs [clock seconds]
set msec [clock clicks -milliseconds]
set base [expr { $secs * 1000 } ]
set fract [expr { $msec - $base }]
if { $fract >= 1000 } {
set diff [expr { $fract / 1000 }]
incr secs $diff
incr fract [expr { -1000 * $diff }]
}
append info " Clock" {[clock format [clock seconds] -format "%d/%m/%Y:%H:%M:%S.$fract %z"]}
log local0. "$info - - \[[clock format [clock seconds] -format "%d/%m/%Y:%H:%M:%S.$fract %z"]\]"
}
when SERVER_CONNECTED {
set info "client { [IP::client_addr]:[TCP::client_port] -> [clientside {IP::local_addr}]:[clientside {TCP::local_port}] }"
set secs [clock seconds]
set msec [clock clicks -milliseconds]
set base [expr { $secs * 1000 } ]
set fract [expr { $msec - $base }]
if { $fract >= 1000 } {
set diff [expr { $fract / 1000 }]
incr secs $diff
incr fract [expr { -1000 * $diff }]
}
append info " server { [IP::local_addr]:[TCP::local_port] -> [IP::server_addr]:[TCP::server_port] }"
append info " ethernet { [string range [LINK::lasthop] 0 16] -> [string range [LINK::nexthop] 0 16] tag [LINK::vlan_id] qos [LINK::qos] }"
log local0. "$info - - \[[clock format [clock seconds] -format "%d/%m/%Y:%H:%M:%S.$fract %z"]\]"
}