diff options
Diffstat (limited to '')
-rw-r--r-- | src/lib/libssl/test/testca.com | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/src/lib/libssl/test/testca.com b/src/lib/libssl/test/testca.com deleted file mode 100644 index 78cda9ec5a..0000000000 --- a/src/lib/libssl/test/testca.com +++ /dev/null | |||
@@ -1,52 +0,0 @@ | |||
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 | ||