File: tverify.com

package info (click to toggle)
openssl 0.9.8c-4etch9
  • links: PTS
  • area: main
  • in suites: etch
  • size: 19,340 kB
  • ctags: 26,395
  • sloc: ansic: 203,603; perl: 18,445; makefile: 10,732; asm: 10,675; cpp: 4,379; sh: 2,925; lisp: 23
file content (29 lines) | stat: -rw-r--r-- 655 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
$! 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:
$	verify := NO
$	more := YES
$	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"
$	    verify := YES
$	    if f$length(certs) .lt. 180 then goto loop_certs2
$	else
$	    more := NO
$	endif
$	certs = certs - " "
$
$	if verify then mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
$	if more then goto loop_certs
$
$	delete certs.tmp;*