generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Avoid endless loops. Really, we were using the same variable for two

Browse Source 
different conditions...
This commit is contained in:
Richard Levitte 2005-06-08 21:59:47 +00:00
parent cbed917fee
commit 2073d95fb4
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
test/tverify.com
View File

@ -8,22 +8,22 @@ $ copy/concatenate [-.certs]*.pem certs.tmp
$ $
$ old_f := $ old_f :=
$ loop_certs: $ loop_certs:
$ c := NO $ verify := NO
$ more := YES
$ certs := $ certs :=
$ loop_certs2: $ loop_certs2:
$ f = f$search("[-.certs]*.pem") $ f = f$search("[-.certs]*.pem")
$ if f .nes. "" .and. f .nes. old_f $ if f .nes. "" .and. f .nes. old_f
$ then $ then
$ certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem" $ certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem"
$ c := YES $ verify := YES
$ if f$length(certs) .lt. 180 then goto loop_certs2 $ if f$length(certs) .lt. 180 then goto loop_certs2
$ else
$ more := NO
$ endif $ endif
$ certs = certs - " " $ certs = certs - " "
$ $
$ if c $ if verify then mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
$ then $ if more then goto loop_certs
$ mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
$ goto loop_certs
$ endif
$ $
$ delete certs.tmp;* $ delete certs.tmp;*