home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 101 / af101sub.adf / filer.LZX / Filer / Rexx / DCC.filer < prev    next >
Encoding:
Text File  |  1996-07-29  |  1.3 KB  |  86 lines
  1. /* 
  2.  
  3.    $VER: DCC.filer 1.0 (29.7.96)
  4.  
  5.    Author:
  6.     Matthias Scheler <tron@lyssa.owl.de>
  7.  
  8.    Function:
  9.     All selected files in the active directory listview will be transfered via
  10.     DCC with the Grapevine IRC Client
  11.  
  12.    Requires:
  13.     Grapevine 1.452 registered or newer up and running
  14.  
  15.    Call:
  16.     DCC
  17.  
  18.    Example for "Filer.RC":
  19.     BUTTON ...,...,"DCC Send","DCC SEND"
  20.  
  21. */
  22.  
  23. PARSE ARG Protocoll
  24. IF Protocoll="" THEN Protocoll="SEND"
  25.  
  26. OPTIONS RESULTS
  27.  
  28. IF ~SHOW('Ports','GVREXX.01') THEN
  29.  DO
  30.   ALERTBOX 'Grapevine is not running.'
  31.  
  32.   EXIT 5
  33.  END
  34.  
  35. GETSOURCEPATH
  36. IF RESULT="RESULT" THEN EXIT 5
  37. SourceDir=RESULT
  38.  
  39. LOCKFILER
  40. IF RESULT="RESULT" THEN EXIT 5
  41. Key=RESULT
  42.  
  43. PANEL OFF
  44.  
  45. 'STATUS DCC Transfer.'
  46.  
  47. 'SETSTRING ""'
  48. 'GETSTRING Enter Nickname:'
  49.  
  50. IF RESULT="RESULT" THEN
  51.  DO
  52.   PANEL ON
  53.   UNLOCKFILER Key
  54.  
  55.   'STATUS DCC Transfer aborted.'
  56.   EXIT 5
  57.  END
  58.  
  59. Nickname=RESULT
  60.  
  61. GETNUMENTRIES
  62. Num=RESULT
  63. DO Index=1 TO Num
  64.  GETNAME Index
  65.  Data=RESULT
  66.  Name=SUBSTR(Data,2)
  67.  
  68.  IF LEFT(Data,1)="f" THEN
  69.   DO
  70.    'HISTORY Sending' Name 'via "DCC' Protocoll||'".'
  71.  
  72.    IF RIGHT(SourceDir,1)=":" THEN SourceName=SourceDir||Name
  73.    ELSE SourceName=SourceDir||"/"||Name
  74.  
  75.    ADDRESS 'GVREXX.01' 'DCC SEND' Nickname SourceName
  76.    TOGGLEENTRY Index
  77.  
  78.    DoIt=1
  79.   END
  80. END
  81.  
  82. 'STATUS Operation finished !' 
  83.  
  84. PANEL ON
  85. UNLOCKFILER Key
  86.