parsing of prefix-list in frr.conf.local was missing
reported on forum:
https://forum.proxmox.com/threads/using-the-proxmox-sdn-to-manage-host-connectivity-with-bgp.118553
Signed-off-by: Alexandre Derumier <aderumier@odiso.com>
- push(@{$config->{frr}->{''}}, "ip prefix-list loopbacks_ips seq 10 permit 0.0.0.0/0 le 32");
+ $config->{frr_prefix_list}->{loopbacks_ips}->{10} = "permit 0.0.0.0/0 le 32";
push(@{$config->{frr}->{''}}, "ip protocol bgp route-map correct_src");
my $routemap_config = ();
push(@{$config->{frr}->{''}}, "ip protocol bgp route-map correct_src");
my $routemap_config = ();
-sub generate_frr_accesslist {
- my ($final_config, $accesslists) = @_;
+sub generate_frr_list {
+ my ($final_config, $lists, $type) = @_;
- for my $id (sort keys %$accesslists) {
- my $accesslist = $accesslists->{$id};
+ for my $id (sort keys %$lists) {
+ my $list = $lists->{$id};
- for my $seq (sort keys %$accesslist) {
- my $rule = $accesslist->{$seq};
- push @$config, "access-list $id seq $seq $rule";
+ for my $seq (sort keys %$list) {
+ my $rule = $list->{$seq};
+ push @$config, "$type $id seq $seq $rule";
}
generate_frr_recurse($final_config, $config->{frr}, undef, 0);
}
generate_frr_recurse($final_config, $config->{frr}, undef, 0);
- generate_frr_accesslist($final_config, $config->{frr_access_list});
+ generate_frr_list($final_config, $config->{frr_access_list}, "access-list");
+ generate_frr_list($final_config, $config->{frr_prefix_list}, "ip prefix-list");
generate_frr_routemap($final_config, $config->{frr_routemap});
push @{$final_config}, "!";
generate_frr_routemap($final_config, $config->{frr_routemap});
push @{$final_config}, "!";
} elsif ($line =~ m/^access-list (.+) seq (\d+) (.+)$/) {
$config->{'frr_access_list'}->{$1}->{$2} = $3;
next;
} elsif ($line =~ m/^access-list (.+) seq (\d+) (.+)$/) {
$config->{'frr_access_list'}->{$1}->{$2} = $3;
next;
+ } elsif ($line =~ m/^ip prefix-list (.+) seq (\d+) (.*)$/) {
+ $config->{'frr_prefix_list'}->{$1}->{$2} = $3;
+ next;
} elsif($line =~ m/^exit-address-family$/) {
next;
} elsif($line =~ m/^exit$/) {
} elsif($line =~ m/^exit-address-family$/) {
next;
} elsif($line =~ m/^exit$/) {
log syslog informational
service integrated-vtysh-config
!
log syslog informational
service integrated-vtysh-config
!
-ip prefix-list loopbacks_ips seq 10 permit 0.0.0.0/0 le 32
ip protocol bgp route-map correct_src
!
vrf vrf_myzone
ip protocol bgp route-map correct_src
!
vrf vrf_myzone
exit-address-family
exit
!
exit-address-family
exit
!
+ip prefix-list loopbacks_ips seq 10 permit 0.0.0.0/0 le 32
+!
route-map MAP_VTEP_IN permit 1
exit
!
route-map MAP_VTEP_IN permit 1
exit
!