Session Configuration on Agilent Pizzabox/RT900

Main Interface:

set hSession [AgtInvoke AgtTestTopology AddSession $hPort AGT_SESSION_PIM]
lappend agtArray($port,intSession,hPimSession) "$hSession"
set agtArray($hSession,port) "$port"
set agtArray($hSession,tgnDevice) "$dev"

AgtInvoke AgtPimSession SetPimMode $hSession AGT_PIM_MODE_SM
AgtInvoke AgtPimSession SetPimSmRendezvousPoint $hSession $rpAddr
AgtInvoke AgtPimSession SetPimTimer $hSession AGT_PIM_TIMER_HELLO_PERIOD 60
AgtInvoke AgtPimSession SetPimTimer $hSession AGT_PIM_TIMER_KEEPALIVE_PERIOD 200
AgtInvoke AgtPimSession Enable $hSession
--------------------------------------------------------------------------------------------------------------------
SubInterface [vlans]

# On Agilent port
if {$noTgn} {
set hPort [GetAgilentPortHandle $port]
#set sessionList [AgtInvoke AgtTestTopology ListAllVirtualInterfacesOnPort $hPort]
set sessionList [AgtInvoke AgtTestTopology ListVirtualInterfaces $hPort]
set newSessionList [lrmdups $sessionList]
set newSessionList [lremove $newSessionList "0"]
set newSessionList [lremove $newSessionList "$hPort"]
set subIntSessionList $newSessionList

foreach subIntSession $subIntSessionList {

set session "[list $hPort $subIntSession]"

set hPimSession [AgtInvoke AgtTestTopology AddSession $session AGT_SESSION_PIM]
set agtSessions "$subIntSession $hPimSession"
lappend agtArray($port,subIntSession,hPimSession) $agtSessions
set agtArray($hSession,port) "$port"
set agtArray($hSession,tgnDevice) "$dev"

set sutAddrList [AgtInvoke AgtEthernetAddresses ListSutIpAddressesByPool $hPort $subIntSession]
set sutAddr [lindex $sutAddrList 0]
set testerAddrInfo [AgtInvoke AgtEthernetAddressPool GetTesterIpAddresses $subIntSession]
set testerAddr [lindex $testerAddrInfo 0]
set pfxLength [lindex $testerAddrInfo 1]

AgtInvoke AgtPimSession SetInterfaceIpAddress $hSession $testerAddr $pfxLength
AgtInvoke AgtPimSession SetRouterId $hSession $testerAddr
AgtInvoke AgtPimSession SetPimMode $hSession AGT_PIM_MODE_SM
AgtInvoke AgtPimSession SetPimSmRendezvousPoint $hSession $rpAddr
AgtInvoke AgtPimSession SetPimTimer $hSession AGT_PIM_TIMER_HELLO_PERIOD 60
AgtInvoke AgtPimSession SetPimTimer $hSession AGT_PIM_TIMER_KEEPALIVE_PERIOD 200
AgtInvoke AgtPimSession Enable $hSession


}
}
}

set sessionList [AgtInvoke AgtEthernetAddresses ListAddressPools $hPort]
set sessionNum [llength $sessionList]

if {[cequal $sessionNum 1]} {

set sessionId $sessionList
set newList $subIntfsList
puts "newList: $newList"
set firstSubIntId [lvarpop newList]
set firstSubIntAddr [CT_IntArray -dev $dev1 -num $firstSubIntId -get -attr addr]
set addr $firstSubIntAddr
set firstVlanPoolStartAddr [UT_IncrIp firstSubIntAddr 0.0.0.1]
set firstSubIntVlanId [CT_IntArray -dev $dev1 -num $firstSubIntId -get -attr vlanId]

puts "newList: $newList firstSubIntId: $firstSubIntId \
firstSubIntAddr: $firstSubIntAddr\
firstVlanPoolStartAddr: $firstVlanPoolStartAddr\
firstSubIntVlanId: $firstSubIntVlanId"

set defaultAddr [AgtInvoke AgtEthernetAddresses ListSutIpAddresses $hPort]
AgtInvoke AgtEthernetAddresses ModifySutIpAddress $hPort $defaultAddr $addr
AgtInvoke AgtEthernetAddressPool SetTesterIpAddresses\
$sessionId $firstVlanPoolStartAddr 24 1 1
AgtInvoke AgtEthernetAddressPool EnableVlan $sessionId
AgtInvoke AgtEthernetAddressPool SetVlanId $sessionId $firstSubIntVlanId

GI_ResolveARP -pSrcRtr $dev1 -dAddr $firstVlanPoolStartAddr

foreach subIntfId $newList {

set subIntAddr [CT_IntArray -dev $dev1 -num $subIntfId -get -attr addr]
AgtInvoke AgtEthernetAddresses AddSutIpAddress $hPort $subIntAddr
set vlanPoolStartAddr [UT_IncrIp subIntAddr 0.0.0.1]
set subIntVlanId [CT_IntArray -dev $dev1 -num $subIntfId -get -attr vlanId]

# Creating only 1 address in on pool $hPort $vlanPoolStartAddr 24 254 1
set vlanSessionNo [AgtInvoke AgtEthernetAddresses AddAddressPool\
$hPort $vlanPoolStartAddr 24 1 1]
AgtInvoke AgtEthernetAddressPool EnableVlan $vlanSessionNo
AgtInvoke AgtEthernetAddressPool SetVlanId $vlanSessionNo $subIntVlanId

GI_ResolveARP -pSrcRtr $dev1 -dAddr $vlanPoolStartAddr
}

} else {

foreach subIntfId $subIntfsList {

set subIntAddr [CT_IntArray -dev $dev1 -num $subIntfId -get -attr addr]
AgtInvoke AgtEthernetAddresses AddSutIpAddress $hPort $subIntAddr
set vlanPoolStartAddr [UT_IncrIp subIntAddr 0.0.0.1]
set subIntVlanId [CT_IntArray -dev $dev1 -num $subIntfId -get -attr vlanId]
# Creating only 1 address in on pool $hPort $vlanPoolStartAddr 24 254 1
set vlanSessionNo [AgtInvoke AgtEthernetAddresses AddAddressPool $hPort $vlanPoolStartAddr 24 1 1]
AgtInvoke AgtEthernetAddressPool EnableVlan $vlanSessionNo
AgtInvoke AgtEthernetAddressPool SetVlanId $vlanSessionNo $subIntVlanId
GI_ResolveARP -pSrcRtr $dev1 -dAddr $vlanPoolStartAddr
}
}
}
foreach subIntSession $subIntSessionList {

set session "[list $hPort $subIntSession]"

set hBgpSession [AgtInvoke AgtTestTopology AddSession $session AGT_SESSION_BGP4_E_BGP]

set agtSessions "$subIntSession $hBgpSession"

lappend agtArray($port,subIntSession,hBgpSession) $agtSessions

set sutAddrList [AgtInvoke AgtEthernetAddresses ListSutIpAddressesByPool $hPort $subIntSession]
set sutAddr [lindex $sutAddrList 0]
set testerAddrInfo [AgtInvoke AgtEthernetAddressPool GetTesterIpAddresses $subIntSession]
set testerAddr [lindex $testerAddrInfo 0]
set pfxLength [lindex $testerAddrInfo 1]

AgtInvoke AgtBgp4Session SetTesterIpAddress $hSession $testerAddr
#AgtInvoke AgtBgp4Session SetRouterId $hSession $testerAddr
AgtInvoke AgtBgp4Session SetSutIpAddress $hSession $sutAddr
AgtInvoke AgtBgp4Session SetRoutesPerUpdate $hSession $routesPer
AgtInvoke AgtBgp4Session SetInterUpdateDelay $hSession $updateDelay
AgtInvoke AgtBgp4Session SetTesterAsNumber $hSession $AsTGN
AgtInvoke AgtBgp4Session SetSutAsNumber $hSession $ASnumRtr
AgtInvoke AgtBgp4Session Enable $hSession
set AsTGN [expr $AsTGN + 1]
}

set hRoutePool [AgtInvoke AgtBgp4RouteList AddRoutePools $hSession $intMask $num]
AgtInvoke AgtBgp4RoutePool SetRoutes $hRoutePool $prefix $intMask $num $mod

set addr [lindex [AgtInvoke AgtBgp4RoutePool GetRoutes $routepool] 0]
if {[cequal $addr $startAddr]} {
AgtInvoke AgtBgp4RoutePool Withdraw $routepool

AgtInvoke AgtBgp4RouteList RemoveRoutePools $hSession $routepool
AgtInvoke AgtBgp4RoutePool Advertise $routepool
set status "1"