home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / MKESLAN.ZIP / MKESLAN.CMD
OS/2 REXX Batch file  |  1992-08-14  |  11KB  |  156 lines
  1. /****************************************************************/
  2. /* MKESLAN.CMD                  Version 1.1; August 11, 1992    */
  3. /*                                                              */
  4. /* Function:                                                    */
  5. /*      Build the WPS entries for the following products:       */
  6. /*              Extended Services:                              */
  7. /*                      Communications Manager                  */
  8. /*                      Database Manager                        */
  9. /*              LAN Requester                                   */
  10. /* Parameters:                                                  */
  11. /*      None                                                    */
  12. /*                                                              */
  13. /* Programmed by:                                               */
  14. /*      Georg Haschek (61804212 at VIEVMA)                      */
  15. /*                                                              */
  16. /* Change history:                                              */
  17. /*      1.0  92/07/31 ... First release to OS2TOOLS             */
  18. /*      1.1  92/08/11 ... Fix lowercase problem in PATH         */
  19. /*                        processing                            */
  20. /*                                                              */
  21. /****************************************************************/
  22. Trace 'O'
  23. Address CMD
  24. '@ECHO OFF'
  25. Signal On Halt
  26. Signal On Syntax
  27.  
  28. /**************/
  29. /* Initialize */
  30. /**************/
  31. Call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  32. Call sysloadfuncs
  33.  
  34. landrive = ''
  35. cmdrive = ''
  36. dbdrive = ''
  37. upmdrive = ''
  38. bootdrive = Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\OS2\SYSTEM',Value('PATH',,'OS2ENVIRONMENT'))-2,2)
  39. If Pos('\IBMLAN',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then landrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\IBMLAN',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
  40. If Pos('\CMLIB',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then cmdrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\CMLIB',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
  41. If Pos('\SQLLIB',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then dbdrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\SQLLIB',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
  42. If Pos('\MUGLIB',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then upmdrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\MUGLIB',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
  43. If landrive = '' & cmdrive = '' & dbdrive = '' Then Do
  44.   Say "No Extended Services or LAN Requester found, terminating."
  45.   Call Endit
  46. End
  47.  
  48. 'CLS'
  49. Say "Your system is installed on the" bootdrive "drive."
  50. Say " "
  51. Say "The following components have been found:"
  52. Say " "
  53. If landrive <> '' Then Say "     LAN Requester on drive" landrive
  54. If cmdrive <> '' Then Say "     Communications Manager on drive" cmdrive
  55. If dbdrive <> '' Then Say "     Database Manager on drive" dbdrive
  56. If upmdrive <> '' Then Say "     User Profile Management on drive" upmdrive
  57. Say " "
  58. Say "This program will now create a folder for each identified product on your"
  59. Say "desktop, which will contain the standard WPS entries."
  60. Say " "
  61. Say "Do you want to continue (Y/N)?"
  62. Parse Upper Pull yesno .
  63. If Substr(yesno,1,1) <> 'Y' Then Call Endit
  64.  
  65. If landrive <> '' Then Do
  66.   Call SysCreateObject 'WPFolder','LAN Services','<WP_DESKTOP>','OBJECTID=<LAN_FOLDER>;','R'
  67.   Call SysCreateObject 'WPProgram','OS/2 LAN Services Installation/Configuration','<LAN_FOLDER>','EXENAME='||landrive||'\IBMLAN\INSTALL\LANINST.EXE;PROGTYPE=WINDOWABLEVIO;STARTUPDIR='||landrive||'\IBMLAN\INSTALL;','R'
  68.   Call SysCreateObject 'WPProgram','LAN Messaging','<LAN_FOLDER>','EXENAME='||landrive||'\IBMLAN\NETPROG\NETSEND.CMD;PROGTYPE=FULLSCREEN;STARTUPDIR='||landrive||'\IBMLAN\NETPROG;','R'
  69.   Call SysCreateObject 'WPProgram','LAN Requester','<LAN_FOLDER>','EXENAME='||landrive||'\IBMLAN\NETPROG\NET.EXE;PROGTYPE=FULLSCREEN;STARTUPDIR='||landrive||'\IBMLAN\NETPROG;','R'
  70.   Call SysCreateObject 'WPProgram','OS/2 LAN Command Reference','<LAN_FOLDER>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS='||landrive||'\IBMLAN\BOOK\A3ALANCR.INF;STARTUPDIR='||bootdrive||'\OS2;','R'
  71.   Call SysCreateObject 'WPProgram','OS/2 LAN Online Reference','<LAN_FOLDER>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS='||landrive||'\IBMLAN\BOOK\A3ALANOR.INF;STARTUPDIR='||bootdrive||'\OS2;','R'
  72. End
  73.  
  74. If cmdrive <> '' | dbdrive <> '' Then Do
  75.   Call SysCreateObject 'WPFolder','Extended Services','<WP_DESKTOP>','OBJECTID=<ES_FOLDER>;','R'
  76.   Call SysCreateObject 'WPProgram','View Install History File','<ES_FOLDER>','EXENAME='||bootdrive||'\OS2\INSTALL\VIEWLOG.CMD;PROGTYPE=FULLSCREEN;STARTUPDIR='||bootdrive||'\OS2\INSTALL;','R'
  77.   Call SysCreateObject 'WPProgram','Add or Remove Features','<ES_FOLDER>','EXENAME='||bootdrive||'\OS2\INSTALL\REINST.CMD;PROGTYPE=FULLSCREEN;STARTUPDIR='||bootdrive||'\OS2\INSTALL;','R'
  78.   Call SysCreateObject 'WPProgram','Basic Configuration and Installation','<ES_FOLDER>','EXENAME='||bootdrive||'\OS2\INSTALL\ESCFG.CMD;PROGTYPE=FULLSCREEN;STARTUPDIR='||bootdrive||'\OS2\INSTALL;','R'
  79.   Call SysCreateObject 'WPProgram','Extended Services Command Reference','<ES_FOLDER>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=ESCMDREF.INF;STARTUPDIR='||bootdrive||'\OS2\BOOK;','R'
  80.   Call SysCreateObject 'WPProgram','View Custom Build History File','<ES_FOLDER>','EXENAME='||bootdrive||'\OS2\INSTALL\VIEWBLOG.CMD;PROGTYPE=FULLSCREEN;STARTUPDIR='||bootdrive||'\OS2\INSTALL;','R'
  81.   Call SysCreateObject 'WPProgram','Create Custom Install Diskette','<ES_FOLDER>','EXENAME='||bootdrive||'\OS2\INSTALL\CUSTBLD.CMD;PROGTYPE=FULLSCREEN;STARTUPDIR='||bootdrive||'\OS2\INSTALL;','R'
  82. End
  83.  
  84. Call SysCreateObject 'WPFolder','User Profile Management','<WP_DESKTOP>','OBJECTID=<UPM_FOLDER>;','R'
  85. Call SysCreateObject 'WPProgram','Logoff','<UPM_FOLDER>','EXENAME='||upmdrive||'\MUGLIB\LOGOFF.EXE;PARAMETER=/L;STARTUPDIR='||upmdrive||'\OS2\INSTALL;','R'
  86. Call SysCreateObject 'WPProgram','User Profile Management','<UPM_FOLDER>','EXENAME='||upmdrive||'\MUGLIB\UPMACCTS.EXE;STARTUPDIR='||upmdrive||'\OS2\INSTALL;','R'
  87. Call SysCreateObject 'WPProgram','Logon','<UPM_FOLDER>','EXENAME='||upmdrive||'\MUGLIB\LOGON.EXE;STARTUPDIR='||upmdrive||'\OS2\INSTALL;','R'
  88.  
  89. If dbdrive <> '' Then Do
  90.   Call SysCreateObject 'WPFolder','Database Manager','<WP_DESKTOP>','OBJECTID=<DBM_FOLDER>;','R'
  91.   Call SysCreateObject 'WPProgram','Directory Tool','<DBM_FOLDER>','EXENAME='||dbdrive||'\SQLLIB\DIRECT.EXE;PROGTYPE=PM;STARTUPDIR='||dbdrive||'\SQLLIB;','R'
  92.   Call SysCreateObject 'WPProgram','Database Manager Messages','<DBM_FOLDER>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS='||dbdrive||'\SQLLIB\BOOK\DBMSG.INF;STARTUPDIR='||dbdrive||'\SQLLIB;','R'
  93.   Call SysCreateObject 'WPProgram','DBM Command Line Interface','<DBM_FOLDER>','EXENAME=CMD.EXE;PROGTYPE=WINDOWABLEVIO;PARAMETERS=/K DBM.CMD -S & STARTDBM.EXE;STARTUPDIR='||ldbdrive||'\SQLLIB;','R'
  94.   Call SysCreateObject 'WPProgram','Query Manager','<DBM_FOLDER>','EXENAME='||dbdrive||'\SQLLIB\QUERYMGR.EXE;PROGTYPE=PM;STARTUPDIR='||dbdrive||'\SQLLIB;','R'
  95.   Call SysCreateObject 'WPProgram','Configuration Tool','<DBM_FOLDER>','EXENAME='||dbdrive||'\SQLLIB\CONFIG.EXE;PROGTYPE=PM;STARTUPDIR='||dbdrive||'\SQLLIB;','R'
  96.   Call SysCreateObject 'WPProgram','Recovery Tool','<DBM_FOLDER>','EXENAME='||dbdrive||'\SQLLIB\RECOVERY.EXE;PROGTYPE=PM;STARTUPDIR='||dbdrive||'\SQLLIB;','R'
  97. End
  98.  
  99. If cmdrive <> '' Then Do
  100.   Call SysCreateObject 'WPFolder','Communications Manager','<WP_DESKTOP>','OBJECTID=<CM_FOLDER>;','R'
  101.   Call SysCreateObject 'WPProgram','Display SNA Configuration Log','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\APPN\APPNLOG2.EXE;PROGTYPE=PM;PARAMETERS=[Enter configuration log (.LOG) file name];STARTUPDIR='||cmdrive||'\CMLIB;','R'
  102.   Call SysCreateObject 'WPProgram','Display Active SNA Configuration','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\APPN\PMDSPLAY.EXE;PROGTYPE=PM;STARTUPDIR='||cmdrive||'\CMLIB\APPN;','R'
  103.   Call SysCreateObject 'WPProgram','Manage SNA Logical Links','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\APPN\APPNLINK.EXE;PROGTYPE=PM;STARTUPDIR='||cmdrive||'\CMLIB\APPN;','R'
  104.   Call SysCreateObject 'WPProgram','Verify SNA Network Definitions','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\APPN\VERIFYNS.CMD;PROGTYPE=WINDOWABLEVIO;PARAMETERS=[Enter node definitions (.NDF) file name];STARTUPDIR='||cmdrive||'\CMLIB\APPN;','R'
  105.   Call SysCreateObject 'WPProgram','SNA Network Definitions Configuration','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\APPN\APPNC2.EXE;PROGTYPE=PM;PARAMETERS=[Enter node definitions (.NDF) file name];STARTUPDIR='||cmdrive||'\CMLIB;','R'
  106.   Call SysCreateObject 'WPProgram','Communications Manager','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\STARTCM.CMD;PROGTYPE=FULLSCREEN;STARTUPDIR='||cmdrive||'\CMLIB;','R'
  107.   Call SysCreateObject 'WPProgram','Configuration File Manager','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\COPYCFG.EXE;PROGTYPE=PM;STARTUPDIR='||cmdrive||'\CMLIB;','R'
  108.   Call SysCreateObject 'WPProgram','Start/Stop CM Trace','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\APPN\CMTRACE.EXE;PROGTYPE=WINDOWABLEVIO;PARAMETERS=[Enter trace options];STARTUPDIR='||cmdrive||'\CMLIB\APPN;','R'
  109.   Call SysCreateObject 'WPProgram','Format SNA Trace Information','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\APPN\FMTTRACE.EXE;PROGTYPE=WINDOWABLEVIO;PARAMETERS=[Enter optional flags and trace (.TRC) file name];STARTUPDIR='||cmdrive||'\CMLIB\APPN;','R'
  110. End
  111.  
  112. /****************/
  113. /* Exit program */
  114. /****************/
  115. Endit:
  116. Exit 0
  117.  
  118. /********************************/
  119. /* Notify user in case of error */
  120. /********************************/
  121. Telluser: Procedure
  122. Parse source . . tell_name .
  123. tell_name = Filespec('name',tell_name)
  124. Parse Upper Var tell_name tell_name '.' .
  125. ulogfile = tell_name
  126. If Arg(2,'e') = 0 Then Do
  127.   Say tell_name||':' Date('U') Time() Arg(1)
  128. End
  129. Else Do
  130.   If Arg(2) = 0 Then Do
  131.     Say tell_name||':' Date('U') Time() Arg(1)
  132.   End
  133.   Else Do
  134.     Say Copies(' ',15+Length(tell_name)) Arg(1)
  135.   End
  136. End
  137. Return 0
  138.  
  139. /*************************/
  140. /* Handle SIGNAL ON HALT */
  141. /*************************/
  142. Halt:
  143. Call Telluser 'Halt signalled in line' SIGL'.'
  144. Call Endit
  145.  
  146. /***************************/
  147. /* Handle SIGNAL ON SYNTAX */
  148. /***************************/
  149. Syntax:
  150. myrc = rc
  151. errormsg ='REXX error' myrc 'in line' SIGL':' Errortext(myrc)
  152. errormsg2 = Substr('     ',1,6-Length(SIGL))(SIGL)' *-*   'Sourceline(sigl)
  153. Call Telluser errormsg
  154. Call Telluser errormsg2,1
  155. Call Endit
  156.