Log millisecond by irule

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"]\]"

 

}