home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / System / EASys / EASys!_update_47x_to_481 / EASys! / Prefs / ValidateActualPath.rexx < prev   
OS/2 REXX Batch file  |  2000-06-03  |  2KB  |  92 lines
  1. /*
  2.   EASys!)  © EasySystem since 1995
  3.  
  4.   ValidateActualPath.rexx
  5.  
  6.   Validate the current EASys! ActualPath setting.
  7.  
  8.   Date:        05/2000
  9.   Author:      Thomas Neidhardt (TNE), Deutschland, Erlangen
  10.  
  11.   InterNet:    thomas.neidhardt@fen-net.de
  12. */
  13.  
  14. OPTIONS RESULTS
  15. OPTIONS FAILAT 30
  16.  
  17. ActualPath=MyGetENV('Flags/ActualPath')
  18.  
  19. Drive=LEFT(ActualPath,POS(':',ActualPath))
  20. ADDRESS COMMAND 'assign >NIL: "'ConvSpecial(Drive)'" EXISTS'
  21.  
  22. IF RC>0 | ActualPath='' THEN ActualPath="T:"
  23. ELSE IF ~EXISTS(ActualPath) THEN ActualPath="T:"
  24.  
  25. /* set the actualpath and validate ModAS Profile if exists */
  26. ADDRESS COMMAND
  27. 'SetEnv Flags/ActualPath "'ActualPath'"'
  28. 'assign >NIL: Profile: EXISTS'
  29. IF RC=0 THEN
  30. DO
  31.  ADDRESS COMMAND
  32.  'copy ENV:Flags/ActualPath Profile:ENV/Flags CLONE'
  33.  'copy ENV:Flags/ActualPathDest Profile:ENV/Flags CLONE'
  34. END
  35. ELSE
  36. DO
  37.  ADDRESS COMMAND
  38.  'copy ENV:Flags/ActualPath EASys!:Flags CLONE'
  39.  'copy ENV:Flags/ActualPathDest EASys!:Flags CLONE'
  40. END
  41.  
  42. EXIT 0
  43.  
  44. /* ---------------------- */
  45. MyGetENV:     PROCEDURE
  46. PARSE ARG name
  47.  
  48. TheFile="ENV:" || name
  49. IF (open(TEMPFILE, TheFile, 'read')) THEN
  50. DO
  51.  ENVvalue=READLN(TEMPFILE)
  52.  Result=close(TEMPFILE)
  53. END
  54. ELSE
  55.  ENVvalue=''
  56.  
  57. RETURN ENVvalue
  58. /* ------------------------- */
  59. ConvSpecial:
  60. PARSE ARG File
  61.  
  62. posi=POS('~',File)
  63. IF posi>0 THEN File=INSERT("'",File,posi-1)
  64.  
  65. posi=POS('(',File)
  66. IF posi>0 THEN File=INSERT("'",File,posi-1)
  67.  
  68. posi=POS(')',File)
  69. IF posi>0 THEN File=INSERT("'",File,posi-1)
  70.  
  71. posi=POS('[',File)
  72. IF posi>0 THEN File=INSERT("'",File,posi-1)
  73.  
  74. posi=POS(']',File)
  75. IF posi>0 THEN File=INSERT("'",File,posi-1)
  76.  
  77. posi=POS('{',File)
  78. IF posi>0 THEN File=INSERT("'",File,posi-1)
  79.  
  80. posi=POS('}',File)
  81. IF posi>0 THEN File=INSERT("'",File,posi-1)
  82.  
  83. posi=POS('#',File)
  84. IF posi>0 THEN File=INSERT("'",File,posi-1)
  85.  
  86. posi=POS('?',File)
  87. IF posi>0 THEN File=INSERT("'",File,posi-1)
  88.  
  89. RETURN File
  90.  
  91.  
  92.