proc GetTopologyPorts { topologyName } { # Gets all the ports associated with the Topology foreach topology [ixNet getList [ixNet getRoot] topology] { set currentName [ixNet getAttribute $topology -name] if {$currentName == $topologyName} { set topologyVports [ixNet getAttribute $topology -vports] set portList {} foreach vport $topologyVports { lappend portList [GetVportConnectedToPort $vport] } } } if {[info exists portList]} { return $portList } else { return } }