]>
Commit | Line | Data |
---|---|---|
7d7d2cbc UM |
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" | |
7d7d2cbc | 18 | $ c := YES |
9fc9b552 | 19 | $ if f$length(certs) .lt. 180 then goto loop_certs2 |
7d7d2cbc UM |
20 | $ endif |
21 | $ certs = certs - " " | |
22 | $ | |
9fc9b552 RL |
23 | $ if c |
24 | $ then | |
25 | $ mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs' | |
26 | $ goto loop_certs | |
27 | $ endif | |
7d7d2cbc UM |
28 | $ |
29 | $ delete certs.tmp;* |