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$ IF P1 .EQS. "" 9$ THEN 10$ WRITE SYS$OUTPUT "First argument missing." 11$ WRITE SYS$OUTPUT "Should be the directory where you want things installed." 12$ EXIT 13$ ENDIF 14$ 15$ ROOT = F$PARSE(P1,"[]A.;0",,,"SYNTAX_ONLY,NO_CONCEAL") - "A.;0" 16$ ROOT_DEV = F$PARSE(ROOT,,,"DEVICE","SYNTAX_ONLY") 17$ ROOT_DIR = F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") - 18 - "[000000." - "][" - "[" - "]" 19$ ROOT = ROOT_DEV + "[" + ROOT_DIR 20$ 21$ DEFINE/NOLOG WRK_SSLROOT 'ROOT'.] /TRANS=CONC 22$ DEFINE/NOLOG WRK_SSLVEXE WRK_SSLROOT:[VAX_EXE] 23$ DEFINE/NOLOG WRK_SSLAEXE WRK_SSLROOT:[ALPHA_EXE] 24$ DEFINE/NOLOG WRK_SSLLIB WRK_SSLROOT:[LIB] 25$ 26$ IF F$PARSE("WRK_SSLROOT:[000000]") .EQS. "" THEN - 27 CREATE/DIR/LOG WRK_SSLROOT:[000000] 28$ IF F$PARSE("WRK_SSLVEXE:") .EQS. "" THEN - 29 CREATE/DIR/LOG WRK_SSLVEXE: 30$ IF F$PARSE("WRK_SSLAEXE:") .EQS. "" THEN - 31 CREATE/DIR/LOG WRK_SSLAEXE: 32$ IF F$PARSE("WRK_SSLLIB:") .EQS. "" THEN - 33 CREATE/DIR/LOG WRK_SSLLIB: 34$ 35$ EXE := openssl 36$ 37$ VEXE_DIR := [-.VAX.EXE.APPS] 38$ AEXE_DIR := [-.AXP.EXE.APPS] 39$ 40$ I = 0 41$ LOOP_EXE: 42$ E = F$EDIT(F$ELEMENT(I, ",", EXE),"TRIM") 43$ I = I + 1 44$ IF E .EQS. "," THEN GOTO LOOP_EXE_END 45$ SET NOON 46$ IF F$SEARCH(VEXE_DIR+E+".EXE") .NES. "" 47$ THEN 48$ COPY 'VEXE_DIR''E'.EXE WRK_SSLVEXE:'E'.EXE/log 49$ SET FILE/PROT=W:RE WRK_SSLVEXE:'E'.EXE 50$ ENDIF 51$ IF F$SEARCH(AEXE_DIR+E+".EXE") .NES. "" 52$ THEN 53$ COPY 'AEXE_DIR''E'.EXE WRK_SSLAEXE:'E'.EXE/log 54$ SET FILE/PROT=W:RE WRK_SSLAEXE:'E'.EXE 55$ ENDIF 56$ SET ON 57$ GOTO LOOP_EXE 58$ LOOP_EXE_END: 59$ 60$ SET NOON 61$ COPY CA.COM WRK_SSLAEXE:CA.COM/LOG 62$ SET FILE/PROT=W:RE WRK_SSLAEXE:CA.COM 63$ COPY CA.COM WRK_SSLVEXE:CA.COM/LOG 64$ SET FILE/PROT=W:RE WRK_SSLVEXE:CA.COM 65$ COPY OPENSSL-VMS.CNF WRK_SSLROOT:[000000]OPENSSL.CNF/LOG 66$ SET FILE/PROT=W:R WRK_SSLROOT:[000000]OPENSSL.CNF 67$ SET ON 68$ 69$ EXIT 70