/* 

   $VER: PutFiles.filer 2.1 (2.4.95)

   Author:
    Matthias Scheler (tron@lyssa.pb.owl.de)

   Function:
    All selected files in the active directory listview will be transfered
    via DNet using "putfiles".

   History:
    2.1   removed unnecessary ADDRESS 'FilerRexx'

   Requires:
    DNet up and running
    putfiles

   Call:
    PutFiles

   Example for "Filer.RC":
    BUTTON ...,...,"PutFiles","RX PutFiles"

*/

OPTIONS RESULTS

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

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

PANEL OFF

'STATUS DNet file transfer'

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

 IF RIGHT(SourceDir,1)=":" THEN SourceName=SourceDir||Name
 ELSE SourceName=SourceDir||"/"||Name

 IF LEFT(Data,1)="f" THEN
  DO
   ADDRESS 'COMMAND' 'putfiles "'||SourceName||'"'
   TOGGLEENTRY Index

   'HISTORY "'||SourceName||'" transfered via DNet.'
  END
END

'STATUS Operation finished !' 

PANEL ON
UNLOCKFILER Key