Ограничения ingress/egress на Extreme Summit

Что бы ограничить скорость на порту в обе стороны делаем следующее:

Для egress
conf port 1:5 rate-limit egress 150 Mbps

Для ingress

cоздаем Meter

create meter MeterName 

configure meter MeterName committed-rate 150000 Kbps max-burst-size 1000 Kb out-actions drop 

создаем policy
Policy: PolicyName
entry 150M { 
if match all { 
}
then {
    meter MeterName ;
}
}
и привязываем policy к порту
configure access-list PolicyName ports 1:5 ingress
Profit!

One-way traffic. Extreme

Технологии: udld, bfd
Насколько я понимаю Extreme пока (12.5.3) может bdf только для MPLS и static route.

С нулевым знанием perl разбираем конфиг свитча в xml (copy-paste)

Выдираем элементы из XML конфига, предварительно слитого по tftp. Это код на момент самого начала изысканий, но думаю пригодится в будущем.

#!/usr/bin/perl

use XML::Twig;


my $catbuf = ''; #buffer, helps to format string, to make "table"

#my $itembu = '';


my $twig = new XML::Twig( TwigHandlers => {

"xos-configuration/xos-module-vlan/vlan/tag" => \&tag, #path to data in XML XOS config file

"xos-configuration/xos-module-vlan/vlan/name" => \&name,

#"xos-configuration/xos-module-eaps/eapsDomainMbrVlan/memberVlan" => \&name,

#"xos-configuration/xos-module-eaps/eapsDomainMbrVlan/domainName" => \&domain,

#"xos-configuration/xos-module-vlan/vlanPort/vlanName" => \&name, #path to data

#"xos-configuration/xos-module-vlan/vlanPort/taggedPorts" => \&ports,

});


$twig->parsefile( shift @ARGV );


# Vlan name and tag

sub name {

my( $tree, $elem ) =@_;

$catbuf = "" . $elem->text . " "; #make "table": vlan-name [tab] vlan-tag

}


sub tag {

my( $tree, $elem ) =@_;

$catbuf .= "" . $elem->text . "\n";

print $catbuf;

}

#-----------------------------



#sub domain {

# my( $tree, $elem ) =@_;

# $catbuf .= "" . $elem->text . "\n";

# print $catbuf;

#}



# Tagged ports data

#sub name {

# my( $tree, $elem ) =@_;

# $catbuf = "" . $elem->text . " ";

#}


#sub ports {

# my( $tree, $elem ) =@_;

# $catbuf .= "" . $elem->text . "\n";

# print $catbuf;

#}

OSPF Cost

На свитчах extreme summit по sh iproute кост префикса показывается таким, каким пришел от соседа, без учета коста интерфейса, через который пришел префикс.