Ftp Script For AdeptXBBS - Release: 230896

Written By Paul Meyer (pmeyer@ednet.com.au - _Spyder_ on #adept in IRC)

Installation:
-------------

Place the rxftp.dll in os2\dll or tcpip\dll or in any other dll directory.

Edit the top of the ftp.cmd file to reflect your directories and limits.

If Using a REXX Main.cmd instead of the .menu system:

  Call linetimer.cmd using AdeptStartREXXThread()
  Call ftp.cmd using AdeptChainREXX() or AdeptChainREXXNC()    
  Kill the linetimer.cmd by the AdeptKillREXXThread() fn
  
ie - 

  When (Key=70) | (Key=102) then /* F or f */
  do
    tid = AdeptStartREXXThread("linetimer.cmd",line)
    Call AdeptChainREXXNc line, "ftp.cmd"
    rc = AdeptKillREXXThread(tid)
  end
  
If using the .menu system:

  Create a small rexx program that does the above (see fig 1) and
  call it using a type 10 or 11 menutype. ie:
  
  F,10,[F]tp,FtpRun.cmd
  
  Your FtpRun.cmd should look something like this:
  
----------------------------------------------------------------
/* REXX Script to start the line timer and run the Ftp Script */

Arg line

  tid = AdeptStartREXXThread("linetimer.cmd",line)
  Call AdeptChainRexxNC "\adept\menus\ftp.cmd",line
  AdeptKillREXXThread(tid)
----------------------------------------------------------------

Starting the limetimer thread is essential as The FTP script can't detect
a carrier drop when it's waiting for input.

If you have any comments etc, Send me an email or Netmail to me at 3:690/430

You can also contact me on IRC as _Spyder_ or through adeptnet (55:60/0)
