home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: SysTools / SysTools.zip / stmon013.zip / Install.CMD < prev    next >
OS/2 REXX Batch file  |  1998-12-29  |  1KB  |  37 lines
  1. /* ReXX Utility To Install StHWMon */
  2. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  3. call SysLoadFuncs
  4.  
  5. /* Get current directory */
  6. CDir=Directory()
  7.  
  8. /* Get location of StHMon.INI */
  9. IniLoc=SysIni('USER','StM Applications','StHWMon.INI')
  10. If IniLoc="ERROR:" Then
  11. Do
  12.  IniLoc=CDir'\StHWMon.INI'
  13.  Call SysIni 'USER',"StM Applications","StHWMon.INI",IniLoc
  14. End
  15. /* Prompt user and ask for language */
  16. Say "This will install StHWMon on your system"
  17. Say "Please enter language code."
  18. Say "DE for german"
  19. Say "EN for english"
  20. Say "REMOVE for deinstallation"
  21. Say "All other codes will default to english"
  22. parse pull Lang
  23. if Length(Lang)>1 Then
  24. Do
  25.  if Translate(Lang)='REMOVE' Then
  26.  Do
  27.   Lang=''
  28.   I=SysIni('USER','StM Applications','StHWMon.INI','DELETE:')
  29.   I=SysIni('USER','StM Applications','StHWMonLanguage','DELETE:')
  30.   Say "The entry in OS2.INI was removed"
  31.   Exit
  32.  End
  33.  Call SysIni 'USER',"StM Applications","StHWMonLanguage",Lang
  34.  Call SysCls
  35.  Say "The programm was successfully installed."
  36. End
  37.