diff options
Diffstat (limited to 'openssl/test/tverify.com')
| -rw-r--r-- | openssl/test/tverify.com | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/openssl/test/tverify.com b/openssl/test/tverify.com new file mode 100644 index 000000000..021d701d7 --- /dev/null +++ b/openssl/test/tverify.com @@ -0,0 +1,29 @@ +$! 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: +$ verify := NO +$ more := YES +$ 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" +$ verify := YES +$ if f$length(certs) .lt. 180 then goto loop_certs2 +$ else +$ more := NO +$ endif +$ certs = certs - " " +$ +$ if verify then mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs' +$ if more then goto loop_certs +$ +$ delete certs.tmp;* |