mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2024-11-27 05:21:51 +08:00
Code Issues Packages Projects Releases Wiki Activity

There are cases when there are no files left to verify. Make sure to

Browse Source 
handle that properly.
This commit is contained in:
Richard Levitte 2005-03-21 13:52:12 +00:00
parent 689c6f2542
commit 9fc9b55237
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
test/tverify.com
View File

@ -15,12 +15,15 @@ $ 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
$ if f$length(certs) .lt. 180 then goto loop_certs2
$ endif
$ certs = certs - " "
$
$ mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
$ if c then goto loop_certs
$ if c
$ then
$ mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
$ goto loop_certs
$ endif
$
$ delete certs.tmp;*