From 8062753241f2c510c94b0fec6f2552950e0c8014 Mon Sep 17 00:00:00 2001
From: Trygve Laugstøl <trygvis@inamo.no>
Date: Thu, 23 Nov 2023 22:57:55 +0100
Subject: wip

---
 7/bgp.pl | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to '7/bgp.pl')

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),
-- 
cgit v1.2.3