Git-Mirrors/qubes-mirage-firewall
1
0
Fork 0
mirror of https://github.com/mirage/qubes-mirage-firewall.git synced 2025-01-17 01:57:15 -05:00
Code Issues Packages Projects Releases Wiki Activity

Cope with writing a frame failing

Browse Source 
If a client disconnects suddenly then we may get an error trying to map
its grant to send the frame.

Fixes #8.
This commit is contained in:
Thomas Leonard 2016-06-26 12:04:47 +01:00
parent 0230cfaf1e
commit c11f245d64
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
firewall.ml
View File

@ -16,7 +16,14 @@ let transmit ~frame iface =
cases. *) cases. *)
let frame = fixup_checksums frame |> Cstruct.concat in let frame = fixup_checksums frame |> Cstruct.concat in
let packet = Cstruct.shift frame Wire_structs.sizeof_ethernet in let packet = Cstruct.shift frame Wire_structs.sizeof_ethernet in
iface#writev [packet] Lwt.catch
(fun () -> iface#writev [packet])
(fun ex ->
Log.warn (fun f -> f "Failed to write packet to %a: %s"
Ipaddr.V4.pp_hum iface#other_ip
(Printexc.to_string ex));
Lwt.return ()
)
let forward_ipv4 t frame = let forward_ipv4 t frame =
let packet = Cstruct.shift frame Wire_structs.sizeof_ethernet in let packet = Cstruct.shift frame Wire_structs.sizeof_ethernet in