Revision 36800c36d63da1fd32f04d62c4e421dfa96b7667 authored by Mark J. Cox on 17 March 2004, 11:45:35 UTC, committed by Mark J. Cox on 17 March 2004, 11:45:35 UTC
by using the Codenomicon TLS Test Tool (CAN-2004-0079) Prepare for 0.9.6m release Submitted by: Steven Henson Reviewed by: Joe Orton Approved by: Mark Cox
1 parent c08c1f7
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;*
Computing file changes ...
