home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / yatla1.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1997-03-03  |  1KB  |  50 lines
  1. /* rexx install program for YATLA/2     */
  2.  
  3. call rxfuncadd 'sysloadfuncs', 'rexxutil', 'sysloadfuncs'
  4. call sysloadfuncs
  5.  
  6. ack=directory()
  7. parse var ack curdrv':'curpath
  8. curdrv=curdrv':'
  9.  
  10. rc=syscls()
  11. say 'Welcome to the install program for YATLA/2.'
  12. say 'This program will ask a few questions about'
  13. say 'your configuration.'
  14. say ''
  15. say 'Press any key to contiue'
  16. rc=sysgetkey()
  17. rc=syscls()
  18.  
  19. say 'Where do you want to install YATLA/2?'
  20. say 'ex: d:\programs\YATLA'
  21. say '(note the absence of an ending slash).'
  22. pull tmp
  23. parse var tmp drv':'path
  24. drv=drv':'
  25. rc=syscls()
  26.  
  27. say 'Where is you pmmail installed?'
  28. say 'ex: d:\southsde\pmmail'
  29. say '(note the absence of an ending slash).'
  30. pull pmtmp
  31. parse var pmtmp pmdrv':'pmpath
  32. pmdrv=pmdrv':'
  33. rc=syscls()
  34.  
  35. '@echo off'
  36. 'md 'drv''path
  37. 'copy file_id.diz' drv''path
  38. 'copy install.cmd' drv''path
  39. 'copy *.tag' drv''path
  40. 'copy yatla.cmd' drv''path
  41. 'copy yatla.doc' drv''path 
  42. pmdrv
  43. 'cd 'pmpath
  44. rc=lineout(yatla.ini,drv,1)
  45. rc=lineout(yatla.ini,path,2)
  46. rc=lineout(yatla.ini,"PmMail v 1.5+",3)
  47. curdrv
  48. 'cd 'curpath
  49. '@echo on'
  50.