[thirdparty/openssl.git] / test / tverify.com

$! TVERIFY.COM
$
$	__arch := VAX
$	if f$getsyi("cpu") .ge. 128 then __arch := AXP
$	exe_dir := sys$disk:[-.'__arch'.exe.apps]
$
$	copy/concatenate [-.certs]*.pem certs.tmp
$
$	old_f :=
$ loop_certs:
$	c := NO
$	certs :=
$ loop_certs2:
$	f = f$search("[-.certs]*.pem")
$	if f .nes. "" .and. f .nes. old_f
$	then
$	    certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem"
$	    if f$length(certs) .lt. 180 then goto loop_certs2
$	    c := YES
$	endif
$	certs = certs - " "
$
$	mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
$	if c then goto loop_certs
$
$	delete certs.tmp;*
Commit	Line	Data
7d7d2cbc UM	1	$! TVERIFY.COM
	2	$
	3	$ __arch := VAX
	4	$ if f$getsyi("cpu") .ge. 128 then __arch := AXP
	5	$ exe_dir := sys$disk:[-.'__arch'.exe.apps]
	6	$
	7	$ copy/concatenate [-.certs]*.pem certs.tmp
	8	$
	9	$ old_f :=
	10	$ loop_certs:
	11	$ c := NO
	12	$ certs :=
	13	$ loop_certs2:
	14	$ f = f$search("[-.certs]*.pem")
	15	$ if f .nes. "" .and. f .nes. old_f
	16	$ then
	17	$ certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem"
	18	$ if f$length(certs) .lt. 180 then goto loop_certs2
	19	$ c := YES
	20	$ endif
	21	$ certs = certs - " "
	22	$
	23	$ mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
	24	$ if c then goto loop_certs
	25	$
	26	$ delete certs.tmp;*