/* */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
search_copy=0

'@echo off'
IF ARG() <> 0 THEN
  PARSE UPPER ARG directory' 'cdirectory
ELSE
  DO
  SAY
  SAY "FILEMKR.CMD: Creates Files.BBS files for AdeptXBBS"
  SAY "By Nathan Williams, swordy@winternet.com"
  SAY "Modified by Graham Murphy, hawks@dircon.co.uk"
  SAY "USAGE:  filemkr [search directory] [copy directory]"
  SAY
  SAY "If copy directory is specified, FILEMKR will copy files with 'FILE_ID.DIZ'"
  SAY "from the search directory to the copy directory."
  SAY
  SAY "Errorlevels"
  SAY "0 - No error occured"
  SAY "1 - Couldn't find copy directory"
  SAY "2 - Couldn't find search directory"
  SAY "3 - Couldn't allocate enough memory for directory search"
  EXIT
  END

if cdirectory<>"" then do 
	CD cdirectory
	if rc<>0 then do
		say
		say "Can't find Copy directory!"
		exit(1)
	end
	say "Search and Copy mode activated."
	say "FileMkr will copy files from "directory" to "cdirectory
	search_copy=1
end

CD Directory
if rc <>0 then do
        say
        say "Can't find search directory!"
        say
        exit(2)
        end

if search_copy then 
	filelist=cdirectory'\files.bbs'
	else
	filelist=directory'\files.bbs'

if SysFileTree("*.zip",files,'FO')<>0 then do
        say "Error getting directory listing"
        exit(3)
        end

if stream(filelist,'c','query exists')<>'' then do
        say "Backing up files.bbs to files.old"
        copy filelist cdirectory"\files.old"
        del filelist
end

say "Found "files.0" .ZIP files"

do cnt=1 to files.0
        "unzip -oj "files.cnt" file_id.diz >nul 2>nul"

        if stream('file_id.diz','c','query exists')<>"" then do
                say "Found File_Id.Diz in "files.cnt
                size=stream(files.cnt,'c','query size')
                date=left(stream(files.cnt,'c','qurey datetime'),8)
                call lineout filelist,filespec('N',files.cnt)'  'size'  'date'  'linein('File_Id.Diz')
                do while lines('file_id.diz')
                        call lineout filelist,'                          | 'linein('File_Id.Diz')
                end
        call stream 'file_id.diz','c','close'
        del "file_id.diz"
	if search_copy then  "copy "files.cnt cdirectory
        end
end