diff options
| author | Ulf Möller <ulf@openssl.org> | 1999-05-13 11:37:32 +0000 |
|---|---|---|
| committer | Ulf Möller <ulf@openssl.org> | 1999-05-13 11:37:32 +0000 |
| commit | 7d7d2cbcb02206f3393681f2bce198e11e2e185b (patch) | |
| tree | 93410fafc5aa977c748ea492994da3f581d11278 /test/tverify.com | |
| parent | 8d111f4a476896a417069d16597ce3009f9bb992 (diff) | |
VMS support.
Submitted by: Richard Levitte <richard@levitte.org>
Diffstat (limited to 'test/tverify.com')
| -rw-r--r-- | test/tverify.com | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/test/tverify.com b/test/tverify.com new file mode 100644 index 0000000000..f97e71478f --- /dev/null +++ b/test/tverify.com @@ -0,0 +1,26 @@ +$! 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;* |