home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / comm / bbbbs-7.2.lha / BBBBS / BBBBS72.lha / rexx / TestArc.rexx < prev    next >
OS/2 REXX Batch file  |  1994-02-13  |  1KB  |  47 lines
  1. /* $VER: TestArc.rexx 6.7 (13.2.94)
  2. copyright 1990-94 Richard Lee Stockton
  3.        FREELY DISTRIBUTABLE
  4.  
  5.      Required in C: directory:
  6.     arc dms lha unarj unzip zoo
  7. */
  8.  
  9. OPTIONS FAILAT 999
  10. CR='0D'x
  11.  
  12. PARSE ARG argname .
  13. endtest=UPPER(RIGHT(argname,4))
  14. arcomm=''
  15. IF endtest='.ARC' THEN arcomm='c:arc >TestArc.txt t'
  16. ELSE IF endtest='.ARJ' THEN arcomm='c:unarj >TestArc.txt t'
  17. ELSE IF endtest='.DMS' THEN arcomm='c:dms >TestArc.txt VIEW'
  18. ELSE IF endtest='.ZOO' THEN arcomm='c:zoo >TestArc.txt -t'
  19. ELSE IF endtest='.ZIP' THEN arcomm='c:unzip >TestArc.txt -t'
  20. ELSE IF endtest='.LHA' | endtest='.LZH' THEN
  21.   arcomm='c:lha >TestArc.txt -N t'
  22.  
  23. IF arcomm='' THEN EXIT 0
  24. IF ~EXISTS(WORD(arcomm,1)) THEN
  25.   DO
  26.     SAY 'Can''t check archive integrity,' WORD(arcomm,1) 'does not exist!'CR
  27.     EXIT 0
  28.   END
  29.  
  30. SAY 'Testing archive integrity...'CR
  31. ADDRESS COMMAND'CD RAM:' || '0A'x || arcomm argname
  32. err=RC
  33. IF err>0 THEN
  34.   DO
  35.     CALL DELAY(100)
  36.     x=OPEN(f,'RAM:TestArc.txt','R')
  37.     IF x~=0 THEN
  38.       DO i=1 WHILE ~EOF(f)
  39.         SAY READLN(f)||CR
  40.       END
  41.     CALL CLOSE(f)
  42.   END
  43. ELSE SAY ' - Archive tested OK -'CR
  44. EXIT err
  45.  
  46. /* TestArc.rexx */
  47.