1 /* t-keylist.c  - regression test
2  * Copyright (C) 2000 Werner Koch (dd9jn)
3  * Copyright (C) 2001, 2003, 2004 g10 Code GmbH
4  *
5  * This file is part of GPGME.
6  *
7  * GPGME is free software; you can redistribute it and/or modify it
8  * under the terms of the GNU Lesser General Public License as
9  * published by the Free Software Foundation; either version 2.1 of
10  * the License, or (at your option) any later version.
11  *
12  * GPGME is distributed in the hope that it will be useful, but
13  * WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with this program; if not, see <https://gnu.org/licenses/>.
19  * SPDX-License-Identifier: LGPL-2.1-or-later
20  */
21 
22 /* We need to include config.h so that we know whether we are building
23    with large file system (LFS) support. */
24 #ifdef HAVE_CONFIG_H
25 #include <config.h>
26 #endif
27 
28 #include <stdlib.h>
29 #include <stdio.h>
30 #include <string.h>
31 
32 #include <gpgme.h>
33 
34 #include "t-support.h"
35 
36 
37 struct key_info_s
38 {
39   const char *fpr;
40   const char *sec_keyid;
41   struct
42   {
43     const char *name;
44     const char *comment;
45     const char *email;
46   } uid[3];
47   int n_subkeys;
48   void (*misc_check)(struct key_info_s *keyinfo, gpgme_key_t key);
49 };
50 
51 
52 static void check_whisky (struct key_info_s *keyinfo, gpgme_key_t key);
53 
54 
55 
56 struct key_info_s keys[] =
57   {
58     { "A0FF4590BB6122EDEF6E3C542D727CC768697734", "6AE6D7EE46A871F8",
59       { { "Alfa Test", "demo key", "alfa@example.net" },
60         { "Alpha Test", "demo key", "alpha@example.net" },
61 	{ "Alice", "demo key", NULL } }, 1 },
62     { "D695676BDCEDCC2CDD6152BCFE180B1DA9E3B0B2", "5381EA4EE29BA37F",
63       { { "Bob", "demo key", NULL },
64 	{ "Bravo Test", "demo key", "bravo@example.net" } }, 1 },
65     { "61EE841A2A27EB983B3B3C26413F4AF31AFDAB6C", "E71E72ACBC43DA60",
66       { { "Charlie Test", "demo key", "charlie@example.net" } }, 1 },
67     { "6560C59C43D031C54D7C588EEBA9F240EB9DC9E6", "06F22880B0C45424",
68       { { "Delta Test", "demo key", "delta@example.net" } }, 1 },
69     { "3531152DE293E26A07F504BC318C1FAEFAEF6D1B", "B5C79E1A7272144D",
70       { { "Echelon", "demo key", NULL },
71 	{ "Echo Test", "demo key", "echo@example.net" },
72 	{ "Eve", "demo key", NULL } }, 1 },
73     { "56D33268F7FE693FBB594762D4BF57F37372E243", "0A32EE79EE45198E",
74       { { "Foxtrot Test", "demo key", "foxtrot@example.net" } }, 1 },
75     { "C9C07DCC6621B9FB8D071B1D168410A48FC282E6", "247491CC9DCAD354",
76       { { "Golf Test", "demo key", "golf@example.net" } }, 1 },
77     { "9E91CBB11E4D4135583EF90513DB965534C6E3F1", "76E26537D622AD0A",
78       { { "Hotel Test", "demo key", "hotel@example.net" } }, 1 },
79     { "CD538D6CC9FB3D745ECDA5201FE8FC6F04259677", "C1C8EFDE61F76C73",
80       { { "India Test", "demo key", "india@example.net" } }, 1 },
81     { "F8F1EDC73995AB739AD54B380C820C71D2699313", "BD0B108735F8F136",
82       { { "Juliet Test", "demo key", "juliet@example.net" } }, 1 },
83     { "3FD11083779196C2ECDD9594AD1B0FAD43C2D0C7", "86CBB34A9AF64D02",
84       { { "Kilo Test", "demo key", "kilo@example.net" } }, 1 },
85     { "1DDD28CEF714F5B03B8C246937CAB51FB79103F8", "0363B449FE56350C",
86       { { "Lima Test", "demo key", "lima@example.net" } }, 1 },
87     { "2686AA191A278013992C72EBBE794852BE5CF886", "5F600A834F31EAE8",
88       { { "Mallory", "demo key", NULL },
89 	{ "Mike Test", "demo key", "mike@example.net" } }, 1 },
90     { "5AB9D6D7BAA1C95B3BAA3D9425B00FD430CEC684", "4C1D63308B70E472",
91       { { "November Test", "demo key", "november@example.net" } }, 1 },
92     { "43929E89F8F79381678CAE515F6356BA6D9732AC", "FF0785712681619F",
93       { { "Oscar Test", "demo key", "oscar@example.net" } }, 1 },
94     { "6FAA9C201E5E26DCBAEC39FD5D15E01D3FF13206", "2764E18263330D9C",
95       { { "Papa test", "demo key", "papa@example.net" } }, 1 },
96     { "A7969DA1C3297AA96D49843F1C67EC133C661C84", "6CDCFC44A029ACF4",
97       { { "Quebec Test", "demo key", "quebec@example.net" } }, 1 },
98     { "38FBE1E4BF6A5E1242C8F6A13BDBEDB1777FBED3", "9FAB805A11D102EA",
99       { { "Romeo Test", "demo key", "romeo@example.net" } }, 1 },
100     { "045B2334ADD69FC221076841A5E67F7FA3AE3EA1", "93B88B0F0F1B50B4",
101       { { "Sierra Test", "demo key", "sierra@example.net" } }, 1 },
102     { "ECAC774F4EEEB0620767044A58CB9A4C85A81F38", "97B60E01101C0402",
103       { { "Tango Test", "demo key", "tango@example.net" } }, 1 },
104     { "0DBCAD3F08843B9557C6C4D4A94C0F75653244D6", "93079B915522BDB9",
105       { { "Uniform Test", "demo key", "uniform@example.net" } }, 1 },
106     { "E8143C489C8D41124DC40D0B47AF4B6961F04784", "04071FB807287134",
107       { { "Victor Test", "demo key", "victor@example.org" } }, 1 },
108     { "E8D6C90B683B0982BD557A99DEF0F7B8EC67DBDE", "D7FBB421FD6E27F6",
109       { { "Whisky Test", "demo key", "whisky@example.net" } }, 3,
110           check_whisky },
111     { "04C1DF62EFA0EBB00519B06A8979A6C5567FB34A", "5CC6F87F41E408BE",
112       { { "XRay Test", "demo key", "xray@example.net" } }, 1 },
113     { "ED9B316F78644A58D042655A9EEF34CD4B11B25F", "5ADFD255F7B080AD",
114       { { "Yankee Test", "demo key", "yankee@example.net" } }, 1 },
115     { "23FD347A419429BACCD5E72D6BC4778054ACD246", "EF9DC276A172C881",
116       { { "Zulu Test", "demo key", "zulu@example.net" } }, 1 },
117     { "ADAB7FCC1F4DE2616ECFA402AF82244F9CD9FD55", "087DD7E0381701C4",
118       { { "Joe Random Hacker", "test key with passphrase \"abc\"",
119 	  "joe@example.com" } }, 1 },
120     { NULL }
121   };
122 
123 
124 int
main(int argc,char ** argv)125 main (int argc, char **argv)
126 {
127   gpgme_error_t err;
128   gpgme_ctx_t ctx;
129   gpgme_key_t key;
130   gpgme_keylist_result_t result;
131   int i = 0;
132   int n;
133   gpgme_subkey_t subkey;
134 
135   (void)argc;
136   (void)argv;
137 
138   init_gpgme (GPGME_PROTOCOL_OpenPGP);
139 
140   err = gpgme_new (&ctx);
141   fail_if_err (err);
142 
143   err = gpgme_op_keylist_start (ctx, NULL, 0);
144   fail_if_err (err);
145 
146   while (!(err = gpgme_op_keylist_next (ctx, &key)))
147     {
148       if (!keys[i].fpr)
149 	{
150 	  fprintf (stderr, "More keys returned than expected\n");
151 	  exit (1);
152 	}
153 
154       /* Global key flags.  */
155       if (key->revoked)
156 	{
157 	  fprintf (stderr, "Key unexpectedly revoked\n");
158 	  exit (1);
159 	}
160       if (key->expired)
161 	{
162 	  fprintf (stderr, "Key unexpectedly expired\n");
163 	  exit (1);
164 	}
165       if (key->disabled)
166 	{
167 	  fprintf (stderr, "Key unexpectedly disabled\n");
168 	  exit (1);
169 	}
170       if (key->invalid)
171 	{
172 	  fprintf (stderr, "Key unexpectedly invalid\n");
173 	  exit (1);
174 	}
175 #if 0
176       /* GnuPG 2.1+ have a different subkey for encryption.  */
177       if (!key->can_encrypt)
178 	{
179 	  fprintf (stderr, "Key unexpectedly unusable for encryption\n");
180 	  exit (1);
181 	}
182 #endif
183       if (!key->can_sign)
184 	{
185 	  fprintf (stderr, "Key unexpectedly unusable for signing\n");
186 	  exit (1);
187 	}
188       if (!key->can_certify)
189 	{
190 	  fprintf (stderr, "Key unexpectedly unusable for certifications\n");
191 	  exit (1);
192 	}
193       if (key->secret)
194 	{
195 	  fprintf (stderr, "Key unexpectedly secret\n");
196 	  exit (1);
197 	}
198       if (key->protocol != GPGME_PROTOCOL_OpenPGP)
199 	{
200 	  fprintf (stderr, "Key has unexpected protocol: %s\n",
201 		   gpgme_get_protocol_name (key->protocol));
202 	  exit (1);
203 	}
204       if (key->issuer_serial)
205 	{
206 	  fprintf (stderr, "Key unexpectedly carries issuer serial: %s\n",
207 		   key->issuer_serial);
208 	  exit (1);
209 	}
210       if (key->issuer_name)
211 	{
212 	  fprintf (stderr, "Key unexpectedly carries issuer name: %s\n",
213 		   key->issuer_name);
214 	  exit (1);
215 	}
216       if (key->chain_id)
217 	{
218 	  fprintf (stderr, "Key unexpectedly carries chain ID: %s\n",
219 		   key->chain_id);
220 	  exit (1);
221 	}
222       if (key->owner_trust != GPGME_VALIDITY_UNKNOWN)
223 	{
224 	  fprintf (stderr, "Key has unexpected owner trust: %i\n",
225 		   key->owner_trust);
226 	  exit (1);
227 	}
228 
229       for (n=0, subkey = key->subkeys; subkey; subkey = subkey->next)
230         n++;
231       if (!n || n-1 != keys[i].n_subkeys)
232 	{
233 	  fprintf (stderr, "Key `%s' has unexpected number of subkeys\n",
234                    keys[i].uid[0].name);
235 	  exit (1);
236 	}
237 
238       /* Primary key.  */
239       if (key->subkeys->revoked)
240 	{
241 	  fprintf (stderr, "Primary key unexpectedly revoked\n");
242 	  exit (1);
243 	}
244       if (key->subkeys->expired)
245 	{
246 	  fprintf (stderr, "Primary key unexpectedly expired\n");
247 	  exit (1);
248 	}
249       if (key->subkeys->disabled)
250 	{
251 	  fprintf (stderr, "Primary key unexpectedly disabled\n");
252 	  exit (1);
253 	}
254       if (key->subkeys->invalid)
255 	{
256 	  fprintf (stderr, "Primary key unexpectedly invalid\n");
257 	  exit (1);
258 	}
259       if (key->subkeys->can_encrypt)
260 	{
261 	  fprintf (stderr, "Primary key unexpectedly usable for encryption\n");
262 	  exit (1);
263 	}
264       if (!key->subkeys->can_sign)
265 	{
266 	  fprintf (stderr, "Primary key unexpectedly unusable for signing\n");
267 	  exit (1);
268 	}
269       if (!key->subkeys->can_certify)
270 	{
271 	  fprintf (stderr, "Primary key unexpectedly unusable for certifications\n");
272 	  exit (1);
273 	}
274       if (key->subkeys->secret)
275 	{
276 	  fprintf (stderr, "Primary key unexpectedly secret\n");
277 	  exit (1);
278 	}
279       if (key->subkeys->is_cardkey)
280 	{
281 	  fprintf (stderr, "Public key marked as card key\n");
282 	  exit (1);
283 	}
284       if (key->subkeys->card_number)
285 	{
286 	  fprintf (stderr, "Public key with card number set\n");
287 	  exit (1);
288 	}
289       if (key->subkeys->pubkey_algo != GPGME_PK_DSA)
290 	{
291 	  fprintf (stderr, "Primary key has unexpected public key algo: %s\n",
292 		   gpgme_pubkey_algo_name (key->subkeys->pubkey_algo));
293 	  exit (1);
294 	}
295       if (key->subkeys->length != 1024)
296 	{
297 	  fprintf (stderr, "Primary key has unexpected length: %i\n",
298 		   key->subkeys->length);
299 	  exit (1);
300 	}
301       if (strcmp (key->subkeys->keyid, &keys[i].fpr[40 - 16]))
302 	{
303 	  fprintf (stderr, "Primary key `%s' has unexpected key ID: %s\n",
304 		   keys[i].uid[0].name, key->subkeys->keyid);
305 	  exit (1);
306 	}
307       if (strcmp (key->subkeys->fpr, keys[i].fpr))
308 	{
309 	  fprintf (stderr, "Primary key has unexpected fingerprint: %s\n",
310 		   key->subkeys->fpr);
311 	  exit (1);
312 	}
313       if (key->subkeys->expires)
314 	{
315 	  fprintf (stderr, "Primary key `%s' unexpectedly expires: %lu\n",
316 		   keys[i].uid[0].name, key->subkeys->expires);
317 	  exit (1);
318 	}
319 
320       /* Secondary key.  */
321       if (key->subkeys->next->revoked)
322 	{
323 	  fprintf (stderr, "Secondary key unexpectedly revoked\n");
324 	  exit (1);
325 	}
326       if (key->subkeys->next->expired)
327 	{
328 	  fprintf (stderr, "Secondary key unexpectedly expired\n");
329 	  exit (1);
330 	}
331       if (key->subkeys->next->disabled)
332 	{
333 	  fprintf (stderr, "Secondary key unexpectedly disabled\n");
334 	  exit (1);
335 	}
336       if (key->subkeys->next->invalid)
337 	{
338 	  fprintf (stderr, "Secondary key unexpectedly invalid\n");
339 	  exit (1);
340 	}
341       if (!key->subkeys->next->can_encrypt)
342 	{
343 	  fprintf (stderr, "Secondary key unexpectedly unusable for encryption\n");
344 	  exit (1);
345 	}
346       if (key->subkeys->next->can_sign)
347 	{
348 	  fprintf (stderr, "Secondary key unexpectedly usable for signing\n");
349 	  exit (1);
350 	}
351       if (key->subkeys->next->can_certify)
352 	{
353 	  fprintf (stderr, "Secondary key unexpectedly usable for certifications\n");
354 	  exit (1);
355 	}
356       if (key->subkeys->next->secret)
357 	{
358 	  fprintf (stderr, "Secondary key unexpectedly secret\n");
359 	  exit (1);
360 	}
361       if (key->subkeys->next->is_cardkey)
362 	{
363 	  fprintf (stderr, "Secondary public key marked as card key\n");
364 	  exit (1);
365 	}
366       if (key->subkeys->next->card_number)
367 	{
368 	  fprintf (stderr, "Secondary public key with card number set\n");
369 	  exit (1);
370 	}
371       if (key->subkeys->next->pubkey_algo != GPGME_PK_ELG_E)
372 	{
373 	  fprintf (stderr, "Secondary key has unexpected public key algo: %s\n",
374 		   gpgme_pubkey_algo_name (key->subkeys->next->pubkey_algo));
375 	  exit (1);
376 	}
377       if (key->subkeys->next->length != 1024)
378 	{
379 	  fprintf (stderr, "Secondary key has unexpected length: %i\n",
380 		   key->subkeys->next->length);
381 	  exit (1);
382 	}
383       if (strcmp (key->subkeys->next->keyid, keys[i].sec_keyid))
384 	{
385 	  fprintf (stderr, "Secondary key `%s' has unexpected key ID: %s/%s\n",
386 		   keys[i].uid[0].name,
387                    key->subkeys->next->keyid, keys[i].sec_keyid );
388 	  exit (1);
389 	}
390       if (!key->subkeys->next->fpr)
391 	{
392 	  fprintf (stderr, "Secondary key has unexpectedly no fingerprint\n");
393 	  exit (1);
394 	}
395       if (key->subkeys->next->expires)
396 	{
397 	  fprintf (stderr, "Secondary key unexpectedly expires: %lu\n",
398 		   key->subkeys->next->expires);
399 	  exit (1);
400 	}
401 
402       /* FIXME: The below test will crash if we want to check for a
403 	 name, comment or email that doesn't exist in the key's user
404 	 IDs.  */
405       if (!((!keys[i].uid[0].name && !key->uids)
406 	    || (keys[i].uid[0].name && !keys[i].uid[1].name
407 		&& key->uids && !key->uids->next)
408 	    || (keys[i].uid[0].name && keys[i].uid[1].name
409 		&& !keys[i].uid[2].name
410 		&& key->uids && key->uids->next && !key->uids->next->next)
411 	    || (keys[i].uid[0].name && keys[i].uid[1].name
412 		&& keys[i].uid[2].name
413 		&& key->uids && key->uids->next && key->uids->next->next
414 		&& !key->uids->next->next->next)))
415 	  {
416 	    fprintf (stderr, "Key has unexpected number of user IDs\n");
417 	    exit (1);
418 	  }
419       if (key->uids && key->uids->revoked)
420 	{
421 	  fprintf (stderr, "First user ID unexpectedly revoked\n");
422 	  exit (1);
423 	}
424       if (key->uids && key->uids->invalid)
425 	{
426 	  fprintf (stderr, "First user ID unexpectedly invalid\n");
427 	  exit (1);
428 	}
429       if (key->uids && key->uids->validity != GPGME_VALIDITY_UNKNOWN)
430 	{
431 	  fprintf (stderr, "First user ID has unexpectedly validity: %i\n",
432 		   key->uids->validity);
433 	  exit (1);
434 	}
435       if (key->uids && key->uids->signatures)
436 	{
437 	  fprintf (stderr, "First user ID unexpectedly signed\n");
438 	  exit (1);
439 	}
440       if (keys[i].uid[0].name
441 	  && strcmp (keys[i].uid[0].name, key->uids->name))
442 	{
443 	  fprintf (stderr, "Unexpected name in first user ID: %s\n",
444 		   key->uids->name);
445 	  exit (1);
446 	}
447       if (keys[i].uid[0].comment
448 	  && strcmp (keys[i].uid[0].comment, key->uids->comment))
449 	{
450 	  fprintf (stderr, "Unexpected comment in first user ID: %s\n",
451 		   key->uids->comment);
452 	  exit (1);
453 	}
454       if (keys[i].uid[0].email
455 	  && strcmp (keys[i].uid[0].email, key->uids->email))
456 	{
457 	  fprintf (stderr, "Unexpected email in first user ID: %s\n",
458 		   key->uids->email);
459 	  exit (1);
460 	}
461       if (key->uids && key->uids->next && key->uids->next->revoked)
462 	{
463 	  fprintf (stderr, "Second user ID unexpectedly revoked\n");
464 	  exit (1);
465 	}
466       if (key->uids && key->uids->next && key->uids->next->invalid)
467 	{
468 	  fprintf (stderr, "Second user ID unexpectedly invalid\n");
469 	  exit (1);
470 	}
471       if (key->uids && key->uids->next
472 	  && key->uids->next->validity != GPGME_VALIDITY_UNKNOWN)
473 	{
474 	  fprintf (stderr, "Second user ID has unexpectedly validity: %i\n",
475 		   key->uids->next->validity);
476 	  exit (1);
477 	}
478       if (key->uids && key->uids->next && key->uids->next->signatures)
479 	{
480 	  fprintf (stderr, "Second user ID unexpectedly signed\n");
481 	  exit (1);
482 	}
483       if (keys[i].uid[1].name
484 	  && strcmp (keys[i].uid[1].name, key->uids->next->name))
485 	{
486 	  fprintf (stderr, "Unexpected name in second user ID: %s\n",
487 		   key->uids->next->name);
488 	  exit (1);
489 	}
490       if (keys[i].uid[1].comment
491 	  && strcmp (keys[i].uid[1].comment, key->uids->next->comment))
492 	{
493 	  fprintf (stderr, "Unexpected comment in second user ID: %s\n",
494 		   key->uids->next->comment);
495 	  exit (1);
496 	}
497       if (keys[i].uid[1].email
498 	  && strcmp (keys[i].uid[1].email, key->uids->next->email))
499 	{
500 	  fprintf (stderr, "Unexpected email in second user ID: %s\n",
501 		   key->uids->next->email);
502 	  exit (1);
503 	}
504       if (key->uids && key->uids->next && key->uids->next->next
505 	  && key->uids->next->next->revoked)
506 	{
507 	  fprintf (stderr, "Third user ID unexpectedly revoked\n");
508 	  exit (1);
509 	}
510       if (key->uids && key->uids->next && key->uids->next->next
511 	  && key->uids->next->next->invalid)
512 	{
513 	  fprintf (stderr, "Third user ID unexpectedly invalid\n");
514 	  exit (1);
515 	}
516       if (key->uids && key->uids->next && key->uids->next->next
517 	  && key->uids->next->next->validity != GPGME_VALIDITY_UNKNOWN)
518 	{
519 	  fprintf (stderr, "Third user ID has unexpectedly validity: %i\n",
520 		   key->uids->next->next->validity);
521 	  exit (1);
522 	}
523       if (key->uids && key->uids->next && key->uids->next->next
524 	  && key->uids->next->next->signatures)
525 	{
526 	  fprintf (stderr, "Third user ID unexpectedly signed\n");
527 	  exit (1);
528 	}
529       if (keys[i].uid[2].name
530 	  && strcmp (keys[i].uid[2].name, key->uids->next->next->name))
531 	{
532 	  fprintf (stderr, "Unexpected name in third user ID: %s\n",
533 		   key->uids->next->next->name);
534 	  exit (1);
535 	}
536       if (keys[i].uid[2].comment
537 	  && strcmp (keys[i].uid[2].comment, key->uids->next->next->comment))
538 	{
539 	  fprintf (stderr, "Unexpected comment in third user ID: %s\n",
540 		   key->uids->next->next->comment);
541 	  exit (1);
542 	}
543       if (keys[i].uid[2].email
544 	  && strcmp (keys[i].uid[2].email, key->uids->next->next->email))
545 	{
546 	  fprintf (stderr, "Unexpected email in third user ID: %s\n",
547 		   key->uids->next->next->email);
548 	  exit (1);
549 	}
550 
551       if (keys[i].misc_check)
552         keys[i].misc_check (keys+i, key);
553 
554       gpgme_key_unref (key);
555       i++;
556     }
557   if (gpgme_err_code (err) != GPG_ERR_EOF)
558     fail_if_err (err);
559   err = gpgme_op_keylist_end (ctx);
560   fail_if_err (err);
561 
562   result = gpgme_op_keylist_result (ctx);
563   if (result->truncated)
564     {
565       fprintf (stderr, "Key listing unexpectedly truncated\n");
566       exit (1);
567     }
568 
569   if (keys[i].fpr)
570     {
571       fprintf (stderr, "Less keys (%d) returned than expected (%d)\n",
572 	       i, (int)(DIM (keys) - 1));
573       exit (1);
574     }
575 
576   gpgme_release (ctx);
577   return 0;
578 }
579 
580 
581 
582 /* Check expration of keys.  This test assumes three subkeys of which
583    2 are expired; it is used with the "Whisky" test key.  It has
584    already been checked that these 3 subkeys are available. */
585 static void
check_whisky(struct key_info_s * keyinfo,gpgme_key_t key)586 check_whisky (struct key_info_s *keyinfo, gpgme_key_t key)
587 {
588   const char *name = keyinfo->uid[0].name;
589   gpgme_subkey_t sub1, sub2;
590 
591   sub1 = key->subkeys->next->next;
592   sub2 = sub1->next;
593 
594   if (!sub1->expired || !sub2->expired)
595     {
596       fprintf (stderr, "Subkey of `%s' not flagged as expired\n", name);
597       exit (1);
598     }
599   if (sub1->expires != 1129636886 || sub2->expires != 1129636939)
600     {
601       fprintf (stderr, "Subkey of `%s' has wrong expiration date\n", name);
602       exit (1);
603     }
604 
605 }
606 
607