inets,ftp: Break out FTP from inets

- Created initial directory structure for the FTP application.
- Updated inets Makefiles to not include FTP related modules.
- Remove ftp code from inets
- Implement backward compatibility layer for FTP
- Add inets_ftp_wrapper
- Fix failing TCs

Change-Id: I120ec5bdef0c3df4cee2d7880db2aec581505bc4

1 files changed, 2 insertions, 30 deletions

diff --git a/lib/inets/test/inets_sup_SUITE.erl b/lib/inets/test/inets_sup_SUITE.erl
index 1e664337e6..d36d4dc53e 100644
--- a/lib/inets/test/inets_sup_SUITE.erl
+++ b/lib/inets/test/inets_sup_SUITE.erl
@@ -32,7 +32,7 @@ suite() ->
     ].
 
 all() -> 
-    [default_tree, ftpc_worker, tftpd_worker, 
+    [default_tree, tftpd_worker,
      httpd_config, httpd_subtree, httpd_subtree_profile,
      httpc_subtree].
 
@@ -147,13 +147,11 @@ default_tree() ->
       "in the default case."}].
 default_tree(Config) when is_list(Config) ->
     TopSupChildren = supervisor:which_children(inets_sup),
-    4 = length(TopSupChildren),
+    3 = length(TopSupChildren),
     {value, {httpd_sup, _, supervisor,[httpd_sup]}} =
 	lists:keysearch(httpd_sup, 1, TopSupChildren),
     {value, {httpc_sup, _,supervisor,[httpc_sup]}} = 
 	lists:keysearch(httpc_sup, 1, TopSupChildren),
-    {value, {ftp_sup,_,supervisor,[ftp_sup]}} = 
-	lists:keysearch(ftp_sup, 1, TopSupChildren),
     {value, {tftp_sup,_,supervisor,[tftp_sup]}} = 
 	lists:keysearch(tftp_sup, 1, TopSupChildren),
 
@@ -163,8 +161,6 @@ default_tree(Config) when is_list(Config) ->
     {value, {httpc_handler_sup,_, supervisor, [httpc_handler_sup]}} =
 	lists:keysearch(httpc_handler_sup, 1, HttpcSupChildren),
     
-    [] = supervisor:which_children(ftp_sup),
-
     [] = supervisor:which_children(httpd_sup),
  
     %% Default profile
@@ -177,30 +173,6 @@ default_tree(Config) when is_list(Config) ->
 
     ok.
 
-ftpc_worker() ->
-    [{doc, "Makes sure the ftp worker processes are added and removed "
-      "appropriatly to/from the supervison tree."}].
-ftpc_worker(Config0) when is_list(Config0) ->
-    [] = supervisor:which_children(ftp_sup),
-    case ftp_SUITE:init_per_suite(Config0) of
-	{skip, _} = Skip ->
-	    Skip;
-	Config ->
-	    FtpdHost = proplists:get_value(ftpd_host,Config),
-	    {ok, Pid} = inets:start(ftpc, [{host, FtpdHost}]),
-	    case supervisor:which_children(ftp_sup) of
-		[{_,_, worker, [ftp]}] ->
-		    inets:stop(ftpc, Pid), 
-		    ct:sleep(5000),
-		    [] = supervisor:which_children(ftp_sup),
-		    catch ftp_SUITE:end_per_SUITE(Config),  
-		    ok;
-		Children ->
-		    catch ftp_SUITE:end_per_SUITE(Config),  
-		    exit({unexpected_children, Children})
-	    end
-    end.
-
 tftpd_worker() ->
     [{doc, "Makes sure the tftp sub tree is correct."}].
 tftpd_worker(Config) when is_list(Config) ->