summaryrefslogtreecommitdiff
path: root/7/bgp.pl
diff options
context:
space:
mode:
Diffstat (limited to '7/bgp.pl')
-rw-r--r--7/bgp.pl7
1 files changed, 1 insertions, 6 deletions
diff --git a/7/bgp.pl b/7/bgp.pl
index d8c7ded..95b8f58 100644
--- a/7/bgp.pl
+++ b/7/bgp.pl
@@ -83,7 +83,7 @@ to_dict(router(R), Dict) :-
to_dict(neighbor(_, Remote), Dict) :-
host_config(Remote, RC),
- get_assoc("ip", RC, Ip),
+ get_assoc(ip, RC, Ip),
Dict = {
"neighbor":{
"name": Remote,
@@ -91,11 +91,6 @@ to_dict(neighbor(_, Remote), Dict) :-
}
}.
-bird_config(BirdConfig) :-
- routers(Routers),
- maplist(to_dict, Routers, RouterDicts),
- dict_pairs(BirdConfig, bird_config, RouterDicts).
-
create_firewall :-
firewall:retract_all_from(bgp),
findall(fw(Host, Attrs), fw(Host, Attrs), Goals),