FtpClient: Allow 'ftps://' protocol.

[GB.NET.CURL]
* NEW: FtpClient: Allow 'ftps://' protocol.

gb.net.curl/src/gb.net.curl/.src/MMain.module

@@ -2,6 +2,22 @@
 
 Public Sub Main()
 
-  Print HttpClient.Download("https://www.w3schools.com/cssref/")
+  'Print HttpClient.Download("https://www.w3schools.com/cssref/")
+
+  Dim ftptest As New FtpClient
+  Dim tmp As String
+
+  tmp = Temp()
+  ftptest.URL = "ftps://intersindical-clm.org"
+  ftptest.User = "benoit"
+  ftptest.Password = "vohW827!"
+  ftptest.SSL.VerifyHost = True
+  ftptest.SSL.VerifyPeer = False
+  ftptest.debug = True
+  ftptest.Async = False
+  ftptest.get(tmp)
+  If ftptest.ErrorText > "" Then
+    Print "Connection failed"
+  Endif
 
 End

gb.net.curl/src/gbcurl.c

@@ -33,7 +33,7 @@
 #include "gbcurl.h"
 #include "CCurl.h"
 
-static char *_protocols[] = { "ftp://", "http://", "https://", NULL };
+static char *_protocols[] = { "ftp://", "ftps://", "http://", "https://", NULL };
 
 static void warning(const char *msg)
 {