home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / wwwos2.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1998-07-31  |  2KB  |  61 lines
  1. /* To create a WebWilly for OS/2 icon on the Desktop */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. signal on syntax name NoREXX
  5. call SysLoadFuncs
  6. signal off syntax
  7. signal on halt
  8. '@echo off'
  9.  
  10. parse source temp
  11. parse var temp . . temp
  12. temp=reverse(temp)
  13. parse var temp . "\" temp
  14. source=reverse(temp)
  15.  
  16. say ""
  17. say "May we create a WebWilly program object on your Desktop?"
  18. say "(Press Y or N.)"
  19. say ""
  20. do until answer="Y" | answer="N"
  21.    answer=translate(SysGetKey())
  22. end
  23. say ""
  24. if answer="Y" then do
  25.    class='WPProgram'
  26.    title='WebWilly Watch'
  27.    loc='<WP_DESKTOP>'
  28.    strings='ObjectID=<WebWilly>;'
  29.    strings=strings||'ExeName='source'\WEBWILLY.EXE;'
  30.    if length(source)>2 then strings=strings||'StartUpDir='source';'
  31.    else strings=strings||'StartUpDir='source'\;'
  32.    call SysCreateObject class,title,loc,strings,'U'
  33.    if length(source)=2 then source=source"\"
  34.    say ""
  35.    say "Installation complete.  Doubleclick on the new Desktop object or type"
  36.    say "WEBWILLY, while in the" source "directory, to start"
  37.    say "WebWilly Watch."
  38.    say ""
  39. end
  40. else do
  41.    if length(source)=2 then source=source"\"
  42.    say ""
  43.    say "Then just type WEBWILLY, while in the" source "directory,"
  44.    say "whenever you want to start WebWilly Watch."
  45.    say ""
  46. end
  47. exit
  48.  
  49. Halt:
  50. say ''
  51. say 'INSTALL.CMD interrupted by Ctrl-C.'
  52. say ''
  53. exit
  54.  
  55. NoREXX:
  56. say ''
  57. say 'Unable to load the REXXUtil functions. Either the REXXUTIL.DLL file is not'
  58. say 'on the LIBPATH or REXX support is not installed on this system.'
  59. say ''
  60. exit
  61.