home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma23.dms / ma23.adf / Filer / Rexx / Upload.filer < prev    next >
Text File  |  1993-11-27  |  1KB  |  79 lines
  1. /* 
  2.  
  3.    $VER: Upload.filer 1.0 (22.11.93)
  4.  
  5.    Author:
  6.     Matthias Scheler (tron@lyssa.pb.owl.de)
  7.  
  8.    Function:
  9.     All selected files in the active directory listview will be uploaded
  10.     via Olaf `Olsen' Barthel's Term
  11.  
  12.    Requires:
  13.     Term 3.4 or newer up and running
  14.  
  15.    Call:
  16.     Upload
  17.  
  18.    Example for "Filer.RC":
  19.     BUTTON ...,...,"Upload","Upload"
  20.  
  21. */
  22.  
  23. ADDRESS 'FilerRexx'
  24. OPTIONS RESULTS
  25.  
  26. IF ~SHOW('Ports','TERM') THEN
  27.  DO
  28.   ALERTBOX 'Term is not running.'
  29.  
  30.   EXIT 5
  31.  END
  32.  
  33. GETSOURCEPATH
  34. IF RESULT="RESULT" THEN EXIT 5
  35. SourceDir=RESULT
  36.  
  37. LOCKFILER
  38. IF RESULT="RESULT" THEN EXIT 5
  39. Key=Result
  40.  
  41. PANEL OFF
  42.  
  43. 'STATUS Preparing upload via Term ...'
  44.  
  45. ADDRESS 'TERM' 'CLEAR UPLOAD'
  46. DoIt=0
  47.  
  48. GETNUMENTRIES
  49. Num=RESULT
  50. DO Index=1 TO Num
  51.  GETNAME Index
  52.  Data=RESULT
  53.  Name=SUBSTR(Data,2)
  54.  
  55.  IF LEFT(Data,1)="f" THEN
  56.   DO
  57.    IF RIGHT(SourceDir,1)=":" THEN SourceName=SourceDir||Name
  58.    ELSE SourceName=SourceDir||"/"||Name
  59.  
  60.    ADDRESS 'TERM' 'ADDITEM TO upload NAME '||SourceName
  61.    TOGGLEENTRY Index
  62.  
  63.    DoIt=1
  64.   END
  65. END
  66.  
  67. IF DoIt THEN
  68.  DO
  69.   'STATUS Uploading via Term ...'
  70.  
  71.   ADDRESS 'TERM' 'WINDOW main FRONT ACTIVATE'
  72.   ADDRESS 'TERM' 'SENDFILE MODE Binary'
  73.  END
  74.  
  75. 'STATUS Operation finished !' 
  76.  
  77. PANEL ON
  78. UNLOCKFILER Key
  79.