/* Recreate objects script. * * Generated via Object Desktop Package File 'Object Inspector'. */ /* Register with REXX API extensions. */ Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs' Call SysLoadFuncs CurrentDir = Directory() ProgramsDir = VALUE('PROGRAMS',,'OS2ENVIRONMENT') /* eJava = 'E:\Programs\Java\eJava' JavaHome = ProgramsDir || '\OPENJDK6' JavaProg = 'E:\Programs\Java' */ /***************************************************************/ /*** Check if MY_CFG_FILE file exists ***/ rc=stream(Directory() || '\MY_CFG_FILE',"c","query exist") /*** Parse path to the MY_CFG_FILE file if doesn't exist in current dir ***/ If rc ="" THEN CALL iPath If CurrentDir = path || '\Get eJava Apps' THEN CALL rxLoadSettings(path || '\MY_CFG_FILE') ELSE CALL rxLoadSettings(MY_CFG_FILE) /* wget jFtp 1.60 */ ADDRESS cmd 'wget -O ' || eJava || '\res\jftp.zip --ftp-user=os2user --ftp-password=os2 ftp://os2notes.duckdns.org/eJava/jftp.zip' ADDRESS cmd 'unzip ' || eJava || '\res\jftp.zip' || ' -d ' || JavaProg || '\jFtp' ; /* Get creation disposition. */ Say 'When object exists object creation should:' Call CharOut, ' (U=Update, R=Replace, F=Fail) : ' Parse Upper Pull Answer CreateCollision = 'Fail' If Left( Answer, 1 ) = R Then CreateCollision = 'Replace' If Left( Answer, 1 ) = U Then CreateCollision = 'Update' Call CreateObjects Exit CreateObject: procedure Parse Arg Class, Title, Location, Setup, Collision Say 'Creating ['Title']' rc = SysCreateObject( Class, Title, Location, Setup, Collision ) If rc <> 1 Then Say ' > failed to create ['Title' | 'Class'] at location ['Location']' return rc CreateObjects: rc = CreateObject( 'WPProgram',, 'jFtp 1.60',, '',, 'NOTDEFAULTICON=YES;'||, 'NOPRINT=YES;'||, 'DEFAULTVIEW=RUNNING;'||, ';'||, 'ICONPOS=30,12;'||, 'ICONFILE='||CurrentDir||'\icons\os2\jFtp.ICO;'||, 'EXENAME='||JavaHome||'\BIN\JAVAW.EXE;'||, 'STARTUPDIR='||JavaProg||'\JFTP;'||, 'PARAMETERS=-jar jftp.jar;'||, 'PROGTYPE=PM;'||, 'OBJECTID=',, CreateCollision ) return rxLoadSettings: f_name = STRIP( ARG(1) ) IF LENGTH( f_name ) = 0 THEN RETURN 1 IF STREAM( f_name, 'C', 'QUERY EXIST' ) < 10 THEN RETURN 2 DO WHILE LINES( f_name ) > 0 INTERPRET LINEIN( f_name ) END CALL STREAM f_name, 'C', 'CLOSE' RETURN 0 iPath: String = CurrentDir path = substr(string,1,lastpos('\',translate(string,'\','/'))-1) Return