home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / tnl140.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1998-11-01  |  2KB  |  33 lines
  1. /*
  2.  
  3.   REXX Script to create a desktop folder for Tunnel/2
  4.  
  5. */
  6.  
  7. if RxFuncQuery('SysLoadFuncs') then do
  8.    call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  9.    call SysLoadFuncs
  10. end
  11.  
  12. say "Installing..."
  13.  
  14. dir = directory() || '\'
  15.  
  16. say "Creating folder"
  17. call SysCreateObject "WPFolder", "Tunnel/2", "<WP_DESKTOP>", "OBJECTID=<TUNNELFOLDER>;ICONVIEW=FLOWED,NORMAL;ALWAYSSORT=NO;ICONFONT=10.Helv;BACKGROUND=" || dir || "back.bmp,T;ICONFILE=" || dir || "FOLDER.ICO", "replace"
  18. call SysCreateObject "WPFolder", "Information", "<TUNNELFOLDER>", "OBJECTID=<TUNNELINFOFOLDER>;ICONVIEW=FLOWED,NORMAL;ALWAYSSORT=NO;ICONFONT=8.Helv;BACKGROUND=" || dir || "back.bmp,T", "replace"
  19. say "Creating program objects"
  20.  
  21.  
  22.  
  23. call SysCreateObject "WPProgram", "File_ID.DIZ", "<TUNNELINFOFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir || "FILE_ID.DIZ", "replace"
  24. call SysCreateObject "WPProgram", "FAQ", "<TUNNELINFOFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir || "FAQ.TXT", "replace"
  25. call SysCreateObject "WPProgram", "Readme", "<TUNNELINFOFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir || "README.DOC", "replace"
  26. call SysCreateObject "WPProgram", "Readme First", "<TUNNELINFOFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir || "README.1ST", "replace"
  27. call SysCreateObject "WPProgram", "Ordering", "<TUNNELINFOFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir || "REGISTER.TXT", "replace"
  28. call SysCreateObject "WPProgram", "Tunnel/2" || d2c(10) || "Homepage", "<TUNNELFOLDER>", "EXENAME=NETSCAPE.EXE;PARAMETERS=" || "http://www.fx.dk/tunnel", "replace"
  29. call SysCreateObject "WPProgram", "The Illustrated" || d2c(10) || "Tunnel/2 Guide", "<TUNNELINFOFOLDER>", "EXENAME=NETSCAPE.EXE;PARAMETERS=" || "file:///" || dir || "docs\welcome.htm", "replace"
  30. call SysCreateObject "WPProgram", "Tunnel Master", "<TUNNELFOLDER>", "EXENAME=" || dir || 'MASTER/' || TM.EXE";STARTUPDIR=" || dir || "MASTER", "replace"
  31. call SysCreateObject "WPProgram", "Tunnel Slave", "<TUNNELFOLDER>", "EXENAME=" || dir || 'SLAVE/' || TS.EXE";STARTUPDIR=" || dir || "SLAVE", "replace"
  32. say "Installation completed - Tunnel/2"
  33.