home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / cf2fff10.zip / CF2FFF.Cmd next >
OS/2 REXX Batch file  |  1996-01-11  |  5KB  |  126 lines
  1. /* ************************************* */
  2. /* ┌───────────────────────────────────┐ */
  3. /* │ ╓──┐╥   ─╥─ ╥──┐╓──┐╓──┐╥──┐╓─╥─┐ │ */
  4. /* │ ║   ║    ║  ╟──┘╙──┐║  │╟─    ║   │ */
  5. /* │ ╙──┘╨──┘─╨─ ╨   ╙──┘╙──┘╨     ╨   │ */
  6. /* │ ────═════  CF2FFF v1.0  ═════──── │ */
  7. /* │                                   │ */
  8. /* │CF2FFF is a AdeptXBBS utility to   │ */
  9. /* │converts fast and easy:            │ */
  10. /* │    Filebone.na -> File_Areas      │ */
  11. /* │    Filebone.na -> File.Control    │ */
  12. /* │    Filebone.na -> Fgroup?.asc     │ */
  13. /* │                                   │ */
  14. /* │Optionaly creates TIC directories  │ */
  15. /* │on your HardDisk!                  │ */
  16. /* │                                   │ */
  17. /* └─────════ By Koen Koster ════──────┘ */
  18. /* Any comments, questions, thanks msgs? */
  19. /* Send them to:     kkoster@cistron.nl  */
  20. /*                   2:281/602.0@FidoNet */
  21. /*                   55:66/0.0@AdeptNet  */
  22. /* ************************************* */
  23.  
  24. /* ********************************************************************** */
  25. /* ********* Begin of the Sysop definable Configuration section ********* */
  26. /* ********************************************************************** */
  27.  
  28. STARTNR = '100'                   /*  nr of area to start with            */
  29.  
  30. AFANOUT   = 'FgroupZ.Asc'         /* Name of AFAN Fgroup?.asc file        */
  31. AREAFILE  = 'filebone.na'         /* Name of Fido filebone.na file        */
  32. FOUTFILE  = 'file_areas'          /* Name of the File_Areas output file   */
  33.  
  34. /* ************************* FILE AREA SETTINGS ************************* */
  35.  
  36. FULPATH  = 'e:\upload'            /*  Your upload path                    */
  37. FRSEC1   = '10'                   /*  Read  Security 1                    */
  38. FRSEC2   = '10'                   /*  Read  Security 2                    */
  39. FWSEC1   = '10'                   /*  Write Security 1                    */
  40. FWSEC2   = '10'                   /*  Write Security 2                    */
  41. FSSEC1   = '100'                  /*  Sysop Security 1                    */
  42. FSSEC2   = '100'                  /*  Sysop Security 2                    */
  43. FFLAGS   = '3072'                 /*  File Area Flags                     */
  44.  
  45. /* *************************** TIC SECTION ****************************** */
  46.  
  47. AOUTFILE  = 'file.control'   /* Name of the File.Control output file      */
  48. MAKEDIR  = '0'               /* 1 = make dirs  and 0 = is don't make dirs */
  49. TICDIR   = 'd:\filebone\'
  50. TFLAGS   = 'DLDIR NOTICCRC'                          /* Tic Area Flags    */
  51. NODENR   = '2:281/631.0@FidoNet'                     /* Export Nodenummer */
  52. PASSWORD = 'SECRET'                                  /* Tic Password      */
  53. ACCESS   = 'R'                                       /* Tic Acceslevel    */
  54.  
  55. /* ********************************************************************** */
  56. /* ********* *END* of the Sysop definable Configuration section ********* */
  57. /* ********************************************************************** */
  58.  
  59.  call RxFuncAdd 'SysFileTree','RexxUtil','SysFileTree'
  60.  call RxFuncAdd 'SysMkDir','RexxUtil','SysMkDir'
  61.  Call SysCls
  62.  
  63. rc = stream( areafile, 'c', 'open read' )
  64. rc = stream( foutfile, 'c', 'open write' )
  65. rc = stream( aoutfile, 'c', 'open write' )
  66.  
  67. oldstartnr = startnr
  68. starttime = time('E')
  69.  
  70. checklines:
  71.    check = lines(areafile)
  72.     do while check > 0
  73.     line = LineIn(areafile)
  74.    if substr(line,1,4) = 'Area' then do
  75.      aname = substr(line,6,8)
  76.      adesc = substr(line,29,50)
  77.      Call LineOut aoutfile,';'
  78.      Call LineOut aoutfile,'FILEAREA 'startnr' 'aname
  79.      Call LineOut aoutfile,'FLAGS 'tflags
  80.      Call LineOut aoutfile,nodenr' 'password' 'access
  81.      Call LineOut foutfile,'AREABEGIN'
  82.      Call LineOut foutfile,'  NAME     'aname
  83.      Call LineOut foutfile,'  NUMBER   'startnr
  84.      Call LineOut foutfile,'  DESC     'adesc
  85.      Call LineOut foutfile,'  DLPATH   'ticdir''aname
  86.      Call LineOut foutfile,'  ULPATH   'fulpath
  87.      Call LineOut foutfile,'  RSEC1    'frsec1
  88.      Call LineOut foutfile,'  RSEC2    'frsec2
  89.      Call LineOut foutfile,'  WSEC1    'fwsec1
  90.      Call LineOut foutfile,'  WSEC2    'fwsec2
  91.      Call LineOut foutfile,'  SSEC1    'fssec1
  92.      Call LineOut foutfile,'  SSEC2    'fssec2
  93.      Call LineOut foutfile,'  FLAGS    'fflags
  94.      Call LineOut foutfile,'AREAEND'
  95.      Call LineOut afanout, Left(startnr,6)'- 'adesc
  96.      Say 'Writing Out File Area -> 'startnr
  97.      tempdir = ticdir||aname
  98.      call SysFileTree tempdir,'dir','DO'
  99.    if (makedir = 1 & dir.0 = 0) then
  100.       call SysMkDir tempdir
  101.      startnr = startnr + 1
  102.     end
  103.   if substr(line,1,4) < 'Area' then do
  104.     nop
  105.    end
  106.      check = lines(areafile)
  107.  end
  108.  
  109. Back:
  110. totalnr = (startnr - oldstartnr)
  111. curtime = time('R')
  112. newtime = format(curtime,,2)
  113. Say ' '
  114. Say ' '
  115. Say 'Total of 'totalnr' Areas processed in 'newtime' seconds by CF2FFF.'
  116. Say ' '
  117. Say 'OutPut File.control : 'aoutfile
  118. Say 'OutPut File_Areas   : 'foutfile
  119. Say 'OutPut Fgroup?.Asc  : 'afanout
  120. Say ' '
  121. Say 'Thanks for using CF2FFF and have a Nice Day!'
  122. rc = stream( areafile, 'c', 'close' )
  123. rc = stream( aoutfile, 'c', 'close' )
  124. rc = stream( foutfile, 'c', 'close' )
  125. rc = stream( afanout, 'c', 'close' )
  126.