home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / bre2adep.zip / bre2ad.cmd next >
OS/2 REXX Batch file  |  1995-04-12  |  1KB  |  37 lines
  1. /*Converts a fido style BRE file attach to an Adept crash file. */
  2. /* By Richard W. Hawley, Erasmus BBS 1-203-666-5113, 1:142/113 */
  3. /* Edited by Steve Mohacey, Mona Lisa Overdrive BBS 1-804-498-8527, 1:275/164 */
  4. do i = 1 to 5
  5.  
  6. infile = i'.msg'
  7.  
  8. a = charin(infile,73,0)
  9. filetosend = "^"charin(infile,,50) /*I changed this so it would pick up on the FULL length of the file */
  10.                             /* ^^ */ 
  11.                          
  12. b = charin(infile,203,0) /* I changed this to pick up on the "/" */
  13. node = charin(infile,,2)
  14.                    /* ^ this is for the number of places in the 'NODE' listing */
  15. if node = "/28"
  16.   then node = ".28"
  17.  
  18. /*  else */
  19. /* if node = "/212" */
  20. /*  then node = ".212" */
  21.  
  22. /* if node = "/477"    */
  23.  /* then node = ".477" */
  24.  
  25. if filetosend <> ''
  26.   then do
  27.          c = lineout('e:\adept\mailer\outbound_mail\C.1.275.'node'.0.FIDONET',filetosend)
  28.          say 'Created e:\adept\mailer\outbound_mail\C.1.275.'node'.0.FIDONET'
  29.          d = lineout(infile)  /* Closes the file */
  30.          say 'Unlinking Fido file attach 'i'.MSG'
  31.          del infile
  32.        end
  33.  
  34. end /* do loop */
  35.  
  36. exit
  37.