home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / FF_200.ZIP / FFFTP.ZIP / FFFTP / HOBBES / IMPORT / HOBNEW.CMD < prev   
Encoding:
Text File  |  1995-08-12  |  2.6 KB  |  124 lines
  1. /*------------------------------------------------------------------
  2.  * miniftp.cmd :
  3.  *------------------------------------------------------------------*/
  4.  
  5. trace off
  6.  
  7. /*------------------------------------------------------------------
  8.  * load functions, if needed
  9.  *------------------------------------------------------------------*/
  10. if RxFuncQuery("FtpLoadFuncs") then
  11.    do
  12.    rc = RxFuncAdd("FtpLoadFuncs","RxFtp","FtpLoadFuncs")
  13.    rc = FtpLoadFuncs()
  14.    end
  15.  
  16. if RxFuncQuery("SysLoadFuncs") then
  17.    do
  18.    rc = RxFuncAdd("SysLoadFuncs","RexxUtil","SysLoadFuncs")
  19.    rc = SysLoadFuncs()
  20.    end
  21.  
  22. /*------------------------------------------------------------------
  23.  * set up signal
  24.  *------------------------------------------------------------------*/
  25. signal on halt
  26.  
  27. /*------------------------------------------------------------------
  28.  * get parameters
  29.  *------------------------------------------------------------------*/
  30. parse arg user pass .
  31.  
  32.  
  33. /*------------------------------------------------------------------
  34.  * set things
  35.  *------------------------------------------------------------------*/
  36. SAY LOGON
  37.  
  38. rc = FtpSetUser("hobbes.nmsu.edu",user,pass)
  39. if rc <> 1 then
  40.    do
  41.    say "Error logon" FTPERRNO
  42.    call done
  43.    end
  44.  
  45. say CD
  46.  
  47. rc = FtpChDir("/incoming")
  48. if rc <> 0 then
  49.    do
  50.    say "Error ChDir" FTPERRNO
  51.    call done
  52.    end
  53.  
  54. CD incoming
  55.  
  56. say LS
  57.  
  58. rc = FtpDir("*.*", "stem.")
  59. if rc <> 0 then
  60.    do
  61.    say "Error Get" FTPERRNO
  62.    call done
  63.    end
  64.  
  65. do i = 1 to stem.0
  66.  
  67.  PARSE VAR stem.i Attr Trash1 Trash2 Trash3 Size Month Day Time FileName
  68.  
  69.  PARSE UPPER VAR FileName UFileName
  70.  
  71.  if Trash2 = "ftp" then
  72.    if RIGHT(UFileName, 3) = "TXT" then
  73.        do 
  74.      /* A Desc file!!! */
  75.      call SysFileTree UFileName, 'file', 'FO'
  76.          if file.0 = 0 then 
  77.         call getfile(FileName)            
  78.      else 
  79.             say "* File exist " FileName
  80.         end
  81.    else
  82.      NOP
  83.  else
  84.     NOP
  85.  
  86. end
  87.  
  88. del FILE.LST
  89.  
  90. call LINEOUT 'FILE.LST', , 1
  91.  
  92. do i = 1 to stem.0
  93.  
  94.  SAY stem.i
  95.  
  96.  PARSE VAR stem.i Attr Trash1 Trash2 Trash3 Size Month Day Time FileName
  97.  
  98.  PARSE UPPER VAR FileName UFileName
  99.     
  100.  if Trash2 = "ftp" then
  101.    if RIGHT(UFileName, 3) <> "TXT" then
  102.      do    
  103.      call LINEOUT 'FILE.LST', FileName Size Month Day Time
  104.      end
  105.  
  106. END
  107.  
  108. call LINEOUT 'FILE.LST'
  109.  
  110. say "OK"
  111.  
  112. done:
  113. rc = FtpSetUser("X","X","X")
  114. rc = FtpLogoff()
  115.  
  116. cd ..
  117.  
  118. exit
  119.  
  120. GetFile: procedure
  121.     rc = FTPGet( arg(1) , arg(1), "ASCII")
  122.      if rc <> 0 then say "* Error receiving " arg(1)
  123.                else say "* Received " arg(1) " successfully"
  124.     return