diff options
| author | cvs2svn <admin@example.com> | 2002-05-15 02:29:23 +0000 |
|---|---|---|
| committer | cvs2svn <admin@example.com> | 2002-05-15 02:29:23 +0000 |
| commit | fd9566423b542798f5c8b06e68101a9ea5bb9885 (patch) | |
| tree | f2cc037857a260afc5aaaaaa6cf62d06923c6273 /src/lib/libssl/test/tverify.com | |
| parent | 536c76cbb863bab152f19842ab88772c01e922c7 (diff) | |
| download | openbsd-fd9566423b542798f5c8b06e68101a9ea5bb9885.tar.gz openbsd-fd9566423b542798f5c8b06e68101a9ea5bb9885.tar.bz2 openbsd-fd9566423b542798f5c8b06e68101a9ea5bb9885.zip | |
This commit was manufactured by cvs2git to create branch 'openssl'.
Diffstat (limited to 'src/lib/libssl/test/tverify.com')
| -rw-r--r-- | src/lib/libssl/test/tverify.com | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/src/lib/libssl/test/tverify.com b/src/lib/libssl/test/tverify.com new file mode 100644 index 0000000000..f97e71478f --- /dev/null +++ b/src/lib/libssl/test/tverify.com | |||
| @@ -0,0 +1,26 @@ | |||
| 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;* | ||