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

fix merge mistake :)

Browse source
This commit is contained in:
Mindy 2019-05-16 17:48:17 -04:00
parent 0d54f80b6b
commit 45ffee89e1
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
rules.ml
View file

@ -45,6 +45,7 @@ let classify_client_packet (packet : ([`Client of _], _) Packet.t) rules : Packe
List.exists (fun (Q.Range_inclusive (min, max)) -> (min <= port && port <= max)) dstports
in
let matches_proto rule packet = match rule.Pf_qubes.Parse_qubes.proto with
| None -> true
| Some rule_proto -> match rule_proto, packet.transport_header with
| `tcp, `TCP header -> matches_port rule.Q.dstports header.dst_port
| `udp, `UDP header -> matches_port rule.Q.dstports header.dst_port