xref: /titanic_44/usr/src/cmd/cmd-crypto/pktool/pktool.c (revision 47e946e784719ae402ace34695f67b0e6e76ae5c)
17c478bd9Sstevel@tonic-gate /*
27c478bd9Sstevel@tonic-gate  * CDDL HEADER START
37c478bd9Sstevel@tonic-gate  *
47c478bd9Sstevel@tonic-gate  * The contents of this file are subject to the terms of the
599ebb4caSwyllys  * Common Development and Distribution License (the "License").
699ebb4caSwyllys  * You may not use this file except in compliance with the License.
77c478bd9Sstevel@tonic-gate  *
87c478bd9Sstevel@tonic-gate  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
97c478bd9Sstevel@tonic-gate  * or http://www.opensolaris.org/os/licensing.
107c478bd9Sstevel@tonic-gate  * See the License for the specific language governing permissions
117c478bd9Sstevel@tonic-gate  * and limitations under the License.
127c478bd9Sstevel@tonic-gate  *
137c478bd9Sstevel@tonic-gate  * When distributing Covered Code, include this CDDL HEADER in each
147c478bd9Sstevel@tonic-gate  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
157c478bd9Sstevel@tonic-gate  * If applicable, add the following below this CDDL HEADER, with the
167c478bd9Sstevel@tonic-gate  * fields enclosed by brackets "[]" replaced with your own identifying
177c478bd9Sstevel@tonic-gate  * information: Portions Copyright [yyyy] [name of copyright owner]
187c478bd9Sstevel@tonic-gate  *
197c478bd9Sstevel@tonic-gate  * CDDL HEADER END
207c478bd9Sstevel@tonic-gate  */
217c478bd9Sstevel@tonic-gate /*
22*47e946e7SWyllys Ingersoll  * Copyright 2009 Sun Microsystems, Inc.  All rights reserved.
237c478bd9Sstevel@tonic-gate  * Use is subject to license terms.
247c478bd9Sstevel@tonic-gate  */
257c478bd9Sstevel@tonic-gate 
267c478bd9Sstevel@tonic-gate /*
277c478bd9Sstevel@tonic-gate  * This file comprises the main driver for this tool.
287711facfSdinak  * Upon parsing the command verbs from user input, it
297711facfSdinak  * branches to the appropriate modules to perform the
307711facfSdinak  * requested task.
317c478bd9Sstevel@tonic-gate  */
327c478bd9Sstevel@tonic-gate 
337c478bd9Sstevel@tonic-gate #include <stdio.h>
347c478bd9Sstevel@tonic-gate #include <string.h>
357c478bd9Sstevel@tonic-gate #include <ctype.h>
367c478bd9Sstevel@tonic-gate #include <malloc.h>
37d00756ccSwyllys #include <libintl.h>
387c478bd9Sstevel@tonic-gate #include <libgen.h>
397c478bd9Sstevel@tonic-gate #include <errno.h>
407c478bd9Sstevel@tonic-gate #include <cryptoutil.h>
417c478bd9Sstevel@tonic-gate #include <security/cryptoki.h>
427c478bd9Sstevel@tonic-gate #include "common.h"
437c478bd9Sstevel@tonic-gate 
447c478bd9Sstevel@tonic-gate /*
457c478bd9Sstevel@tonic-gate  * The verbcmd construct allows genericizing information about a verb so
467c478bd9Sstevel@tonic-gate  * that it is easier to manipulate.  Makes parsing code easier to read,
477c478bd9Sstevel@tonic-gate  * fix, and extend with new verbs.
487c478bd9Sstevel@tonic-gate  */
497c478bd9Sstevel@tonic-gate typedef struct verbcmd_s {
507c478bd9Sstevel@tonic-gate 	char	*verb;
517c478bd9Sstevel@tonic-gate 	int	(*action)(int, char *[]);
527711facfSdinak 	int	mode;
53985be8f1Swyllys 	char	*summary;
547711facfSdinak 	char	*synopsis;
557c478bd9Sstevel@tonic-gate } verbcmd;
567c478bd9Sstevel@tonic-gate 
577c478bd9Sstevel@tonic-gate /* External declarations for supported verb actions. */
587c478bd9Sstevel@tonic-gate extern int	pk_setpin(int argc, char *argv[]);
597711facfSdinak extern int	pk_list(int argc, char *argv[]);
607711facfSdinak extern int	pk_delete(int argc, char *argv[]);
617711facfSdinak extern int	pk_import(int argc, char *argv[]);
627711facfSdinak extern int	pk_export(int argc, char *argv[]);
637711facfSdinak extern int	pk_tokens(int argc, char *argv[]);
6499ebb4caSwyllys extern int	pk_gencert(int argc, char *argv[]);
6599ebb4caSwyllys extern int	pk_gencsr(int argc, char *argv[]);
6699ebb4caSwyllys extern int	pk_download(int argc, char *argv[]);
6799ebb4caSwyllys extern int	pk_genkey(int argc, char *argv[]);
68d00756ccSwyllys extern int	pk_signcsr(int argc, char *argv[]);
69*47e946e7SWyllys Ingersoll extern int	pk_inittoken(int argc, char *argv[]);
707711facfSdinak 
717711facfSdinak /* Forward declarations for "built-in" verb actions. */
727711facfSdinak static int	pk_help(int argc, char *argv[]);
737c478bd9Sstevel@tonic-gate 
74d00756ccSwyllys #define	TOKEN_IDX 0
75fa60c371Swyllys #define	TOKEN_VERB "tokens"
76d00756ccSwyllys #define	TOKEN_SUMM gettext("lists all visible PKCS#11 tokens")
77fa60c371Swyllys #define	TOKEN_SYN  "tokens"
78d00756ccSwyllys 
79d00756ccSwyllys #define	SETPIN_IDX 1
80fa60c371Swyllys #define	SETPIN_VERB "setpin"
81d00756ccSwyllys #define	SETPIN_SUMM gettext("changes user authentication passphrase "\
82d00756ccSwyllys 	"for keystore access")
83fa60c371Swyllys #define	SETPIN_SYN \
84d00756ccSwyllys 	"setpin [ keystore=pkcs11 ]\n\t\t" \
85*47e946e7SWyllys Ingersoll 	"[ token=token[:manuf[:serial]]]\n\t\t" \
86*47e946e7SWyllys Ingersoll 	"[ usertype=so|user ]\n\t" \
87*47e946e7SWyllys Ingersoll \
88d00756ccSwyllys 	"setpin keystore=nss\n\t\t" \
89d00756ccSwyllys 	"[ token=token ]\n\t\t" \
90d00756ccSwyllys 	"[ dir=directory-path ]\n\t\t" \
91fa60c371Swyllys 	"[ prefix=DBprefix ]\n\t"
92d00756ccSwyllys 
93d00756ccSwyllys #define	LIST_IDX 2
94fa60c371Swyllys #define	LIST_VERB "list"
95d00756ccSwyllys #define	LIST_SUMM gettext("lists a summary of objects in the keystore")
96fa60c371Swyllys #define	LIST_SYN \
97d00756ccSwyllys 	"list [ token=token[:manuf[:serial]]]\n\t\t" \
98d00756ccSwyllys 	"[ objtype=private|public|both ]\n\t\t" \
99d00756ccSwyllys 	"[ label=label ]\n\t" \
100d00756ccSwyllys  \
101d00756ccSwyllys 	"list objtype=cert[:[public | private | both ]]\n\t\t" \
102d00756ccSwyllys 	"[ subject=subject-DN ]\n\t\t" \
103d00756ccSwyllys 	"[ keystore=pkcs11 ]\n\t\t" \
104d00756ccSwyllys 	"[ issuer=issuer-DN ]\n\t\t" \
105d00756ccSwyllys 	"[ serial=serial number ]\n\t\t" \
106d00756ccSwyllys 	"[ label=cert-label ]\n\t\t" \
107d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
108d00756ccSwyllys 	"[ criteria=valid|expired|both ]\n\t" \
109d00756ccSwyllys  \
110d00756ccSwyllys 	"list objtype=key[:[public | private | both ]]\n\t\t" \
111d00756ccSwyllys 	"[ keystore=pkcs11 ]\n\t\t" \
112d00756ccSwyllys 	"[ subject=subject-DN ]\n\t\t" \
113d00756ccSwyllys 	"[ label=key-label ]\n\t\t" \
114d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t" \
115d00756ccSwyllys  \
116d00756ccSwyllys 	"list keystore=pkcs11 objtype=crl\n\t\t" \
117448b8615Swyllys 	"infile=crl-fn\n\t" \
118d00756ccSwyllys  \
119d00756ccSwyllys 	"list keystore=nss objtype=cert\n\t\t" \
120d00756ccSwyllys 	"[ subject=subject-DN ]\n\t\t" \
121d00756ccSwyllys 	"[ issuer=issuer-DN ]\n\t\t" \
122d00756ccSwyllys 	"[ serial=serial number ]\n\t\t" \
123d00756ccSwyllys 	"[ nickname=cert-nickname ]\n\t\t" \
124d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
125d00756ccSwyllys 	"[ dir=directory-path ]\n\t\t" \
126d00756ccSwyllys 	"[ prefix=DBprefix ]\n\t\t" \
127d00756ccSwyllys 	"[ criteria=valid|expired|both ]\n\t" \
128d00756ccSwyllys  \
129d00756ccSwyllys 	"list keystore=nss objtype=key\n\t\t" \
130d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
131d00756ccSwyllys 	"[ dir=directory-path ]\n\t\t" \
132d00756ccSwyllys 	"[ prefix=DBprefix ]\n\t\t" \
133d00756ccSwyllys 	"[ nickname=key-nickname ]\n\t" \
134d00756ccSwyllys  \
135d00756ccSwyllys 	"list keystore=file objtype=cert\n\t\t" \
136d00756ccSwyllys 	"[ subject=subject-DN ]\n\t\t" \
137d00756ccSwyllys 	"[ issuer=issuer-DN ]\n\t\t" \
138d00756ccSwyllys 	"[ serial=serial number ]\n\t\t" \
139d00756ccSwyllys 	"[ infile=cert-fn ]\n\t\t" \
140d00756ccSwyllys 	"[ dir=directory-path ]\n\t\t" \
141d00756ccSwyllys 	"[ criteria=valid|expired|both ]\n\t" \
142d00756ccSwyllys  \
143d00756ccSwyllys 	"list keystore=file objtype=key\n\t\t" \
144d00756ccSwyllys 	"[ infile=key-fn ]\n\t\t" \
145d00756ccSwyllys 	"[ dir=directory-path ]\n\t" \
146d00756ccSwyllys  \
147d00756ccSwyllys 	"list keystore=file objtype=crl\n\t\t" \
148448b8615Swyllys 	"infile=crl-fn\n\t"
149d00756ccSwyllys 
150d00756ccSwyllys #define	DELETE_IDX 3
151fa60c371Swyllys #define	DELETE_VERB "delete"
152d00756ccSwyllys #define	DELETE_SUMM gettext("deletes objects in the keystore")
153fa60c371Swyllys #define	DELETE_SYN \
154d00756ccSwyllys 	"delete [ token=token[:manuf[:serial]]]\n\t\t" \
155d00756ccSwyllys 	"[ objtype=private|public|both ]\n\t\t" \
156d00756ccSwyllys 	"[ label=object-label ]\n\t" \
157d00756ccSwyllys  \
158d00756ccSwyllys 	"delete keystore=nss objtype=cert\n\t\t" \
159d00756ccSwyllys 	"[ subject=subject-DN ]\n\t\t" \
160d00756ccSwyllys 	"[ issuer=issuer-DN ]\n\t\t" \
161d00756ccSwyllys 	"[ serial=serial number ]\n\t\t" \
162d00756ccSwyllys 	"[ label=cert-label ]\n\t\t" \
163d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
164d00756ccSwyllys 	"[ dir=directory-path ]\n\t\t" \
165d00756ccSwyllys 	"[ prefix=DBprefix ]\n\t\t" \
166d00756ccSwyllys 	"[ criteria=valid|expired|both ]\n\t" \
167d00756ccSwyllys  \
168d00756ccSwyllys 	"delete keystore=nss objtype=key\n\t\t" \
169d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
170d00756ccSwyllys 	"[ dir=directory-path ]\n\t\t" \
171d00756ccSwyllys 	"[ prefix=DBprefix ]\n\t\t" \
172d00756ccSwyllys 	"[ nickname=key-nickname ]\n\t\t" \
173d00756ccSwyllys  \
174d00756ccSwyllys 	"delete keystore=nss objtype=crl\n\t\t" \
175d00756ccSwyllys 	"[ nickname=issuer-nickname ]\n\t\t" \
176d00756ccSwyllys 	"[ subject=subject-DN ]\n\t\t" \
177d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
178d00756ccSwyllys 	"[ dir=directory-path ]\n\t\t" \
179d00756ccSwyllys 	"[ prefix=DBprefix ]\n\t" \
180d00756ccSwyllys  \
181d00756ccSwyllys 	"delete keystore=pkcs11 " \
182d00756ccSwyllys 	"objtype=cert[:[public | private | both]]\n\t\t" \
183d00756ccSwyllys 	"[ subject=subject-DN ]\n\t\t" \
184d00756ccSwyllys 	"[ issuer=issuer-DN ]\n\t\t" \
185d00756ccSwyllys 	"[ serial=serial number ]\n\t\t" \
186d00756ccSwyllys 	"[ label=cert-label ]\n\t\t" \
187d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
188d00756ccSwyllys 	"[ criteria=valid|expired|both ]\n\t" \
189d00756ccSwyllys  \
190d00756ccSwyllys 	"delete keystore=pkcs11 " \
191d00756ccSwyllys 	"objtype=key[:[public | private | both]]\n\t\t" \
192d00756ccSwyllys 	"[ subject=subject-DN ]\n\t\t" \
193d00756ccSwyllys 	"[ label=key-label ]\n\t\t" \
194d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t" \
195d00756ccSwyllys  \
196d00756ccSwyllys 	"delete keystore=pkcs11 objtype=crl\n\t\t" \
197448b8615Swyllys 	"infile=crl-fn\n\t" \
198d00756ccSwyllys  \
199d00756ccSwyllys 	"delete keystore=file objtype=cert\n\t\t" \
200d00756ccSwyllys 	"[ subject=subject-DN ]\n\t\t" \
201d00756ccSwyllys 	"[ issuer=issuer-DN ]\n\t\t" \
202d00756ccSwyllys 	"[ serial=serial number ]\n\t\t" \
203d00756ccSwyllys 	"[ infile=cert-fn ]\n\t\t" \
204d00756ccSwyllys 	"[ dir=directory-path ]\n\t\t" \
205d00756ccSwyllys 	"[ criteria=valid|expired|both ]\n\t" \
206d00756ccSwyllys  \
207d00756ccSwyllys 	"delete keystore=file objtype=key\n\t\t" \
208d00756ccSwyllys 	"[ infile=key-fn ]\n\t\t" \
209d00756ccSwyllys 	"[ dir=directory-path ]\n\t" \
210d00756ccSwyllys  \
211d00756ccSwyllys 	"delete keystore=file objtype=crl\n\t\t" \
212448b8615Swyllys 	"infile=crl-fn\n\t"
213d00756ccSwyllys 
214d00756ccSwyllys #define	IMPORT_IDX 4
215fa60c371Swyllys #define	IMPORT_VERB "import"
216d00756ccSwyllys #define	IMPORT_SUMM gettext("imports objects from an external source")
217fa60c371Swyllys #define	IMPORT_SYN \
218d00756ccSwyllys 	"import [token=token[:manuf[:serial]]]\n\t\t" \
219d00756ccSwyllys 	"infile=input-fn\n\t" \
220d00756ccSwyllys  \
221d00756ccSwyllys 	"import keystore=nss objtype=cert\n\t\t" \
222d00756ccSwyllys 	"infile=input-fn\n\t\t" \
223d00756ccSwyllys 	"label=cert-label\n\t\t" \
224d00756ccSwyllys 	"[ trust=trust-value ]\n\t\t" \
225d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
226d00756ccSwyllys 	"[ dir=directory-path ]\n\t\t" \
227d00756ccSwyllys 	"[ prefix=DBprefix ]\n\t" \
228d00756ccSwyllys  \
229d00756ccSwyllys 	"import keystore=nss objtype=crl\n\t\t" \
230d00756ccSwyllys 	"infile=input-fn\n\t\t" \
231d00756ccSwyllys 	"[ verifycrl=y|n ]\n\t\t" \
232d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
233d00756ccSwyllys 	"[ dir=directory-path ]\n\t\t" \
234d00756ccSwyllys 	"[ prefix=DBprefix ]\n\t" \
235d00756ccSwyllys  \
236d00756ccSwyllys 	"import keystore=pkcs11\n\t\t" \
237d00756ccSwyllys 	"infile=input-fn\n\t\t" \
238d00756ccSwyllys 	"label=label\n\t\t" \
239d00756ccSwyllys 	"[ objtype=cert|key ]\n\t\t" \
240d00756ccSwyllys 	"[ keytype=aes|arcfour|des|3des|generic ]\n\t\t" \
241d00756ccSwyllys 	"[ sensitive=y|n ]\n\t\t" \
242d00756ccSwyllys 	"[ extractable=y|n ]\n\t\t" \
243d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t" \
244d00756ccSwyllys  \
245d00756ccSwyllys 	"import keystore=pkcs11 objtype=crl\n\t\t" \
246d00756ccSwyllys 	"infile=input-crl-fn\n\t\t" \
247d00756ccSwyllys 	"outcrl=output-crl-fn\n\t\t" \
248448b8615Swyllys 	"outformat=pem|der\n\t" \
249d00756ccSwyllys  \
250d00756ccSwyllys 	"import keystore=file\n\t\t" \
251d00756ccSwyllys 	"infile=input-fn\n\t\t" \
252d00756ccSwyllys 	"outkey=output-key-fn\n\t\t" \
253d00756ccSwyllys 	"outcert=output-cert-fn\n\t\t" \
254d00756ccSwyllys 	"[ outformat=pem|der|pkcs12 ]\n\t" \
255d00756ccSwyllys  \
256d00756ccSwyllys 	"import keystore=file objtype=crl\n\t\t" \
257d00756ccSwyllys 	"infile=input-crl-fn\n\t\t" \
258d00756ccSwyllys 	"outcrl=output-crl-fn\n\t\t" \
259448b8615Swyllys 	"outformat=pem|der\n\t"
260d00756ccSwyllys 
261d00756ccSwyllys #define	EXPORT_IDX 5
262fa60c371Swyllys #define	EXPORT_VERB "export"
263d00756ccSwyllys #define	EXPORT_SUMM gettext("exports objects from the keystore to a file")
264fa60c371Swyllys #define	EXPORT_SYN \
265d00756ccSwyllys 	"export [token=token[:manuf[:serial]]]\n\t\t" \
266d00756ccSwyllys 	"outfile=output-fn\n\t" \
267d00756ccSwyllys  \
268d00756ccSwyllys 	"export keystore=nss\n\t\t" \
269d00756ccSwyllys 	"outfile=output-fn\n\t\t" \
270d00756ccSwyllys 	"[ objtype=cert|key ]\n\t\t" \
271d00756ccSwyllys 	"[ subject=subject-DN ]\n\t\t" \
272d00756ccSwyllys 	"[ issuer=issuer-DN ]\n\t\t" \
273d00756ccSwyllys 	"[ serial=serial number ]\n\t\t" \
274d00756ccSwyllys 	"[ nickname=cert-nickname ]\n\t\t" \
275d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
276d00756ccSwyllys 	"[ dir=directory-path ]\n\t\t" \
277d00756ccSwyllys 	"[ prefix=DBPrefix ]\n\t\t" \
278d00756ccSwyllys 	"[ outformat=pem|der|pkcs12 ]\n\t" \
279d00756ccSwyllys  \
280d00756ccSwyllys 	"export keystore=pkcs11\n\t\t" \
281d00756ccSwyllys 	"outfile=output-fn\n\t\t" \
282d00756ccSwyllys 	"[ objtype=cert|key ]\n\t\t" \
283d00756ccSwyllys 	"[ label=label ]\n\t\t" \
284d00756ccSwyllys 	"[ subject=subject-DN ]\n\t\t" \
285d00756ccSwyllys 	"[ issuer=issuer-DN ]\n\t\t" \
286d00756ccSwyllys 	"[ serial=serial number ]\n\t\t" \
287d00756ccSwyllys 	"[ outformat=pem|der|pkcs12|raw ]\n\t\t" \
288d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t" \
289d00756ccSwyllys  \
290d00756ccSwyllys 	"export keystore=file\n\t\t" \
291d00756ccSwyllys 	"certfile=cert-input-fn\n\t\t" \
292d00756ccSwyllys 	"keyfile=key-input-fn\n\t\t" \
293448b8615Swyllys 	"outfile=output-pkcs12-fn\n\t"
294d00756ccSwyllys 
295d00756ccSwyllys #define	GENCERT_IDX 6
296fa60c371Swyllys #define	GENCERT_VERB "gencert"
297d00756ccSwyllys #define	GENCERT_SUMM gettext("creates a self-signed X.509v3 certificate")
298fa60c371Swyllys #define	GENCERT_SYN \
299d00756ccSwyllys 	"gencert [-i] keystore=nss\n\t\t" \
300d00756ccSwyllys 	"label=cert-nickname\n\t\t" \
301d00756ccSwyllys 	"serial=serial number hex string]\n\t\t" \
302d00756ccSwyllys 	"subject=subject-DN\n\t\t" \
303d00756ccSwyllys 	"[ altname=[critical:]SubjectAltName ]\n\t\t" \
304d00756ccSwyllys 	"[ keyusage=[critical:]usage,usage,...]\n\t\t" \
305d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
306d00756ccSwyllys 	"[ dir=directory-path ]\n\t\t" \
307d00756ccSwyllys 	"[ prefix=DBprefix ]\n\t\t" \
308d00756ccSwyllys 	"[ keytype=rsa|dsa ]\n\t\t" \
309d00756ccSwyllys 	"[ keylen=key-size ]\n\t\t" \
310d00756ccSwyllys 	"[ trust=trust-value ]\n\t\t" \
311d00756ccSwyllys 	"[ eku=[critical:]EKU name,...]\n\t\t" \
312d00756ccSwyllys 	"[ lifetime=number-hour|number-day|number-year ]\n\t" \
313d00756ccSwyllys  \
314d00756ccSwyllys 	"gencert [-i] [ keystore=pkcs11 ]\n\t\t" \
315d00756ccSwyllys 	"label=key/cert-label\n\t\t" \
316d00756ccSwyllys 	"subject=subject-DN\n\t\t" \
317d00756ccSwyllys 	"serial=serial number hex string\n\t\t" \
318d00756ccSwyllys 	"[ altname=[critical:]SubjectAltName ]\n\t\t" \
319d00756ccSwyllys 	"[ keyusage=[critical:]usage,usage,...]\n\t\t" \
320d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
321d00756ccSwyllys 	"[ keytype=rsa|dsa ]\n\t\t" \
322d00756ccSwyllys 	"[ keylen=key-size ]\n\t\t" \
323d00756ccSwyllys 	"[ eku=[critical:]EKU name,...]\n\t\t" \
324d00756ccSwyllys 	"[ lifetime=number-hour|number-day|number-year ]\n\t" \
325d00756ccSwyllys  \
326d00756ccSwyllys 	"gencert [-i] keystore=file\n\t\t" \
327d00756ccSwyllys 	"outcert=cert_filename\n\t\t" \
328d00756ccSwyllys 	"outkey=key_filename\n\t\t" \
329d00756ccSwyllys 	"subject=subject-DN\n\t\t" \
330d00756ccSwyllys 	"serial=serial number hex string\n\t\t" \
331d00756ccSwyllys 	"[ altname=[critical:]SubjectAltName ]\n\t\t" \
332d00756ccSwyllys 	"[ keyusage=[critical:]usage,usage,...]\n\t\t" \
333d00756ccSwyllys 	"[ format=der|pem ]\n\t\t" \
334d00756ccSwyllys 	"[ prefix=DBprefix ]\n\t\t" \
335d00756ccSwyllys 	"[ keytype=rsa|dsa ]\n\t\t" \
336d00756ccSwyllys 	"[ keylen=key-size ]\n\t\t" \
337d00756ccSwyllys 	"[ eku=[critical:]EKU name,...]\n\t\t" \
338fa60c371Swyllys 	"[ lifetime=number-hour|number-day|number-year ]\n\t"
339d00756ccSwyllys 
340d00756ccSwyllys #define	GENCSR_IDX 7
341fa60c371Swyllys #define	GENCSR_VERB "gencsr"
342d00756ccSwyllys #define	GENCSR_SUMM gettext("creates a PKCS#10 certificate signing " \
343d00756ccSwyllys 	"request file")
344d00756ccSwyllys 
345fa60c371Swyllys #define	GENCSR_SYN \
346d00756ccSwyllys 	"gencsr [-i] keystore=nss \n\t\t" \
347d00756ccSwyllys 	"nickname=cert-nickname\n\t\t" \
348d00756ccSwyllys 	"outcsr=csr-fn\n\t\t" \
349d00756ccSwyllys 	"subject=subject-DN\n\t\t" \
350d00756ccSwyllys 	"[ altname=[critical:]SubjectAltName ]\n\t\t" \
351d00756ccSwyllys 	"[ keyusage=[critical:]usage,usage,...]\n\t\t" \
352d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
353d00756ccSwyllys 	"[ dir=directory-path ]\n\t\t" \
354d00756ccSwyllys 	"[ prefix=DBprefix ]\n\t\t" \
355d00756ccSwyllys 	"[ keytype=rsa|dsa ]\n\t\t" \
356d00756ccSwyllys 	"[ keylen=key-size ]\n\t\t" \
357d00756ccSwyllys 	"[ eku=[critical:]EKU name,...]\n\t\t" \
358d00756ccSwyllys 	"[ format=pem|der ]\n\t" \
359d00756ccSwyllys  \
360d00756ccSwyllys 	"gencsr [-i] [ keystore=pkcs11 ]\n\t\t" \
361d00756ccSwyllys 	"label=key-label\n\t\t" \
362d00756ccSwyllys 	"outcsr=csr-fn\n\t\t" \
363d00756ccSwyllys 	"subject=subject-DN\n\t\t" \
364d00756ccSwyllys 	"[ altname=[critical:]SubjectAltName ]\n\t\t" \
365d00756ccSwyllys 	"[ keyusage=[critical:]usage,usage,...]\n\t\t" \
366d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
367d00756ccSwyllys 	"[ keytype=rsa|dsa ]\n\t\t" \
368d00756ccSwyllys 	"[ keylen=key-size ]\n\t\t" \
369d00756ccSwyllys 	"[ eku=[critical:]EKU name,...]\n\t\t" \
370d00756ccSwyllys 	"[ format=pem|der ]]\n\t" \
371d00756ccSwyllys  \
372d00756ccSwyllys 	"gencsr [-i] keystore=file\n\t\t" \
373d00756ccSwyllys 	"outcsr=csr-fn\n\t\t" \
374d00756ccSwyllys 	"outkey=key-fn\n\t\t" \
375d00756ccSwyllys 	"subject=subject-DN\n\t\t" \
376d00756ccSwyllys 	"[ altname=[critical:]SubjectAltName ]\n\t\t" \
377d00756ccSwyllys 	"[ keyusage=[critical:]usage,usage,...]\n\t\t" \
378d00756ccSwyllys 	"[ keytype=rsa|dsa ]\n\t\t" \
379d00756ccSwyllys 	"[ keylen=key-size ]\n\t\t" \
380d00756ccSwyllys 	"[ eku=[critical:]EKU name,...]\n\t\t" \
381fa60c371Swyllys 	"[ format=pem|der ]\n\t"
382d00756ccSwyllys 
383d00756ccSwyllys #define	DOWNLOAD_IDX 8
384fa60c371Swyllys #define	DOWNLOAD_VERB "download"
385d00756ccSwyllys #define	DOWNLOAD_SUMM gettext("downloads a CRL or certificate file " \
386d00756ccSwyllys 	"from an external source")
387fa60c371Swyllys #define	DOWNLOAD_SYN \
388d00756ccSwyllys 	"download url=url_str\n\t\t" \
389d00756ccSwyllys 	"[ objtype=crl|cert ]\n\t\t" \
390d00756ccSwyllys 	"[ http_proxy=proxy_str ]\n\t\t" \
391fa60c371Swyllys 	"[ outfile = outfile ]\n\t"
392d00756ccSwyllys 
393d00756ccSwyllys #define	GENKEY_IDX 9
394fa60c371Swyllys #define	GENKEY_VERB "genkey"
395d00756ccSwyllys #define	GENKEY_SUMM gettext("creates a symmetric key in the keystore")
396fa60c371Swyllys #define	GENKEY_SYN \
397d00756ccSwyllys 	"genkey [ keystore=pkcs11 ]\n\t\t" \
398d00756ccSwyllys 	"label=key-label\n\t\t" \
399d00756ccSwyllys 	"[ keytype=aes|arcfour|des|3des|generic ]\n\t\t" \
400d00756ccSwyllys 	"[ keylen=key-size (AES, ARCFOUR or GENERIC only)]\n\t\t" \
401d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
402d00756ccSwyllys 	"[ sensitive=y|n ]\n\t\t" \
403d00756ccSwyllys 	"[ extractable=y|n ]\n\t\t" \
404d00756ccSwyllys 	"[ print=y|n ]\n\t" \
405d00756ccSwyllys  \
406d00756ccSwyllys 	"genkey keystore=nss\n\t\t" \
407d00756ccSwyllys 	"label=key-label\n\t\t" \
408d00756ccSwyllys 	"[ keytype=aes|arcfour|des|3des|generic ]\n\t\t" \
409d00756ccSwyllys 	"[ keylen=key-size (AES, ARCFOUR or GENERIC only)]\n\t\t" \
410d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
411d00756ccSwyllys 	"[ dir=directory-path ]\n\t\t" \
412d00756ccSwyllys 	"[ prefix=DBprefix ]\n\t" \
413d00756ccSwyllys  \
414d00756ccSwyllys 	"genkey keystore=file\n\t\t" \
415d00756ccSwyllys 	"outkey=key-fn\n\t\t" \
416d00756ccSwyllys 	"[ keytype=aes|arcfour|des|3des|generic ]\n\t\t" \
417d00756ccSwyllys 	"[ keylen=key-size (AES, ARCFOUR or GENERIC only)]\n\t\t" \
418fa60c371Swyllys 	"[ print=y|n ]\n\t"
419d00756ccSwyllys 
420d00756ccSwyllys #define	SIGNCSR_IDX 10
421fa60c371Swyllys #define	SIGNCSR_VERB "signcsr"
422d00756ccSwyllys #define	SIGNCSR_SUMM gettext("Sign a PKCS#10 Certificate Signing Request")
423fa60c371Swyllys #define	SIGNCSR_SYN \
424d00756ccSwyllys 	"signcsr keystore=pkcs11\n\t\t" \
425d00756ccSwyllys 	"signkey=label (label of signing key)\n\t\t" \
426d00756ccSwyllys 	"csr=CSR filename\n\t\t" \
427d00756ccSwyllys 	"serial=serial number hex string\n\t\t" \
428d00756ccSwyllys 	"outcert=filename for final certificate\n\t\t" \
429d00756ccSwyllys 	"issuer=issuer-DN\n\t\t" \
430d00756ccSwyllys 	"[ store=y|n ] (store the new cert in NSS DB, default=n)\n\t\t" \
431d00756ccSwyllys 	"[ outlabel=certificate label ]\n\t\t" \
432d00756ccSwyllys 	"[ format=pem|der ] (output format)\n\t\t" \
433d00756ccSwyllys 	"[ subject=subject-DN ] (new subject name)\n\t\t" \
434d00756ccSwyllys 	"[ altname=subjectAltName ]\n\t\t" \
435d00756ccSwyllys 	"[ keyusage=[critical:]usage,...]\n\t\t" \
436d00756ccSwyllys 	"[ eku=[critical:]EKU Name,...]\n\t\t" \
437d00756ccSwyllys 	"[ lifetime=number-hour|number-day|number-year ]\n\t\t" \
438d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t" \
439d00756ccSwyllys  \
440d00756ccSwyllys 	"signcsr keystore=file\n\t\t" \
441d00756ccSwyllys 	"signkey=filename\n\t\t" \
442d00756ccSwyllys 	"csr=CSR filename\n\t\t" \
443d00756ccSwyllys 	"serial=serial number hex string\n\t\t" \
444d00756ccSwyllys 	"outcert=filename for final certificate\n\t\t" \
445d00756ccSwyllys 	"issuer=issuer-DN\n\t\t" \
446d00756ccSwyllys 	"[ format=pem|der ] (output format)\n\t\t" \
447d00756ccSwyllys 	"[ subject=subject-DN ] (new subject name)\n\t\t" \
448d00756ccSwyllys 	"[ altname=subjectAltName ]\n\t\t" \
449d00756ccSwyllys 	"[ keyusage=[critical:]usage,...]\n\t\t" \
450d00756ccSwyllys 	"[ lifetime=number-hour|number-day|number-year ]\n\t\t" \
451d00756ccSwyllys 	"[ eku=[critical:]EKU Name,...]\n\t" \
452d00756ccSwyllys  \
453d00756ccSwyllys 	"signcsr keystore=nss\n\t\t" \
454d00756ccSwyllys 	"signkey=label (label of signing key)\n\t\t" \
455d00756ccSwyllys 	"csr=CSR filename\n\t\t" \
456d00756ccSwyllys 	"serial=serial number hex string\n\t\t" \
457d00756ccSwyllys 	"outcert=filename for final certificate\n\t\t" \
458d00756ccSwyllys 	"issuer=issuer-DN\n\t\t" \
459d00756ccSwyllys 	"[ store=y|n ] (store the new cert in NSS DB, default=n)\n\t\t" \
460d00756ccSwyllys 	"[ outlabel=certificate label ]\n\t\t" \
461d00756ccSwyllys 	"[ format=pem|der ] (output format)\n\t\t" \
462d00756ccSwyllys 	"[ subject=subject-DN ] (new subject name)\n\t\t" \
463d00756ccSwyllys 	"[ altname=subjectAltName ]\n\t\t" \
464d00756ccSwyllys 	"[ keyusage=[critical:]usage,...]\n\t\t" \
465d00756ccSwyllys 	"[ eku=[critical:]EKU Name,...]\n\t\t" \
466d00756ccSwyllys 	"[ lifetime=number-hour|number-day|number-year ]\n\t\t" \
467d00756ccSwyllys 	"[ token=token[:manuf[:serial]]]\n\t\t" \
468d00756ccSwyllys 	"[ dir=directory-path ]\n\t\t" \
469fa60c371Swyllys 	"[ prefix=DBprefix ]\n\t"
470d00756ccSwyllys 
471*47e946e7SWyllys Ingersoll #define	INITTOKEN_IDX 11
472*47e946e7SWyllys Ingersoll #define	INITTOKEN_VERB "inittoken"
473*47e946e7SWyllys Ingersoll #define	INITTOKEN_SUMM gettext("Initialize a PKCS11 token")
474*47e946e7SWyllys Ingersoll #define	INITTOKEN_SYN \
475*47e946e7SWyllys Ingersoll 	"inittoken \n\t\t" \
476*47e946e7SWyllys Ingersoll 	"[ currlabel=token[:manuf[:serial]]]\n\t\t" \
477*47e946e7SWyllys Ingersoll 	"[ newlabel=new token label ]\n\t"
478*47e946e7SWyllys Ingersoll 
479*47e946e7SWyllys Ingersoll #define	HELP_IDX 12
480fa60c371Swyllys #define	HELP_VERB "help"
481d00756ccSwyllys #define	HELP_SUMM gettext("displays help message")
482fa60c371Swyllys #define	HELP_SYN "help\t(help and usage)"
483d00756ccSwyllys 
4847c478bd9Sstevel@tonic-gate /* Command structure for verbs and their actions.  Do NOT i18n/l10n. */
4857c478bd9Sstevel@tonic-gate static verbcmd	cmds[] = {
486d00756ccSwyllys 	{ NULL,	pk_tokens, 0, NULL, NULL},
487d00756ccSwyllys 	{ NULL,	pk_setpin, 0, NULL, NULL},
488d00756ccSwyllys 	{ NULL, pk_list, 0, NULL, NULL},
489d00756ccSwyllys 	{ NULL, pk_delete, 0, NULL, NULL},
490d00756ccSwyllys 	{ NULL,	pk_import, 0, NULL, NULL},
491d00756ccSwyllys 	{ NULL,	pk_export, 0, NULL, NULL},
492d00756ccSwyllys 	{ NULL,	pk_gencert, 0, NULL, NULL},
493d00756ccSwyllys 	{ NULL,	pk_gencsr, 0, NULL, NULL},
494d00756ccSwyllys 	{ NULL,	pk_download, 0, NULL, NULL},
495d00756ccSwyllys 	{ NULL,	pk_genkey, 0, NULL, NULL},
496d00756ccSwyllys 	{ NULL, pk_signcsr, 0, NULL, NULL},
497*47e946e7SWyllys Ingersoll 	{ NULL, pk_inittoken, 0, NULL, NULL},
498d00756ccSwyllys 	{ NULL,	pk_help, 0, NULL, NULL}
4997c478bd9Sstevel@tonic-gate };
500985be8f1Swyllys 
5017c478bd9Sstevel@tonic-gate static int	num_cmds = sizeof (cmds) / sizeof (verbcmd);
5027c478bd9Sstevel@tonic-gate 
5037c478bd9Sstevel@tonic-gate static char	*prog;
50499ebb4caSwyllys static void	usage(int);
5057c478bd9Sstevel@tonic-gate 
506d00756ccSwyllys static void
507d00756ccSwyllys init_command_list()
508d00756ccSwyllys {
509d00756ccSwyllys 	cmds[TOKEN_IDX].verb = TOKEN_VERB;
510d00756ccSwyllys 	cmds[TOKEN_IDX].summary = TOKEN_SUMM;
511d00756ccSwyllys 	cmds[TOKEN_IDX].synopsis = TOKEN_SYN;
512d00756ccSwyllys 
513d00756ccSwyllys 	cmds[SETPIN_IDX].verb = SETPIN_VERB;
514d00756ccSwyllys 	cmds[SETPIN_IDX].summary = SETPIN_SUMM;
515d00756ccSwyllys 	cmds[SETPIN_IDX].synopsis = SETPIN_SYN;
516d00756ccSwyllys 
517d00756ccSwyllys 	cmds[LIST_IDX].verb = LIST_VERB;
518d00756ccSwyllys 	cmds[LIST_IDX].summary = LIST_SUMM;
519d00756ccSwyllys 	cmds[LIST_IDX].synopsis = LIST_SYN;
520d00756ccSwyllys 
521d00756ccSwyllys 	cmds[DELETE_IDX].verb = DELETE_VERB;
522d00756ccSwyllys 	cmds[DELETE_IDX].summary = DELETE_SUMM;
523d00756ccSwyllys 	cmds[DELETE_IDX].synopsis = DELETE_SYN;
524d00756ccSwyllys 
525d00756ccSwyllys 	cmds[IMPORT_IDX].verb = IMPORT_VERB;
526d00756ccSwyllys 	cmds[IMPORT_IDX].summary = IMPORT_SUMM;
527d00756ccSwyllys 	cmds[IMPORT_IDX].synopsis = IMPORT_SYN;
528d00756ccSwyllys 
529d00756ccSwyllys 	cmds[EXPORT_IDX].verb = EXPORT_VERB;
530d00756ccSwyllys 	cmds[EXPORT_IDX].summary = EXPORT_SUMM;
531d00756ccSwyllys 	cmds[EXPORT_IDX].synopsis = EXPORT_SYN;
532d00756ccSwyllys 
533d00756ccSwyllys 	cmds[GENCERT_IDX].verb = GENCERT_VERB;
534d00756ccSwyllys 	cmds[GENCERT_IDX].summary = GENCERT_SUMM;
535d00756ccSwyllys 	cmds[GENCERT_IDX].synopsis = GENCERT_SYN;
536d00756ccSwyllys 
537d00756ccSwyllys 	cmds[GENCSR_IDX].verb = GENCSR_VERB;
538d00756ccSwyllys 	cmds[GENCSR_IDX].summary = GENCSR_SUMM;
539d00756ccSwyllys 	cmds[GENCSR_IDX].synopsis = GENCSR_SYN;
540d00756ccSwyllys 
541d00756ccSwyllys 	cmds[DOWNLOAD_IDX].verb = DOWNLOAD_VERB;
542d00756ccSwyllys 	cmds[DOWNLOAD_IDX].summary = DOWNLOAD_SUMM;
543d00756ccSwyllys 	cmds[DOWNLOAD_IDX].synopsis = DOWNLOAD_SYN;
544d00756ccSwyllys 
545d00756ccSwyllys 	cmds[GENKEY_IDX].verb = GENKEY_VERB;
546d00756ccSwyllys 	cmds[GENKEY_IDX].summary = GENKEY_SUMM;
547d00756ccSwyllys 	cmds[GENKEY_IDX].synopsis = GENKEY_SYN;
548d00756ccSwyllys 
549d00756ccSwyllys 	cmds[SIGNCSR_IDX].verb = SIGNCSR_VERB;
550d00756ccSwyllys 	cmds[SIGNCSR_IDX].summary = SIGNCSR_SUMM;
551d00756ccSwyllys 	cmds[SIGNCSR_IDX].synopsis = SIGNCSR_SYN;
552d00756ccSwyllys 
553*47e946e7SWyllys Ingersoll 	cmds[INITTOKEN_IDX].verb = INITTOKEN_VERB;
554*47e946e7SWyllys Ingersoll 	cmds[INITTOKEN_IDX].summary = INITTOKEN_SUMM;
555*47e946e7SWyllys Ingersoll 	cmds[INITTOKEN_IDX].synopsis = INITTOKEN_SYN;
556*47e946e7SWyllys Ingersoll 
557d00756ccSwyllys 	cmds[HELP_IDX].verb = HELP_VERB;
558d00756ccSwyllys 	cmds[HELP_IDX].summary = HELP_SUMM;
559d00756ccSwyllys 	cmds[HELP_IDX].synopsis = HELP_SYN;
560d00756ccSwyllys }
561d00756ccSwyllys 
5627c478bd9Sstevel@tonic-gate /*
5637c478bd9Sstevel@tonic-gate  * Usage information.  This function must be updated when new verbs or
5647c478bd9Sstevel@tonic-gate  * options are added.
5657c478bd9Sstevel@tonic-gate  */
5667c478bd9Sstevel@tonic-gate static void
56799ebb4caSwyllys usage(int idx)
5687c478bd9Sstevel@tonic-gate {
5697711facfSdinak 	int	i;
5707711facfSdinak 
5717711facfSdinak 	/* Display this block only in command-line mode. */
5727711facfSdinak 	(void) fprintf(stdout, gettext("Usage:\n"));
573985be8f1Swyllys 	(void) fprintf(stdout, gettext("   %s -?\t(help and usage)\n"),
574985be8f1Swyllys 	    prog);
575985be8f1Swyllys 	(void) fprintf(stdout, gettext("   %s -f option_file\n"), prog);
576985be8f1Swyllys 	(void) fprintf(stdout, gettext("   %s subcommand [options...]\n"),
577985be8f1Swyllys 	    prog);
5787711facfSdinak 	(void) fprintf(stdout, gettext("where subcommands may be:\n"));
5797711facfSdinak 
5807711facfSdinak 	/* Display only those verbs that match the current tool mode. */
58199ebb4caSwyllys 	if (idx == -1) {
5827711facfSdinak 		for (i = 0; i < num_cmds; i++) {
5837711facfSdinak 			/* Do NOT i18n/l10n. */
584985be8f1Swyllys 			(void) fprintf(stdout, "   %-8s	- %s\n",
585985be8f1Swyllys 			    cmds[i].verb, cmds[i].summary);
5867711facfSdinak 		}
587fa60c371Swyllys 		(void) fprintf(stdout, "%s \'help\'.\n"
588fa60c371Swyllys 		    "Ex: pktool gencert help\n\n",
589fa60c371Swyllys 		    gettext("\nFurther details on the "
590fa60c371Swyllys 		    "subcommands can be found by adding"));
59199ebb4caSwyllys 	} else {
59299ebb4caSwyllys 		(void) fprintf(stdout, "\t%s\n", cmds[idx].synopsis);
59399ebb4caSwyllys 	}
5947711facfSdinak }
5957711facfSdinak 
5967711facfSdinak /*
5977711facfSdinak  * Provide help, in the form of displaying the usage.
5987711facfSdinak  */
5997711facfSdinak static int
6007711facfSdinak pk_help(int argc, char *argv[])
6017711facfSdinak /* ARGSUSED */
6027711facfSdinak {
60399ebb4caSwyllys 	usage(-1);
60499ebb4caSwyllys 	return (0);
60599ebb4caSwyllys }
6067711facfSdinak 
60799ebb4caSwyllys /*
60899ebb4caSwyllys  * Process arguments from the argfile and create a new
60999ebb4caSwyllys  * argv/argc list to be processed later.
61099ebb4caSwyllys  */
61199ebb4caSwyllys static int
61299ebb4caSwyllys process_arg_file(char *argfile, char ***argv, int *argc)
61399ebb4caSwyllys {
61499ebb4caSwyllys 	FILE *fp;
61599ebb4caSwyllys 	char argline[2 * BUFSIZ]; /* 2048 bytes should be plenty */
61699ebb4caSwyllys 	char *p;
61799ebb4caSwyllys 	int nargs = 0;
61899ebb4caSwyllys 
61999ebb4caSwyllys 	if ((fp = fopen(argfile, "rF")) == NULL) {
62099ebb4caSwyllys 		(void) fprintf(stderr,
62199ebb4caSwyllys 		    gettext("Cannot read argfile %s: %s\n"),
62299ebb4caSwyllys 		    argfile, strerror(errno));
62399ebb4caSwyllys 		return (errno);
62499ebb4caSwyllys 	}
62599ebb4caSwyllys 
62699ebb4caSwyllys 	while (fgets(argline, sizeof (argline), fp) != NULL) {
62799ebb4caSwyllys 		int j;
62899ebb4caSwyllys 		/* remove trailing whitespace */
62999ebb4caSwyllys 		j = strlen(argline) - 1;
63099ebb4caSwyllys 		while (j >= 0 && isspace(argline[j])) {
63199ebb4caSwyllys 			argline[j] = 0;
63299ebb4caSwyllys 			j--;
63399ebb4caSwyllys 		}
63499ebb4caSwyllys 		/* If it was a blank line, get the next one. */
63599ebb4caSwyllys 		if (!strlen(argline))
63699ebb4caSwyllys 			continue;
63799ebb4caSwyllys 
63830a5e8faSwyllys 		(*argv) = realloc((*argv),
63930a5e8faSwyllys 		    (nargs + 1) * sizeof (char *));
64099ebb4caSwyllys 		if ((*argv) == NULL) {
64199ebb4caSwyllys 			perror("memory error");
64299ebb4caSwyllys 			(void) fclose(fp);
64399ebb4caSwyllys 			return (errno);
64499ebb4caSwyllys 		}
64599ebb4caSwyllys 		p = (char *)strdup(argline);
64699ebb4caSwyllys 		if (p == NULL) {
64799ebb4caSwyllys 			perror("memory error");
64899ebb4caSwyllys 			(void) fclose(fp);
64999ebb4caSwyllys 			return (errno);
65099ebb4caSwyllys 		}
65199ebb4caSwyllys 		(*argv)[nargs] = p;
65299ebb4caSwyllys 		nargs++;
65399ebb4caSwyllys 	}
65499ebb4caSwyllys 	*argc = nargs;
65599ebb4caSwyllys 	(void) fclose(fp);
6567711facfSdinak 	return (0);
6577c478bd9Sstevel@tonic-gate }
6587c478bd9Sstevel@tonic-gate 
6597c478bd9Sstevel@tonic-gate /*
6607c478bd9Sstevel@tonic-gate  * MAIN() -- where all the action is
6617c478bd9Sstevel@tonic-gate  */
6627c478bd9Sstevel@tonic-gate int
6637c478bd9Sstevel@tonic-gate main(int argc, char *argv[], char *envp[])
6647c478bd9Sstevel@tonic-gate /* ARGSUSED2 */
6657c478bd9Sstevel@tonic-gate {
6667c478bd9Sstevel@tonic-gate 	int	i, found = -1;
6677c478bd9Sstevel@tonic-gate 	int	rv;
6687c478bd9Sstevel@tonic-gate 	int	pk_argc = 0;
6697c478bd9Sstevel@tonic-gate 	char	**pk_argv = NULL;
6707711facfSdinak 	int	save_errno = 0;
6717c478bd9Sstevel@tonic-gate 
6727c478bd9Sstevel@tonic-gate 	/* Set up for i18n/l10n. */
6737c478bd9Sstevel@tonic-gate 	(void) setlocale(LC_ALL, "");
6747c478bd9Sstevel@tonic-gate #if !defined(TEXT_DOMAIN)		/* Should be defined by cc -D. */
6757c478bd9Sstevel@tonic-gate #define	TEXT_DOMAIN	"SYS_TEST"	/* Use this only if it isn't. */
6767c478bd9Sstevel@tonic-gate #endif
6777c478bd9Sstevel@tonic-gate 	(void) textdomain(TEXT_DOMAIN);
6787c478bd9Sstevel@tonic-gate 
679d00756ccSwyllys 	init_command_list();
680d00756ccSwyllys 
6817c478bd9Sstevel@tonic-gate 	/* Get program base name and move pointer over 0th arg. */
6827c478bd9Sstevel@tonic-gate 	prog = basename(argv[0]);
6837c478bd9Sstevel@tonic-gate 	argv++, argc--;
6847c478bd9Sstevel@tonic-gate 
6857c478bd9Sstevel@tonic-gate 	/* Set up for debug and error output. */
6867c478bd9Sstevel@tonic-gate 	if (argc == 0) {
68799ebb4caSwyllys 		usage(-1);
6887c478bd9Sstevel@tonic-gate 		return (1);
6897c478bd9Sstevel@tonic-gate 	}
6907c478bd9Sstevel@tonic-gate 
6917711facfSdinak 	/* Check for help options.  For CLIP-compliance. */
69299ebb4caSwyllys 	if (strcmp(argv[0], "-?") == 0) {
6937711facfSdinak 		return (pk_help(argc, argv));
69499ebb4caSwyllys 	} else if (strcmp(argv[0], "-f") == 0 && argc == 2) {
69599ebb4caSwyllys 		rv = process_arg_file(argv[1], &pk_argv, &pk_argc);
69699ebb4caSwyllys 		if (rv)
69799ebb4caSwyllys 			return (rv);
69899ebb4caSwyllys 	} else if (argc >= 1 && argv[0][0] == '-') {
69999ebb4caSwyllys 		usage(-1);
7007711facfSdinak 		return (1);
7017711facfSdinak 	}
7027711facfSdinak 
7037711facfSdinak 	/* Always turns off Metaslot so that we can see softtoken. */
7047c478bd9Sstevel@tonic-gate 	if (setenv("METASLOT_ENABLED", "false", 1) < 0) {
7057711facfSdinak 		save_errno = errno;
7067c478bd9Sstevel@tonic-gate 		cryptoerror(LOG_STDERR,
7077711facfSdinak 		    gettext("Disabling Metaslot failed (%s)."),
7087711facfSdinak 		    strerror(save_errno));
7097c478bd9Sstevel@tonic-gate 		return (1);
7107c478bd9Sstevel@tonic-gate 	}
7117c478bd9Sstevel@tonic-gate 
7127c478bd9Sstevel@tonic-gate 	/* Begin parsing command line. */
71399ebb4caSwyllys 	if (pk_argc == 0 && pk_argv == NULL) {
7147c478bd9Sstevel@tonic-gate 		pk_argc = argc;
7157c478bd9Sstevel@tonic-gate 		pk_argv = argv;
71699ebb4caSwyllys 	}
7177c478bd9Sstevel@tonic-gate 
7187711facfSdinak 	/* Check for valid verb (or an abbreviation of it). */
7197c478bd9Sstevel@tonic-gate 	found = -1;
7207c478bd9Sstevel@tonic-gate 	for (i = 0; i < num_cmds; i++) {
7217c478bd9Sstevel@tonic-gate 		if (strcmp(cmds[i].verb, pk_argv[0]) == 0) {
7227c478bd9Sstevel@tonic-gate 			if (found < 0) {
7237c478bd9Sstevel@tonic-gate 				found = i;
7247c478bd9Sstevel@tonic-gate 				break;
7257c478bd9Sstevel@tonic-gate 			}
7267c478bd9Sstevel@tonic-gate 		}
7277c478bd9Sstevel@tonic-gate 	}
7287c478bd9Sstevel@tonic-gate 	/* Stop here if no valid verb found. */
7297c478bd9Sstevel@tonic-gate 	if (found < 0) {
7307711facfSdinak 		cryptoerror(LOG_STDERR, gettext("Invalid verb: %s"),
7317711facfSdinak 		    pk_argv[0]);
7327c478bd9Sstevel@tonic-gate 		return (1);
7337c478bd9Sstevel@tonic-gate 	}
7347c478bd9Sstevel@tonic-gate 
7357c478bd9Sstevel@tonic-gate 	/* Get to work! */
7367c478bd9Sstevel@tonic-gate 	rv = (*cmds[found].action)(pk_argc, pk_argv);
7377c478bd9Sstevel@tonic-gate 	switch (rv) {
7387c478bd9Sstevel@tonic-gate 	case PK_ERR_NONE:
7397c478bd9Sstevel@tonic-gate 		break;		/* Command succeeded, do nothing. */
7407c478bd9Sstevel@tonic-gate 	case PK_ERR_USAGE:
74199ebb4caSwyllys 		usage(found);
7427c478bd9Sstevel@tonic-gate 		break;
7437c478bd9Sstevel@tonic-gate 	case PK_ERR_QUIT:
7447c478bd9Sstevel@tonic-gate 		exit(0);
7457c478bd9Sstevel@tonic-gate 		/* NOTREACHED */
7467711facfSdinak 	case PK_ERR_PK11:
7477711facfSdinak 	case PK_ERR_SYSTEM:
7487711facfSdinak 	case PK_ERR_OPENSSL:
74999ebb4caSwyllys 	case PK_ERR_NSS:
7507c478bd9Sstevel@tonic-gate 	default:
7517c478bd9Sstevel@tonic-gate 		break;
7527c478bd9Sstevel@tonic-gate 	}
7537c478bd9Sstevel@tonic-gate 	return (rv);
7547c478bd9Sstevel@tonic-gate }
755