home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / Dopus4 / DDOPUS12.LHA / DOS-DOpus.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-10-28  |  1.2 KB  |  65 lines
  1. /* DOS-DOpus 1.0 - MoOnBoOt / Outlaws */
  2.  
  3. /* This script is a little DOS-DOpus interface thingy, which should handle
  4.    a little bit of usefull stuff. See DDOpus.doc how it works. */
  5.  
  6. /* $VER: DOS-DOpus 1.0 (23.10.94) MoOnBoOt / Outlaws */
  7.  
  8. Parse Arg Pat Fnc
  9.  
  10. GetDir:
  11. Address Command 'Cd >Ram:CShellDir'
  12. Call Open('SDir','Ram:CShellDir','R')
  13. SDir=ReadLn('SDir')            
  14.  
  15. CheckOpus:
  16. If pos('DOPUS.1',Show('Ports')) = 0 then do
  17.     Call Open("Config","S:DDOpus.cfg","R")
  18.         StartCmd=ReadLn("Config")
  19.         DelayCmd=ReadLn("Config")
  20.         Call Close("Config")
  21.         If StartCmd="" Then Do
  22.             Say ""
  23.             Say "DOS-DOpus Message: Error in 'S:DDOpus.cfg' line 1"
  24.             exit
  25.         end
  26.         If DelayCmd="" Then Do
  27.             Say ""
  28.             Say "DOS-DOpus Message: Error in 'S:DDOpus.cfg' line 2"
  29.             exit
  30.         end
  31.         Say "DDOpus 1.0 - MoOnBoOt / Outlaws"
  32.         Started=1
  33.         Address Command StartCmd
  34.         Address Command DelayCmd
  35.         If pos('DOPUS.1',Show('Ports')) = 0 then do
  36.             Say "Could not start DirectoryOpus, or delay to short!"
  37.         exit
  38.         end
  39. end
  40.  
  41. Address 'DOPUS.1'
  42.  
  43. DOpusToFront
  44.  
  45. ScanDir SDir
  46.  
  47. Pat:
  48. If Pat~="" then call DoPat
  49.     Call Fnc
  50.  
  51. DoPat:
  52. Address "DOPUS.1" Select Pat
  53.  
  54. Fnc:
  55. If Fnc~="" then call DoFnc
  56.     Call ExitPrg
  57.  
  58. DoFnc:
  59. Fnc
  60.  
  61. ExitPrg:
  62. If Started=1 then TopText "... DOS-DOpus 1.0 - MoOnBoOt / Outlaws"
  63.  
  64. Exit
  65.