Attachment #363304 for bug #427030

Lines 293-300 Link Here

(-)a/dbserver.ml (-1 / +1 lines)
293	let keys = lookup_keys request.search in	293	let keys = lookup_keys request.search in
294	let count = List.length keys in	294	let count = List.length keys in
295	let keys = truncate request.limit keys in	295	let keys = truncate request.limit keys in
		296	let keys = clean_keys request keys in
296	let hashes = List.map ~f:KeyHash.hash keys in	297	let hashes = List.map ~f:KeyHash.hash keys in
297	let keys = clean_keys request keys in
298	if request.machine_readable then	298	if request.machine_readable then
299	("text/plain",	299	("text/plain",
300	count,	300	count,

Lines 153-159 Link Here

(-)a/parsePGP.ml (-2 / +2 lines)
153		153
154	let parse_ecdh_pubkey cin =	154	let parse_ecdh_pubkey cin =
155	let length = cin#read_int_size 1 in	155	let length = cin#read_int_size 1 in
156	let oid = sprintf "%x" (cin#read_int_size length) in	156	let oid = sprintf "%Lx" (cin#read_int64_size length) in
157	let mpi = read_mpi cin in	157	let mpi = read_mpi cin in
158	let kdf_length = cin#read_int_size 1 in	158	let kdf_length = cin#read_int_size 1 in
159	let kdf_res = cin#read_int_size 1 in	159	let kdf_res = cin#read_int_size 1 in
Lines 166-172 Link Here
166		166
167	let parse_ecdsa_pubkey cin =	167	let parse_ecdsa_pubkey cin =
168	let length = cin#read_int_size 1 in	168	let length = cin#read_int_size 1 in
169	let oid = sprintf "%x" (cin#read_int_size length) in	169	let oid = sprintf "%Lx" (cin#read_int64_size length) in
170	let psize = oid_to_psize oid	170	let psize = oid_to_psize oid
171	in	171	in
172	psize	172	psize

Return to bug 427030