398 |
Keydb.add_key_merge ~newkey:true key; |
Keydb.add_key_merge ~newkey:true key; |
399 |
cout#write_string "Key Accepted<br>" |
cout#write_string "Key Accepted<br>" |
400 |
with |
with |
401 |
| KeyMerge.Unparseable_packet_sequence -> |
| Fixkey.Bad_key | KeyMerge.Unparseable_packet_sequence -> |
402 |
cout#write_string |
cout#write_string |
403 |
("Add failed: Malformed Key --- unexpected packet " ^ |
("Add failed: Malformed Key --- unexpected packet " ^ |
404 |
"type and/or order of packets"); |
"type and/or order of packets"); |
474 |
let keys = List.fold_left ~init:[] keys |
let keys = List.fold_left ~init:[] keys |
475 |
~f:(fun list key -> |
~f:(fun list key -> |
476 |
try (Fixkey.canonicalize key)::list |
try (Fixkey.canonicalize key)::list |
477 |
with KeyMerge.Unparseable_packet_sequence -> list |
with KeyMerge.Unparseable_packet_sequence | Fixkey.Bad_key -> list |
478 |
) |
) |
479 |
in |
in |
480 |
marshal cout (Ack 0); |
marshal cout (Ack 0); |