let get_site_cookies (d: domain) (p: path) (b: b)
: (string * string) list =
let check (cid, _) =
(cid.cookie_id_domain = d &&
prefix cid.cookie_id_path.path_value p.path_value) ||
(prefix cid.cookie_id_domain.domain_value d.domain_value &&
cid.cookie_id_path.path_value = [])
in
let strip (cid, rslt) = (cid.cookie_id_key, rslt) in
List.map strip (List.filter check b.browser_cookies)