rule_dnsprofiler.tcl

when RULE_INIT {
    set static::DEBUG 1
}

when CLIENT_ACCEPTED {
    virtual vs_googledns_53
    set clientside_datahitcounter 0
    set serverside_datahitcounter 0

    array set pmap [call ProtocolProfilerInit::init_dns]
}

when CLIENT_DATA {
    set clientrecord_counter 0
    incr clientside_datahitcounter

    set client_payload_in_hex ""
    binary scan [UDP::payload] H* client_payload_in_hex

    log -noname local0. "C->S"
    call ProtocolProfilerProcs::mapProtocol 0 $client_payload_in_hex 0 {} "" [array get pmap] $static::DEBUG
    log -noname local0. ""
    log -noname local0. ""
    log -noname local0. ""
}

when SERVER_CONNECTED {

}

when SERVER_DATA {
    set serverrecord_counter 0
    incr serverside_datahitcounter

    set server_payload_in_hex ""
    binary scan [UDP::payload] H* server_payload_in_hex

    log -noname local0. "S->C"
    call ProtocolProfilerProcs::mapProtocol 0 $server_payload_in_hex 0 {} "" [array get pmap] $static::DEBUG
    log -noname local0. ""
    log -noname local0. ""
    log -noname local0. ""
}