home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 January / PCO0198.ISO / filesbbs / os2 / mxbuck.arj / MXBUCK.ZIP / doku / mxarea.cmd < prev    next >
Encoding:
Text File  |  1997-02-10  |  1.2 KB  |  53 lines
  1. /*
  2.  * Maximus V2.x + V3.x
  3.  * Aus Filearea.ctl Areas mit files.bbs fuer mxutil.cfg generieren.
  4.  *
  5.  * Einzutragen sind die gewuenschten Dateinamen fuer
  6.  * Ein- und Ausgabe (infile und outfile).
  7.  *
  8.  * Areas mit Zugriffslevel 'Sysop' werden irgnoriert.
  9.  */
  10.  
  11.  
  12. infile="filearea.ctl"
  13. outfile="mxutil.cfg"
  14.  
  15.  
  16. CLS
  17. SAY'MxArea'
  18. SAY'-----------------------------------------------------------------------------'
  19. SAY''
  20. SAY'Erstelle: ' outfile ' aus: ' infile
  21.  
  22.  
  23. CALL RxFuncAdd 'SysLoadFuncs','Rexxutil','SysLoadFuncs'
  24. CALL SysLoadFuncs
  25.  
  26. dload = ' '
  27. fbbs = ' '
  28.  
  29. do while lines(infile) > 0
  30.  parse upper value linein(infile) with zeile
  31.  zeile = Translate(zeile,' ',d2c(09))
  32.  
  33.   if word(zeile,1) = "DOWNLOAD" then dload=word(zeile,2)
  34.   if word(zeile,1) = "FILELIST" then fbbs=word(zeile,2)
  35.   if word(zeile,1) = "ACS" then zugriff=word(zeile,2)
  36.  
  37.   if word(zeile,1) = "END " then do
  38.    if left(zugriff,5) <> "SYSOP" then do
  39.      i=length(dload)
  40.      if substr(dload,i,1) <> '\' then dload=insert(dload,'\')
  41.  
  42.      if fbbs = ' ' then fbbs=insert(dload,'FILES.BBS')
  43.  
  44.      call lineout(outfile), "HD A" dload||" " fbbs
  45.      dload = ' '
  46.      fbbs = ' '
  47.    end
  48.   end
  49. end
  50.  
  51. SAY''
  52. SAY'Das war`s ...'
  53.