httpd-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Garey Smiley" <ga...@main.slink.com>
Subject REXX script for folder.
Date Sun, 25 Aug 1996 15:09:08 GMT
Please try out the following REXX script and let me know how it works.

/* REXX Script */

/* Register with REXX API extensions. */
Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs

/* Get creation disposition. */
Call SysCls
Say
Say 'Create Apache for OS/2 folder and icons.'
Say
Say 'NOTE: This program needs to be executed from the OS2 directory of
your'
Say '      working Apache setup. Refer to INSTALL.OS2 for more
details.'
Say
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' 
Say

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:

current_dir = directory()
previous_dir = left(current_dir, ( length(current_dir) - 4 ))

rc = CreateObject( 'WPFolder',,
    'Apache^for OS/2',,
    '<WP_DESKTOP>',,
    'NOPRINT=YES;'||,
        'DEFAULTVIEW=CONTENTS;'||,
        'ICONPOS=3,23;'||,
        'ICONVIEWPOS=2 60 53 23;'||,
        'SELFCLOSE=1;'||,
        'ICONFONT=8.Helv;'||,
        'DETAILSFONT=8.Helv;'||,
        'TREEFONT=10.System Proportional;'||,
        'ICONVIEW=NONGRID,NORMAL;'||,
        'DETAILSVIEW=MINI;'||,
        'TREEVIEW=LINES,NORMAL;'||,
        'ALWAYSSORT=YES;'||,
        'OBJECTID=<Apache_for_OS_2_folder>',,
    CreateCollision )

  rc = CreateObject( 'WPProgram',,
      'Reinitialize^Apache',,
      '<Apache_for_OS_2_folder>',,
      'NOPRINT=YES;'||,
          'DEFAULTVIEW=RUNNING;'||,
          'ICONPOS=33,9;'||,
          'EXENAME='||current_dir||'\REINIT.CMD;'||,
          'STARTUPDIR='||current_dir||';'||,
          'PROGTYPE=WINDOWABLEVIO;'||,
          'MINIMIZED=YES;'||,
          'OBJECTID=<Apache_for_OS_2_Reinit>',,
      CreateCollision )

  rc = CreateObject( 'WPShadow',,
      'DOCS',,
      '<Apache_for_OS_2_folder>',,
      'ICONPOS=19,9;'||,
          'SHADOWID='||previous_dir||'\DOCS',,
      CreateCollision )

  rc = CreateObject( 'WPProgram',,
      'Terminate^Apache',,
      '<Apache_for_OS_2_folder>',,
      'NOPRINT=YES;'||,
          'DEFAULTVIEW=RUNNING;'||,
          'ICONPOS=42,9;'||,
          'EXENAME='||current_dir||'\TERMINATE.CMD;'||,
          'STARTUPDIR='||current_dir||';'||,
          'PROGTYPE=WINDOWABLEVIO;'||,
          'MINIMIZED=YES;'||,
          'OBJECTID=<Apache_for_OS_2_Terminate>',,
      CreateCollision )

  rc = CreateObject( 'WPShadow',,
      'CONF',,
      '<Apache_for_OS_2_folder>',,
      'ICONPOS=12,9;'||,
          'SHADOWID='||previous_dir||'\CONF',,
      CreateCollision )

  rc = CreateObject( 'WPProgram',,
      'Apache^Web Server',,
      '<Apache_for_OS_2_folder>',,
      'NOPRINT=YES;'||,
          'MINWIN=HIDE;'||,
          'DEFAULTVIEW=RUNNING;'||,
          'ICONPOS=4,9;'||,
          'EXENAME='||previous_dir||'\HTTPD.EXE;'||,
          'STARTUPDIR='||previous_dir||';'||,
          'PROGTYPE=FULLSCREEN;'||,
          'MINIMIZED=YES;'||,
          'OBJECTID=<Apache_for_OS_2_Server>',,
      CreateCollision )

  rc = CreateObject( 'WPShadow',,
      'LOGS',,
      '<Apache_for_OS_2_folder>',,
      'ICONPOS=25,9;'||,
          'SHADOWID='||previous_dir||'\LOGS',,
      CreateCollision )

return


Garey Smiley
SoftLink Services
garey@slink.com
http://www.slink.com/
(330)848-1312 FAX/Data(330)699-4474

Mime
View raw message