luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

FtpClient: Allow 'ftps://' protocol.

Browse source 
[GB.NET.CURL]
* NEW: FtpClient: Allow 'ftps://' protocol.
This commit is contained in:
gambas 2017-10-25 20:38:42 +02:00
parent 4db9e5c07e
commit 6770894884
2 changed files with 18 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gb.net.curl/src/gb.net.curl/.src/MMain.module
View file

@ -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

2
gb.net.curl/src/gbcurl.c
View file

@ -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)
{