/* 

   $VER: Upload.filer 1.2 (2.4.95)

   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:
    1.2   removed unnecessary ADDRESS 'FilerRexx'

   Requires:
    Term 4.1 or newer up and running

   Call:
    Upload

   Example for "Filer.RC":
    BUTTON ...,...,"Upload","Upload"

*/

OPTIONS RESULTS

IF ~SHOW('Ports','TERM') THEN
 DO
  ALERTBOX 'Term is not running.'

  EXIT 5
 END

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

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

PANEL OFF

'STATUS Preparing upload via Term ...'

ADDRESS 'TERM' 'CLEAR UPLOAD'
DoIt=0

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

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

   ADDRESS 'TERM' 'ADDITEM TO upload NAME '||SourceName
   TOGGLEENTRY Index

   DoIt=1
  END
END

IF DoIt THEN
 DO
  'STATUS Uploading via Term ...'

  ADDRESS 'TERM' 'WINDOW main FRONT ACTIVATE'
  ADDRESS 'TERM' 'SENDFILE MODE Binary'
 END

'STATUS Operation finished !' 

PANEL ON
UNLOCKFILER Key