diff options
| author | Trygve Laugstøl <trygvis@inamo.no> | 2023-11-14 19:41:02 +0100 |
|---|---|---|
| committer | Trygve Laugstøl <trygvis@inamo.no> | 2023-11-14 19:41:02 +0100 |
| commit | 2caac53749dece14825991ffcc267e913091e842 (patch) | |
| tree | 364aeb81269683152d8ae24ebc490d048a2b4a7e | |
| parent | 0cace145fed5c0e64f9fbf4295be5264582517e8 (diff) | |
| download | prolog-firewall-2caac53749dece14825991ffcc267e913091e842.tar.gz prolog-firewall-2caac53749dece14825991ffcc267e913091e842.tar.bz2 prolog-firewall-2caac53749dece14825991ffcc267e913091e842.tar.xz prolog-firewall-2caac53749dece14825991ffcc267e913091e842.zip | |
wip
| -rw-r--r-- | 6/main.pl | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1,6 +1,7 @@ :- dynamic fw_rule/2. -:- use_module(bgp). +:- use_module(bgp, [ + create_firewall/1]). print_warnings([]). print_warnings([W|Ws]) :- format("Warning: ~w~n", [W]), print_warnings(Ws). @@ -17,5 +18,6 @@ print_warnings :- ). main :- + bgp:create_firewall(), bgp:bird_config(BirdDict), yaml_write(current_output, BirdDict). |