/* 

   $VER: BatchCopy.filer 2.0 (27.10.96)

   Author:
    Matthias Scheler <tron@lyssa.owl.de>

   Function:
    All selected files in the active directory listview will be uploaded
    via Olaf `Olsen' Barthel's Term

   History:
    2.0   reworked to take advantage of Filer >= 3.x

   Call:
    Upload

   Example for "Filer.RC":
    BUTTON ...,...,"Batch Copy","BatchCopy"

*/

OPTIONS RESULTS

GETSOURCEPATH
IF RESULT="RESULT" THEN EXIT 5
SourceDir=RESULT

GETTARGETPATH
IF RESULT="RESULT" THEN EXIT 5
TargetDir=RESULT

LOCKFILER
IF RESULT="RESULT" THEN EXIT 5
Key=RESULT

PANEL OFF

'STATUS Creating batch file'

TEMPFILENAME
BatchFileName=RESULT
IF OPEN('BatchFile',BatchFileName,"WRITE")=0 THEN
 DO
  PANEL ON
  UNLOCKFILER Key

  "HISTORY Can't open batchfile."
  EXIT 5
 END

CALL WRITELN('BatchFile','CD "'||SourceDir||'"')

GETNUMENTRIES
Num=RESULT
DO Index=1 TO Num
 GETNAME Index
 Data=RESULT
 Name=SUBSTR(Data,2)

 IF LEFT(Data,1)="d" THEN
  DO
   IF RIGHT(TargetDir,1)=':' THEN
    CALL WRITELN('BatchFile','Copy "'||Name||'" TO "'||TargetDir||Name||'" ALL CLONE QUIET')
   ELSE
    CALL WRITELN('BatchFile','Copy "'||Name||'" TO "'||TargetDir||'/'||Name||'" ALL CLONE QUIET')

   TOGGLEENTRY Index
   'HISTORY Added directory "'||Name||'" to batchfile.'
  END

 IF LEFT(Data,1)="f" THEN
  DO
   CALL WRITELN('BatchFile','Copy "('||Name||')" TO "'||TargetDir||'" CLONE')

   TOGGLEENTRY Index
   'HISTORY Added file "'||Name||'" to batchfile.'
  END

END

CALL WRITELN('BatchFile','rx "'||"ADDRESS 'FilerRexx' UPDATETARGETDIR"||'"')
CALL WRITELN('BatchFile','rx "'||"ADDRESS 'FilerRexx' FILERTOFRONT"||'"')
CALL WRITELN('BatchFile','Run >NIL: Wait 2 SECS+')
CALL WRITELN('BatchFile','Delete "'||BatchFileName||'" QUIET')
CALL WRITELN('BatchFile','EndCLI >NIL:')
CALL CLOSE('BatchFile')

ADDRESS 'COMMAND' 'NewShell WINDOW CON:0/20/640/160/Batch-Copy/CLOSE FROM '||BatchFileName

FILERTOFRONT
PANEL ON
UNLOCKFILER Key

EXIT 0