Git-Mirrors/qubes-mirage-firewall
1
0
Fork 0
mirror of https://github.com/mirage/qubes-mirage-firewall.git synced 2025-09-30 07:38:28 -04:00
Code Issues Projects Releases Packages Wiki Activity

Log packet details when dropping

Browse source
This commit is contained in:
Thomas Leonard 2015-12-31 09:56:58 +00:00
parent cd69ce5a86
commit ac0444f1c1
6 changed files with 44 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

15
client_eth.ml
View file

@ -31,14 +31,15 @@ let remove_client t iface =
let lookup t ip = IpMap.find ip t.iface_of_ip
let classify t = function
| Ipaddr.V6 _ -> `External
| Ipaddr.V4 ip ->
if ip === t.client_gw then `Client_gateway
else match lookup t ip with
let classify t ip =
match ip with
| Ipaddr.V6 _ -> `External ip
| Ipaddr.V4 ip4 ->
if ip4 === t.client_gw then `Client_gateway
else match lookup t ip4 with
| Some client_link -> `Client client_link
| None when Ipaddr.V4.Prefix.mem ip t.prefix -> `Unknown_client
| None -> `External
| None when Ipaddr.V4.Prefix.mem ip4 t.prefix -> `Unknown_client ip
| None -> `External ip
module ARP = struct
type arp = {