View difference between Paste ID: gjPXh51q and iDtRrX0Y

 /* TOR runner */
 call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
 call 'SysLoadFuncs'
 
 PARSE UPPER ARG param
 curdir = directory()
 newdir = directory('C:\tcpip\services\TOR\bin')
 PIDFile = 'D:\var\pid\tor.pid'
 
 SELECT
- WHEN param = 'START' | param = 'STOP' | param = 'RESTART' THEN
+ WHEN param = 'STOP' THEN
       DO
          param = 'result = '||param||'()'
          interpret param
       END
  OTHERWISE
- result = 'Valid parameters is: START STOP RESTART'
+ result = 'Valid parameters are: START STOP RESTART'
 END
 say result
 call directory curdir
 exit
 
-START: PROCEDURE EXPOSE PIDFile
+
-IF STREAM(PIDFile, 'C', 'query exists') \= PIDFile THEN
+
    DO
-      '@detach tor.exe -f /tcpip/services/TOR/etc/tor/torrc > nul 2>&1'
+
       '@so kill 'linein(PIDFile)' > nul 2>&1'
-      res = 'TOR succesfull running as PID: '||linein(PIDFile)
+
       rc = SysFileDelete(PIDFile)
-ELSE
+      res ='TOR stopping result is: '||rc
-     DO
+
-        res = 'TOR already running! PID: '||linein(PIDFile)
+
-     END
+