home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 May / PCO_5_97.ISO / FilesBBS / OS2 / APACH113.ARJ / APACH113 / APACH113.ZIP / apache_1.1.3 / os2 / makefolder.cmd < prev    next >
Encoding:
Text File  |  1997-01-30  |  4.2 KB  |  146 lines
  1. /* REXX Script */
  2.  
  3. /* Register with REXX API extensions. */
  4. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. Call SysLoadFuncs
  6.  
  7. /* Get creation disposition. */
  8. Call SysCls
  9. Say
  10. Say 'Create Apache for OS/2 folder and icons.'
  11. Say
  12. Say 'NOTE: This program needs to be executed from the OS2 directory of your'
  13. Say '      working Apache setup. Refer to INSTALL.OS2 for more details.'
  14. Say
  15. Say 'When object exists object creation should:' 
  16. Call CharOut, '  (U=Update, R=Replace, F=Fail) : '
  17. Parse Upper Pull Answer
  18. CreateCollision = 'Fail'
  19. If Left( Answer, 1 ) = R Then CreateCollision = 'Replace' 
  20. If Left( Answer, 1 ) = U Then CreateCollision = 'Update' 
  21. Say
  22.  
  23. Call CreateObjects
  24. Exit
  25.  
  26. CreateObject: procedure
  27.     Parse Arg Class, Title, Location, Setup, Collision
  28.     Say 'Creating ['Title']'
  29.     rc = SysCreateObject( Class, Title, Location, Setup, Collision )
  30.     If rc <> 1 Then
  31.         Say ' > failed to create ['Title' | 'Class'] at location ['Location']'
  32.     return rc
  33.  
  34. CreateObjects:
  35.  
  36. current_dir = directory()
  37. previous_dir = left(current_dir, ( length(current_dir) - 4 ))
  38.  
  39. rc = CreateObject( 'WPFolder',,
  40.     'Apache for^OS/2 1.1.3',,
  41.     '<WP_DESKTOP>',,
  42.     'NOPRINT=YES;'||,
  43.         'DEFAULTVIEW=CONTENTS;'||,
  44.         'SELFCLOSE=1;'||,
  45.         'ICONVIEW=NONGRID,NORMAL;'||,
  46.         'DETAILSVIEW=MINI;'||,
  47.         'TREEVIEW=LINES,NORMAL;'||,
  48.         'ALWAYSSORT=YES;'||,
  49.         'OBJECTID=<Apache_for_OS_2_folder>',,
  50.     CreateCollision )
  51.  
  52.   rc = CreateObject( 'WPProgram',,
  53.       'Reinitialize^Apache',,
  54.       '<Apache_for_OS_2_folder>',,
  55.       'NOPRINT=YES;'||,
  56.           'DEFAULTVIEW=RUNNING;'||,
  57.           'EXENAME='||current_dir||'\REINIT.CMD;'||,
  58.           'STARTUPDIR='||current_dir||';'||,
  59.           'PROGTYPE=WINDOWABLEVIO;'||,
  60.           'MINIMIZED=YES;'||,
  61.           'OBJECTID=<Apache_for_OS_2_Reinit>',,
  62.       CreateCollision )
  63.  
  64.   rc = CreateObject( 'WPShadow',,
  65.       'HTDOCS',,
  66.       '<Apache_for_OS_2_folder>',,
  67.       'SHADOWID='||previous_dir||'\HTDOCS',,
  68.       CreateCollision )
  69.  
  70.   rc = CreateObject( 'WPProgram',,
  71.       'Terminate^Apache',,
  72.       '<Apache_for_OS_2_folder>',,
  73.       'NOPRINT=YES;'||,
  74.           'DEFAULTVIEW=RUNNING;'||,
  75.           'EXENAME='||current_dir||'\TERMINATE.CMD;'||,
  76.           'STARTUPDIR='||current_dir||';'||,
  77.           'PROGTYPE=WINDOWABLEVIO;'||,
  78.           'MINIMIZED=YES;'||,
  79.           'OBJECTID=<Apache_for_OS_2_Terminate>',,
  80.       CreateCollision )
  81.  
  82.   rc = CreateObject( 'WPShadow',,
  83.       'CONF',,
  84.       '<Apache_for_OS_2_folder>',,
  85.       'SHADOWID='||previous_dir||'\CONF',,
  86.       CreateCollision )
  87.  
  88.   rc = CreateObject( 'WPProgram',,
  89.       'Apache^Web Server',,
  90.       '<Apache_for_OS_2_folder>',,
  91.       'NOPRINT=YES;'||,
  92.           'MINWIN=HIDE;'||,
  93.           'DEFAULTVIEW=RUNNING;'||,
  94.           'EXENAME='||previous_dir||'\HTTPD.EXE;'||,
  95.           'STARTUPDIR='||previous_dir||';'||,
  96.           'PROGTYPE=FULLSCREEN;'||,
  97.           'MINIMIZED=YES;'||,
  98.           'PARAMETERS=-fconf/httpd.conf -d'||previous_dir||';'||,
  99.           'OBJECTID=<Apache_for_OS_2_Server>',,
  100.       CreateCollision )
  101.  
  102.   rc = CreateObject( 'WPShadow',,
  103.       'LOGS',,
  104.       '<Apache_for_OS_2_folder>',,
  105.       'SHADOWID='||previous_dir||'\LOGS',,
  106.       CreateCollision )
  107.  
  108.   rc = CreateObject( 'WPShadow',,
  109.       'README',,
  110.       '<Apache_for_OS_2_folder>',,
  111.       'SHADOWID='||previous_dir||'\README',,
  112.       CreateCollision )
  113.  
  114.   rc = CreateObject( 'WPShadow',,
  115.       'LICENSE',,
  116.       '<Apache_for_OS_2_folder>',,
  117.       'SHADOWID='||previous_dir||'\LICENSE',,
  118.       CreateCollision )
  119.  
  120.   rc = CreateObject( 'WPShadow',,
  121.       'CHANGES',,
  122.       '<Apache_for_OS_2_folder>',,
  123.       'SHADOWID='||previous_dir||'\CHANGES',,
  124.       CreateCollision )
  125.  
  126.   rc = CreateObject( 'WPShadow',,
  127.       'README.OS2',,
  128.       '<Apache_for_OS_2_folder>',,
  129.       'SHADOWID='||previous_dir||'\README.OS2',,
  130.       CreateCollision )
  131.  
  132.   rc = CreateObject( 'WPShadow',,
  133.       'INSTALL.OS2',,
  134.       '<Apache_for_OS_2_folder>',,
  135.       'SHADOWID='||previous_dir||'\INSTALL.OS2',,
  136.       CreateCollision )
  137.  
  138.   rc = CreateObject( 'WPShadow',,
  139.       'TESTING.OS2',,
  140.       '<Apache_for_OS_2_folder>',,
  141.       'SHADOWID='||previous_dir||'\TESTING.OS2',,
  142.       CreateCollision )
  143.  
  144. return
  145. 
  146.