OLD | NEW |
| (Empty) |
1 $! INSTALL.COM -- Installs the files in a given directory tree | |
2 $! | |
3 $! Author: Richard Levitte <richard@levitte.org> | |
4 $! Time of creation: 22-MAY-1998 10:13 | |
5 $! | |
6 $! P1 root of the directory tree | |
7 $! | |
8 $ | |
9 $ IF P1 .EQS. "" | |
10 $ THEN | |
11 $ WRITE SYS$OUTPUT "First argument missing." | |
12 $ WRITE SYS$OUTPUT - | |
13 "Should be the directory where you want things installed." | |
14 $ EXIT | |
15 $ ENDIF | |
16 $ | |
17 $ IF (F$GETSYI("CPU").LT.128) | |
18 $ THEN | |
19 $ ARCH := VAX | |
20 $ ELSE | |
21 $ ARCH = F$EDIT( F$GETSYI( "ARCH_NAME"), "UPCASE") | |
22 $ IF (ARCH .EQS. "") THEN ARCH = "UNK" | |
23 $ ENDIF | |
24 $ | |
25 $ ROOT = F$PARSE(P1,"[]A.;0",,,"SYNTAX_ONLY,NO_CONCEAL") - "A.;0" | |
26 $ ROOT_DEV = F$PARSE(ROOT,,,"DEVICE","SYNTAX_ONLY") | |
27 $ ROOT_DIR = F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") - | |
28 - "[000000." - "][" - "[" - "]" | |
29 $ ROOT = ROOT_DEV + "[" + ROOT_DIR | |
30 $ | |
31 $ DEFINE/NOLOG WRK_SSLROOT 'ROOT'.] /TRANS=CONC | |
32 $ DEFINE/NOLOG WRK_SSLEXE WRK_SSLROOT:['ARCH'_EXE] | |
33 $ | |
34 $ IF F$PARSE("WRK_SSLROOT:[000000]") .EQS. "" THEN - | |
35 CREATE/DIR/LOG WRK_SSLROOT:[000000] | |
36 $ IF F$PARSE("WRK_SSLEXE:") .EQS. "" THEN - | |
37 CREATE/DIR/LOG WRK_SSLEXE: | |
38 $ | |
39 $ EXE := openssl | |
40 $ | |
41 $ EXE_DIR := [-.'ARCH'.EXE.APPS] | |
42 $ | |
43 $ I = 0 | |
44 $ LOOP_EXE: | |
45 $ E = F$EDIT(F$ELEMENT(I, ",", EXE),"TRIM") | |
46 $ I = I + 1 | |
47 $ IF E .EQS. "," THEN GOTO LOOP_EXE_END | |
48 $ SET NOON | |
49 $ IF F$SEARCH(EXE_DIR+E+".EXE") .NES. "" | |
50 $ THEN | |
51 $ COPY 'EXE_DIR''E'.EXE WRK_SSLEXE:'E'.EXE/log | |
52 $ SET FILE/PROT=W:RE WRK_SSLEXE:'E'.EXE | |
53 $ ENDIF | |
54 $ SET ON | |
55 $ GOTO LOOP_EXE | |
56 $ LOOP_EXE_END: | |
57 $ | |
58 $ SET NOON | |
59 $ COPY CA.COM WRK_SSLEXE:CA.COM/LOG | |
60 $ SET FILE/PROT=W:RE WRK_SSLEXE:CA.COM | |
61 $ COPY OPENSSL-VMS.CNF WRK_SSLROOT:[000000]OPENSSL.CNF/LOG | |
62 $ SET FILE/PROT=W:R WRK_SSLROOT:[000000]OPENSSL.CNF | |
63 $ SET ON | |
64 $ | |
65 $ EXIT | |
OLD | NEW |