home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / comm / bbbbs-7.2.lha / BBBBS / BBBBS72.lha / rexx / bbsALPHA.rexx < prev    next >
OS/2 REXX Batch file  |  1993-11-12  |  1KB  |  60 lines
  1. /* $VER: bbsALPHA.rexx 6.6 (11.11.93)
  2. copyright 1991-93 Richard Lee Stockton
  3.         FREELY DISTRIBUTABLE
  4. */
  5.  
  6. arcfile=''
  7. arcfile='Text/FileList' /* delete this line for no archive of filelist */
  8.  
  9. IF arcfile='' THEN SIGNAL GETOUT
  10.  
  11. bbspath=GETCLIP('BBS_path')
  12. libpath=GETCLIP('BBS_libpath')
  13.  
  14. PARSE ARG extension arccom
  15.  
  16. IF extension='' THEN
  17.   DO
  18.     extension='.lzh'
  19.     arccom='lharc >ram:junk -m m'
  20.   END
  21. ELSE extension='.'extension
  22. arcfile=arcfile||extension
  23.  
  24. CALL OPENPORT('bbsALPHA')
  25. SAY 'Updating' arcfile'...'||'0D'x
  26. CALL DELETE(libpath||arcfile)
  27. libpath2=libpath
  28. IF RIGHT(libpath,1)='/' THEN libpath2=LEFT(libpath,LENGTH(libpath)-1)
  29. ADDRESS COMMAND 'C:COPY' bbspath'Lists/Files.ALPHA' libpath2
  30. CALL CLOSEPORT('bbsALPHA')
  31. ADDRESS COMMAND 'C:CD' libpath2'0A'x||arccom arcfile 'Files.ALPHA'
  32. CALL DELETE('ram:junk')
  33. x=OPEN(f,bbspath'FileNotes/'arcfile,'R')
  34. IF x=0 THEN CALL GETOUT
  35. lynes.=''
  36. DO i=1
  37.   line=READLN(f)
  38.   IF EOF(f) THEN LEAVE i
  39.   lynes.i=line
  40. END
  41. lynes.0=i-1
  42. CALL CLOSE(f)
  43. filesize=WORD(STATEF(libpath||arcfile),2)
  44. lynes.2=OVERLAY(filesize 'bytes',lynes.2,41)
  45. lynes.3=OVERLAY(DATE() TIME('C')' ',lynes.3,41)
  46. x=OPEN(f,bbspath'FileNotes/'arcfile,'W')
  47. IF x=0 THEN CALL GETOUT
  48. DO i=1 TO lynes.0
  49.   CALL WRITELN(f,lynes.i)
  50. END
  51. CALL CLOSE(f)
  52.  
  53. GETOUT:
  54. CALL CLOSEPORT('bbsALPHA')
  55. CALL SETCLIP('BBS_maint')
  56. EXIT;
  57. RETURN
  58.  
  59. /* end of bbsALPHA.rexx */
  60.