tests: Add option --secret to run-keylist.
Signed-off-by: Werner Koch <wk@gnupg.org>
Werner Koch
8 years ago
| 44 | 44 | " --verbose run in verbose mode\n" |
| 45 | 45 | " --openpgp use the OpenPGP protocol (default)\n" |
| 46 | 46 | " --cms use the CMS protocol\n" |
| 47 | " --secret list only secret keys\n" | |
| 47 | 48 | " --local use GPGME_KEYLIST_MODE_LOCAL\n" |
| 48 | 49 | " --extern use GPGME_KEYLIST_MODE_EXTERN\n" |
| 49 | 50 | " --sigs use GPGME_KEYLIST_MODE_SIGS\n" |
| 69 | 70 | gpgme_key_t keyarray[100]; |
| 70 | 71 | int keyidx = 0; |
| 71 | 72 | gpgme_protocol_t protocol = GPGME_PROTOCOL_OpenPGP; |
| 73 | int only_secret = 0; | |
| 72 | 74 | |
| 73 | 75 | if (argc) |
| 74 | 76 | { argc--; argv++; } |
| 98 | 100 | protocol = GPGME_PROTOCOL_CMS; |
| 99 | 101 | argc--; argv++; |
| 100 | 102 | } |
| 103 | else if (!strcmp (*argv, "--secret")) | |
| 104 | { | |
| 105 | only_secret = 1; | |
| 106 | argc--; argv++; | |
| 107 | } | |
| 101 | 108 | else if (!strcmp (*argv, "--local")) |
| 102 | 109 | { |
| 103 | 110 | mode |= GPGME_KEYLIST_MODE_LOCAL; |
| 149 | 156 | |
| 150 | 157 | gpgme_set_keylist_mode (ctx, mode); |
| 151 | 158 | |
| 152 | err = gpgme_op_keylist_start (ctx, argc? argv[0]:NULL, 0); | |
| 159 | err = gpgme_op_keylist_start (ctx, argc? argv[0]:NULL, only_secret); | |
| 153 | 160 | fail_if_err (err); |
| 154 | 161 | |
| 155 | 162 | while (!(err = gpgme_op_keylist_next (ctx, &key))) |