File 3223-common_test-Do-not-use-deprecated-ftp-API.... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 3223-common_test-Do-not-use-deprecated-ftp-API.patch of Package erlang

From 81b1854c204536d071bbe8f7dbb47807059d1333 Mon Sep 17 00:00:00 2001
From: Ingela Anderton Andin <ingela@erlang.org>
Date: Sun, 21 Feb 2021 12:31:02 +0100
Subject: [PATCH 3/3] common_test: Do not use deprecated ftp API

Note before the deprecation the now used API behaved
in an unwanted way, it now behaves well and legacy
inets related functions are deprecated.
---
 lib/common_test/src/ct_ftp.erl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lib/common_test/src/ct_ftp.erl b/lib/common_test/src/ct_ftp.erl
index b2fdebb6a9..911bdbbf67 100644
--- a/lib/common_test/src/ct_ftp.erl
+++ b/lib/common_test/src/ct_ftp.erl
@@ -19,7 +19,6 @@
 %%
 
 -module(ct_ftp).
--compile({nowarn_deprecated_function, [{ftp,start_service,1}, {ftp,stop_service,1}]}).
 
 %% API
 -export([get/3,put/3, open/1,close/1, send/2,send/3, 
@@ -164,7 +163,7 @@ init(KeyOrName,{IP,Port},{Username,Password}) ->
 	    
 ftp_connect(IP,Port,Username,Password) ->
     _ = ftp:start(),
-    case ftp:start_service([{host,IP},{port,Port}]) of
+    case ftp:open(IP,[{port,Port}]) of
 	{ok,FtpPid} ->
 	    case ftp:user(FtpPid,Username,Password) of
 		ok ->
@@ -209,7 +208,7 @@ reconnect(_Addr,_State) ->
 terminate(FtpPid,State) ->
     log(heading(terminate,State#state.target_name),
 	"Closing FTP connection.\nHandle: ~p\n",[FtpPid]),
-    ftp:stop_service(FtpPid).
+    ftp:close(FtpPid).
 
 
 %%%=================================================================
-- 
2.26.2

Places

File 3223-common_test-Do-not-use-deprecated-ftp-API.patch of Package erlang

Places