FTP: Difference between revisions

Content added Content deleted

Inline

@@ Line 593: / Line 593: @@
 The library [http://seed7.sourceforge.net/libraries/ftp.htm ftp.s7i] contains functions to
 [http://seed7.sourceforge.net/libraries/ftp.htm#openFtp(in_string) open] and handle an
-[http://seed7.sourceforge.net/libraries/ftp.htm#ftpConnection ftpConnection].
+[http://seed7.sourceforge.net/libraries/ftp.htm#ftpFileSys ftpFileSys].
 <lang seed7>$ include "seed7_05.s7i";
   include "ftp.s7i";
@@ Line 599: / Line 599: @@
 const proc: main is func
   local
-    var ftpConnection: ftp is ftpConnection.value;
+    var ftpFileSys: ftp is fileSys.value;
     var string: line is "";
   begin
     ftp := openFtp("kernel.org");
-    ftp.active := FALSE;  # Passive is the default.
+    setActiveMode(ftp, FALSE);  # Passive is the default.
     chdir(ftp, "/pub/linux/kernel");
     for line range listDir(ftp, ".") do
       writeln(line);
     end for;
-    transferTypeBinary(ftp);
+    setAsciiTransfer(ftp, FALSE);
     writeln(getFile(ftp, "README"));
     close(ftp);