VBScript → Lua
Beside the following function you might also want to take a look on the
-> PBXScript.WebRequest
which was added with SwyxWare 12.40
This function calls (launches) a given URL (http request) and returns True if the request returns without error.
Please see the Introduction chapter for some usage instructions.
'-------------------------------------------------------------------
' LaunchHTTPRequest
'
' Launches given URL.
'
' Parameter:
' sURL complete url
'
' return value:
' boolean True - request file processed
' False - request file *not* processed
'--------------------------------------------------------------------
Function LaunchHTTPRequest(ByVal sURL)
PBXScript.OutputTrace "------> LaunchHTTPRequest ( sURL = '" & sURL & "' )"
On Error Resume Next
Dim bReturn
bReturn = True
Dim HTTP_REQ
Set HTTP_REQ = CreateObject("Msxml2.ServerXMLHTTP.3.0")
Dim lResolve, lConnect, lSend, lReceive
lResolve = 1 * 60 * 1000 ' 1 minute (default: infinte)
lConnect = 1 * 60 * 1000 ' 1 minute (default)
lSend = 60 * 60 * 1000 ' 1 hour (default: 30 seconds)
lReceive = 60 * 60 * 1000 ' 1 hour (default: 30 seconds)
HTTP_REQ.setTimeouts lResolve, lConnect, lSend, lReceive
Dim vBefore, vAfter, nDuration
vBefore = Now
HTTP_REQ.open "GET", sURL, False
HTTP_REQ.send
If Err <> 0 Then
PBXScript.OutputTrace "Error sending http request (" & Hex(Err) & ")"
PBXScript.OutputTrace Err.Description
Err.Clear
Else
vAfter = Now
nDuration = DateDiff("s", vBefore, vAfter)
PBXScript.OutputTrace "HTTP Request returned after " & nDuration & " seconds"
bReturn = True
End If
Set HTTP_REQ = Nothing
LaunchHTTPRequest = bReturn
PBXScript.OutputTrace "bReturn = " & bReturn
PBXScript.OutputTrace "<------ LaunchHTTPRequest"
End Function
This function makes use of the Server Script API function PBXScript.OutputTrace to write trace information into the SwyxServer trace file.
This function was initially posted into this forum topic.
By Tom Wellige
Recommended Comments
There are no comments to display.