Ixia_NetNgpfIsis.tcl

# Copyright (c) Ixia technologies 2010-2011, Inc.

# Release Version 1.1
#===============================================================================
# Change made
# Version 1.0 
#       1. Create
# Version 1.1.14.58
#		2. Add ipv4_addr ipv4_gw ipv4_prefix_len ipv6_addr ipv6_gw ipv6_prefix_len in config
#		3. Add SimulatedRoute class

class IsisSession {
    inherit RouterEmulationObject
		
    constructor { port { hIsisSession NULL } } {}
    method reborn {} {}
    method config { args } {}
    method get_stats {} {}
    method advertise_topo {} {}
	method withdraw_topo {} {}
    
	public variable mac_addr
}

body IsisSession::get_stats {} {
    set tag "body IsisSession::get_stats [info script]"
    Deputs "----- TAG: $tag -----"
    set root [ixNet getRoot]
	set view {::ixNet::OBJ-/statistics/view:"BGP Aggregated Statistics"}
    # set view  [ ixNet getF $root/statistics view -caption "Port Statistics" ]
    Deputs "view:$view"
    set captionList             [ ixNet getA $view/page -columnCaptions ]
    Deputs "caption list:$captionList"
	set port_name				[ lsearch -exact $captionList {Stat Name} ]
    set session_conf            [ lsearch -exact $captionList {Sess. Configured} ]
    set session_succ            [ lsearch -exact $captionList {Sess. Up} ]
    set flap         	        [ lsearch -exact $captionList {Session Flap Count} ]
	
    set ret [ GetStandardReturnHeader ]
	
    set stats [ ixNet getA $view/page -rowValues ]
    Deputs "stats:$stats"

    set connectionInfo [ ixNet getA $hPort -connectionInfo ]
    Deputs "connectionInfo :$connectionInfo"
    regexp -nocase {chassis=\"([0-9\.]+)\" card=\"([0-9\.]+)\" port=\"([0-9\.]+)\"} $connectionInfo match chassis card port
    Deputs "chas:$chassis card:$card port$port"

    foreach row $stats {  
        eval {set row} $row
        Deputs "row:$row"
        Deputs "portname:[ lindex $row $port_name ]"
		if { [ string length $card ] == 1 } {
			set card "0$card"
		}
		if { [ string length $port ] == 1 } {
			set port "0$port"
		}
		if { "${chassis}/Card${card}/Port${port}" != [ lindex $row $port_name ] } {
			continue
		}

        set statsItem   "session_conf"
        set statsVal    [ lindex $row $session_conf ]
        Deputs "stats val:$statsVal"
        set ret $ret[ GetStandardReturnBody $statsItem $statsVal ]
          
        set statsItem   "session_succ"
        set statsVal    [ lindex $row $session_succ ]
        Deputs "stats val:$statsVal"
        set ret $ret[ GetStandardReturnBody $statsItem $statsVal ]
        
        set statsItem   "flap"
        set statsVal    [ lindex $row $flap ]
        Deputs "stats val:$statsVal"
        set ret $ret[ GetStandardReturnBody $statsItem $statsVal ]
        Deputs "ret:$ret"
    }
        
    return $ret
}
body IsisSession::reborn {} {
    set tag "body IsisSession::reborn [info script]"
    Deputs "----- TAG: $tag -----"
	#-- add isis protocol
Deputs "hPort:$hPort"
	set handle [ ixNet add $hPort/protocols/isis router ]
	ixNet setA $handle -name $this
	ixNet commit
	set handle [ ixNet remapIds $handle ]
Deputs "handle:$handle"

	#-- add router interface
	set intList [ ixNet getL $hPort interface ]
	if { [ llength $intList ] } {
		set interface [ lindex $intList 0 ]
	} else {
		set interface [ ixNet add $hPort interface ]
		ixNet setA $interface -enabled True
		ixNet commit
		set interface [ ixNet remapIds $interface ]
	Deputs "port interface:$interface"
	}
	ixNet setA $hPort/protocols/isis -enabled True
	ixNet setA $handle -enabled True
	ixNet commit
	#-- add vlan
	set vlan [ ixNet add $interface vlan ]
	ixNet commit
	
	#-- port/protocols/isis/router/interface
	set rb_interface  [ ixNet add $handle interface ]
	ixNet setM $rb_interface \
	    -interfaceId $interface \
	    -enableConnectedToDut True \
	    -enabled True
	ixNet commit
	set rb_interface [ ixNet remapIds $rb_interface ]
Deputs "rb_interface:$rb_interface"  

	set protocol isis  
}

body IsisSession::constructor { port { hIsisSession NULL } } {
    set tag "body IsisSession::constructor [info script]"
    Deputs "----- TAG: $tag -----"
	
    global errNumber
    
    #-- enable protocol
    set portObj [ GetObject $port ]
Deputs "port:$portObj"
    if { [ catch {
	    set hPort   [ $portObj cget -handle ]
Deputs "port handle: $hPort"
    } ] } {
	    error "$errNumber(1) Port Object in IsisSession ctor"
    }
Deputs "initial port..."
	if { $hIsisSession == "NULL" } {
        set hIsisSession [GetObjNameFromString $this "NULL"]
    }
    Deputs "----- hIsisSession: $hIsisSession, hPort: $hPort -----"
    if { $hIsisSession != "NULL" } {
        set handle [GetValidHandleObj "isis" $hIsisSession $hPort]
        Deputs "----- handle: $handle -----"
        if { $handle != "" } {
            set handleName [ ixNet getA $handle -name ] 
        } 
        
        
    } 
    
    if { ![info exists handle] || $handle == ""} {
     
        set handleName $this
        set handle ""
        reborn
    }
        
Deputs "Step10"
}

body IsisSession::config { args } {
    set tag "body IsisSession::config [info script]"
Deputs "----- TAG: $tag -----"
	
	set sys_id "64:01:00:01:00:00"
# in case the handle was removed
    if { $handle == "" } {
	    reborn
    }
	
    Deputs "Args:$args "
    foreach { key value } $args {
		set key [string tolower $key]
		switch -exact -- $key {
			-sys_id - 
			-system_id {
				set sys_id $value
			}
			-network_type {
				set value [string tolower $value]
					switch $value {
					p2p {
						set value pointToPoint
					}
					p2mp {
						set value pointToMultipoint
					}
					default {
						set value broadcast
					}
				}
				set network_type $value
			}
            -discard_lsp {
            	set discard_lsp $value
            }
            -interface_metric -
            -metric {
            	set metric $value
            }
			-enable_wide_metric {
				set enable_wide_metric $value
			}
            -hello_interval {
            	set hello_interval $value  	    	
            }
            -dead_interval {
            	set dead_interval $value  	    	
            }
            -vlan_id {
            	set vlan_id $value
            }
            -lsp_refreshtime {
            	set lsp_refreshtime $value
            }
            -lsp_lifetime {
            	set lsp_lifetime $value
            }
			-mac_addr {
                set value [ MacTrans $value ]
                if { [ IsMacAddress $value ] } {
                    set mac_addr $value
                } else {
Deputs "wrong mac addr: $value"
                    error "$errNumber(1) key:$key value:$value"
                }
				
			}
			-ipv6_addr {
				set ipv6_addr $value
			}
			-ipv6_gw {
				set ipv6_gw $value
			}
			-ipv6_prefix_len {
				set ipv6_prefix_len $value
			}
			-ip_version {
				set ip_version $value
			}
			-level {
				set level $value
			}
			-ipv4_addr {
				set ipv4_addr $value
			}
			-ipv4_prefix_len {
				set ipv4_prefix_len $value
			}
			-ipv4_gw {
				set ipv4_gw $value
			}
		}
    }
	
	if { [ info exists ip_version ] } {
		if { [ string tolower $ip_version ] == "ipv6" } {
			if { [ llength [ ixNet getL $interface ipv4 ] ] } {
				ixNet remove [ ixNet getL $interface ipv4 ]
				ixNet commit
			}
		} else {
			if { ![ llength [ ixNet getL $interface ipv4 ] ] } {
				ixNet add $interface ipv4
				ixNet commit
			}
		}
	}
	
	if { [ info exists ipv4_addr ] } {
		ixNet setA [ ixNet getL $interface ipv4 ] \
		-ip $ipv4_addr
	}
	
	if { [ info exists ipv4_prefix_len ] } {
		ixNet setA [ ixNet getL $interface ipv4 ] \
		-maskWidth $ipv4_prefix_len
	}
	
	if { [ info exists ipv4_gw ] } {
		ixNet setA [ ixNet getL $interface ipv4 ] \
		-gateway $ipv4_gw
	}
	
	if { [ info exists ipv6_addr ] } {
		ixNet setA [ ixNet getL $interface ipv6 ] \
		-ip $ipv6_addr
	}
	
	if { [ info exists ipv6_prefix_len ] } {
		ixNet setA [ ixNet getL $interface ipv6 ] \
		-prefixLength $ipv6_prefix_len
	}
	
	if { [ info exists ipv6_gw ] } {
		ixNet setA [ ixNet getL $interface ipv6 ] \
		-gateway $ipv6_gw
	}
	
	if { [ info exists level ] } {
		switch [ string tolower $level ] {
			l1 {
				set level level1
			}
			l2 {
				set level level2
			}
			l12 {
				set level level1Level2
			}
		}
		ixNet setA $rb_interface -level $level
	}
	
    if { [ info exists sys_id ] } {
		while { [ ixNet getF $hPort/protocols/isis router -systemId "[ split $sys_id : ]"  ] != "" } {
Deputs "sys_id: $sys_id"		
			set sys_id [ IncrMacAddr $sys_id "00:00:00:00:00:01" ]
		}
Deputs "sys_id: $sys_id"		
	    ixNet setA $handle -systemId $sys_id
    }
    if { [ info exists enable_wide_metric ] } {
	    ixNet setA $handle -enableWideMetric $enable_wide_metric
    }
    if { [ info exists network_type ] } {
	    ixNet setA $rb_interface -networkType $network_type
    }
    if { [ info exists discard_lsp ] } {
    	ixNet setA $handle -enableDiscardLearnedLsps $discard_lsp
    }
    if { [ info exists metric ] } {
	    ixNet setA $rb_interface -metric $metric
    }
    if { [ info exists hello_interval ] } {
	    ixNet setA $rb_interface -level1HelloTime $hello_interval
    }
    if { [ info exists dead_interval ] } {
	    ixNet setA $rb_interface -level1DeadTime $dead_interval
    }
    if { [ info exists vlan_id ] } {
	    set vlan [ixNet getL $interface vlan]
	    ixNet setA $vlan -vlanId $vlan_id
    }
    if { [ info exists lsp_refreshtime ] } {
    	ixNet setA $handle -lspRefreshRate $lsp_refreshtime
    }
    if { [ info exists lsp_lifetime ] } {
    	ixNet setA $handle -lspLifeTime $lsp_lifetime
    } 
	if { [ info exists mac_addr ] } {
Deputs "interface:$interface mac_addr:$mac_addr"
		ixNet setA $interface/ethernet -macAddress $mac_addr
	}
    ixNet commit
	return [GetStandardReturnHeader]

}


body IsisSession::advertise_topo {} {

	set tag "body IsisSession::advertise_topo [info script]"
Deputs "----- TAG: $tag -----"

	foreach route [ ixNet getL $handle routeRange ] {
	
		ixNet setA $route -enabled True
	}
    if {[info exists hNetworkRange ]} {
    
        ixNet setA $hNetworkRange -enabled True
       
    }
    ixNet commit
    return [GetStandardReturnHeader]
}
body IsisSession::withdraw_topo {} {

	set tag "body IsisSession::withdraw_topo [info script]"
Deputs "----- TAG: $tag -----"

	foreach route [ ixNet getL $handle routeRange ] {
	
		ixNet setA $route -enabled False
	}
	if {[info exists hNetworkRange ]} {
	    ixNet setA $hNetworkRange -enabled False
    }
	ixNet commit
    return [GetStandardReturnHeader]
}


class SimulatedRoute {
	inherit SimulatedSummaryRoute
	
	constructor { router } { chain $router } {}
	method config { args } {}

}

body SimulatedRoute::config { args } {
	global errorInfo
    global errNumber
    set tag "body SimulatedRoute::config [info script]"
    Deputs "----- TAG: $tag -----"

	eval chain $args

	foreach { key value } $args {
        set key [string tolower $key]
        switch -exact -- $key {
			-route_type {
				set route_type $value
			}
        }
    }
	
	if { [ info exists route_type ] } {
		if { [ string tolower $route_type ] == "internal" } {
			set route_origin false
		} else {
			set route_origin true
		}
		ixNet setA $handle -routeOrigin $route_origin
	}
	
	ixNet commit
}