diff options
| author | Trygve Laugstøl <trygvis@inamo.no> | 2023-11-23 22:57:55 +0100 |
|---|---|---|
| committer | Trygve Laugstøl <trygvis@inamo.no> | 2023-11-23 22:57:55 +0100 |
| commit | 8062753241f2c510c94b0fec6f2552950e0c8014 (patch) | |
| tree | 6aeed21b783cf7d9f8bb377c44846d5c57dd4a26 /7/bgp.pl | |
| parent | ba29b490ffddd28bb09235a1bd0e99df73bfa064 (diff) | |
| download | prolog-firewall-8062753241f2c510c94b0fec6f2552950e0c8014.tar.gz prolog-firewall-8062753241f2c510c94b0fec6f2552950e0c8014.tar.bz2 prolog-firewall-8062753241f2c510c94b0fec6f2552950e0c8014.tar.xz prolog-firewall-8062753241f2c510c94b0fec6f2552950e0c8014.zip | |
wip
Diffstat (limited to '7/bgp.pl')
| -rw-r--r-- | 7/bgp.pl | 7 |
1 files changed, 1 insertions, 6 deletions
@@ -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), |