proc ConfigBgpRouteEmulationNgpfHlt { portConfigParams {platform legacy} } {
    # /vport/protocols/bgp/neighborRange:#

    upvar $portConfigParams params

    foreach {properties values} [array get params *] {
	set property [lindex [split $properties ,] end]
	append paramList "$property $values "
    }

    if {$platform == "ngpf"} {
	set portHandleIndex [lsearch $paramList -handle]
	set bgpNeighborNumber [lindex $paramList [expr $portHandleIndex + 1]]
	
	puts "\nConfigBgpRouteEmulationHlt: $bgpNeighborNumber ..."
	set bgpRouteConfigStatus [eval ::ixiangpf::emulation_bgp_route_config $paramList]
	
	if {[keylget bgpRouteConfigStatus status] != $::SUCCESS} {
	    puts "\nError ConfigBgpRouteEmulationHlt: [keylget bgpRouteConfigStatus log]"
	    return 1
	}
    }

    if {$platform == "legacy"} {
	set portHandleIndex [lsearch $paramList -handle]
	set bgpNeighborNumber [lindex $paramList [expr $portHandleIndex + 1]]
	
	puts "\nConfigBgpRouteEmulationHlt: $bgpNeighborNumber ..."
	set bgpRouteConfigStatus [eval ::ixia::emulation_bgp_route_config $paramList]
	
	if {[keylget bgpRouteConfigStatus status] != $::SUCCESS} {
	    puts "\nError ConfigBgpRouteEmulationHlt: [keylget bgpRouteConfigStatus log]"
	    return 1
	}
    }

    return 0
}