Support retries in certificate callback
[openssl.git] / test / testca.com
1 $! TESTCA.COM
2 $
3 $       __arch = "VAX"
4 $       if f$getsyi("cpu") .ge. 128 then -
5            __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE")
6 $       if __arch .eqs. "" then __arch = "UNK"
7 $!
8 $       if (p1 .eqs. "64") then __arch = __arch+ "_64"
9 $
10 $       openssl = "mcr ''exe_dir'openssl"
11 $
12 $       SSLEAY_CONFIG="-config ""CAss.cnf"""
13 $
14 $       set noon
15 $       if f$search("demoCA.dir") .nes. ""
16 $       then
17 $           @[-.util]deltree [.demoCA]*.*
18 $           set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) demoCA.dir;*
19 $           delete demoCA.dir;*
20 $       endif
21 $       set on
22 $       open/read sys$ca_input VMSca-response.1
23 $       @[-.apps]CA.com -input sys$ca_input -newca
24 $       close sys$ca_input
25 $       if $severity .ne. 1 then exit 3
26 $
27 $
28 $       SSLEAY_CONFIG="-config ""Uss.cnf"""
29 $       @[-.apps]CA.com -newreq
30 $       if $severity .ne. 1 then exit 3
31 $
32 $
33 $       SSLEAY_CONFIG="-config [-.apps]openssl-vms.cnf"
34 $       open/read sys$ca_input VMSca-response.2
35 $       @[-.apps]CA.com -input sys$ca_input -sign
36 $       close sys$ca_input
37 $       if $severity .ne. 1 then exit 3
38 $
39 $
40 $       @[-.apps]CA.com -verify newcert.pem
41 $       if $severity .ne. 1 then exit 3
42 $
43 $       set noon
44 $       @[-.util]deltree [.demoCA]*.*
45 $       set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) demoCA.dir;*
46 $       delete demoCA.dir;*
47 $       if f$search("newcert.pem") .nes. "" then delete newcert.pem;*
48 $       if f$search("newcert.pem") .nes. "" then delete newreq.pem;*
49 $       set on
50 $!      #usage: CA -newcert|-newreq|-newca|-sign|-verify
51 $
52 $       exit