home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 1 / FFMCD01.bin / bbs / libdisks / d700t799 / disk729.lha / BBBBS / BBBBS54.LZH / rexx / bbsNewFile.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-06-30  |  704 b   |  32 lines
  1. /*
  2.             bbsNewFile.rexx
  3. called by BBBBS.baud for each file uploaded
  4. */
  5.  
  6. dev='NO_DIR:'   /* To activate, make this a valid directory */
  7.  
  8. PARSE ARG name filename .
  9.  
  10. CALL PRAGMA('W','N')          /* Turn requesters off */
  11. IF ~EXISTS(dev) | ~EXISTS(filename) THEN EXIT
  12.  
  13. ADDRESS COMMAND 'info >RAM:infout' dev
  14.  
  15. ok=OPEN(f,'ram:infout','R')
  16. IF ok=0 THEN EXIT 20
  17. line=READLN(f)
  18. line=READLN(f)
  19. line=READLN(f)
  20. line=READLN(f)
  21. CALL CLOSE(f)
  22. devblks=WORD(line,4)-1
  23. filblks=WORD(STATEF(filename),3)
  24.  
  25. IF filblks>devblks THEN EXIT   /* No room at the inn... */
  26.  
  27. string='copy' filename dev 'CLONE'
  28. ADDRESS COMMAND string
  29. ADDRESS COMMAND 'protect' filename 'arwed'     /* set Archive bits */
  30.  
  31. /* bbsNewFile.rexx */
  32.