sync SVN r18224
This commit is contained in:
@@ -21,6 +21,7 @@ IF m.llSucces
|
||||
TRY
|
||||
This.Log(m.lcServer)
|
||||
loHTTP.Open('GET', lcServer, .F.)
|
||||
loHTTP.SetRequestHeader('User-Agent', 'Mozilla/5.0 (Windows NT 10.0; Win64; x64)')
|
||||
loHTTP.setRequestHeader("Content-Type", "application/xml")
|
||||
loHTTP.Send()
|
||||
llSucces = .T.
|
||||
@@ -69,6 +70,7 @@ If m.llSucces AND m.lcVersiuneServer <> m.lcVersiuneClient AND !EMPTY(m.lcServer
|
||||
TRY
|
||||
This.Log(m.lcServer)
|
||||
loHTTP.Open('GET', lcServer, .F.)
|
||||
loHTTP.SetRequestHeader('User-Agent', 'Mozilla/5.0 (Windows NT 10.0; Win64; x64)')
|
||||
loHTTP.setRequestHeader("Content-Type", "application/vnd.microsoft.portable-executable")
|
||||
loHTTP.Send()
|
||||
llSucces = .T.
|
||||
|
||||
Reference in New Issue
Block a user