Logging the request coming to a Virtual Server

Meet the loginator!!!

when CLIENT_ACCEPTED {
  set hsl [HSL::open -proto UDP -pool syslog_server_pool]
}
when HTTP_REQUEST {
    HSL::send $static::hsl "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<"
    HSL::send $static::hsl "Client: [IP::client_addr]:[TCP::client_port]"
    HSL::send $static::hsl "[HTTP::method] [HTTP::uri]"
    HSL::send $static::hsl "HTTP \/[HTTP::version]"
    foreach aHeader [HTTP::header names] {
        HSL::send $static::hsl "$aHeader: [HTTP::header value $aHeader]"
    }
    if {[HTTP::header exists "Content-Length"] } {
        HTTP::collect [HTTP::header "Content-Length"]
    } else {
        HTTP::collect 1048576
    }
}

when HTTP_REQUEST_DATA {
    HSL::send $static::hsl "Payload: [HTTP::payload]"
    HTTP::release   
}

when HTTP_RESPONSE {
    HSL::send $static::hsl ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
    foreach aHeader [HTTP::header names] {
        HSL::send $static::hsl "$aHeader: [HTTP::header value $aHeader]"
   }
}