proc ConfigBgpEmulationHlt { portConfigParams {platform legacy} } {
    upvar $portConfigParams params
    
    foreach {properties values} [array get params *] {
	set property [lindex [split $properties ,] end]
	append paramList "$property $values "
    }

    if {$platform == "ngpf"} {
	puts "\nConfigBgpEmulationHlt: ngpf ...\n"
	set bgpConfigStatus [eval ::ixiangpf::emulation_bgp_config $paramList]
    }

    if {$platform == "legacy"} {
	puts "\nConfigBgpEmulationHlt: legacy ..."
	set bgpConfigStatus [eval ::ixia::emulation_bgp_config $paramList]
    }

    if {[keylget bgpConfigStatus status] != $::SUCCESS} {
	puts "\nError: ConfigBgpEmulationHlt: [keylget bgpConfigStatus log]"
	return 1
    }

    return $bgpConfigStatus
}