home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxtools.zip / clean / setup.cmd < prev   
OS/2 REXX Batch file  |  1998-09-11  |  1KB  |  55 lines
  1. /* Cleaner setup */
  2. call RxFuncAdd 'SysLoadFuncs', 'Rexxutil', 'SysLoadFuncs'
  3. call SysLoadFuncs
  4.  
  5. signal on halt name break
  6.  
  7. call SysCls
  8.  
  9. arg del_
  10. if del_ = '/D' then
  11. do
  12.  call SysIni 'User', 'Cleaner', 'DELETE:'
  13.  say 'Cleaner entries deleted'
  14.  exit
  15. end
  16.  
  17. if SysIni('User','Cleaner','Target') \= 'ERROR:' then 
  18. do
  19.  say 'Cleaner setup'
  20.  say
  21.  say 'Target -' SysIni('User','Cleaner','Target')
  22.  say 'Timeout is' SysIni('User','Cleaner','Timer')/1000 'seconds'
  23.  if SysIni('User','Cleaner','Autoclean') = 1 
  24.  then
  25.   say 'Autoclean is ON'
  26.  else say 'Autoclean is OFF'
  27. end
  28. else say 'Cleaner not installed'
  29.  
  30. say
  31. call CharOut ,'Do you wish to set parameters? [Y/N] '
  32. pull answer
  33. If answer = 'Y' then
  34. do
  35.  call CHarOut ,'Input target [c:\temp\*.*]: '
  36.  pull target
  37.  if target \= '' then
  38.   SysIni('User','Cleaner','Target',target)
  39.  call CharOut , 'Input timeout from 3 up to 12 seconds: '
  40.  pull timer
  41.  if timer < 3 | timer > 12 | timer = '' then timer = 9
  42.  SysIni('User','Cleaner','Timer',timer*1000)
  43.  call CharOut , 'Do you wish to use autoclean? [Y/N] '
  44.  pull autoclean
  45.  if autoclean = 'Y' then 
  46.   SysIni('User','Cleaner','Autoclean',1)
  47.  else
  48.   SysIni('User','Cleaner','Autoclean',0)
  49. end
  50. exit
  51.  
  52. break:
  53. '@cls'
  54. say 'Setup not completed, you have to restart it again!'
  55.