VBScript → Lua
This function returns true if the given user is logged in and free.
Please see the Introduction chapter for some usage instructions.
'----------------------------------------------------------------
' IsUserFree
'
' Checks if given user is free or not.
'
' Parameter:
' sNumber extension
'
' Return:
' boolean
'----------------------------------------------------------------
Function IsUserFree( sNumber )
PBXScript.OutputTrace "-------------> IsUserFree ( sNumber = " & sNumber & " )"
Dim bReturn
bReturn = False
Dim Users
Set Users = g_PBXConfig.GetUserByAddress(sNumber)
Dim User
For Each User In Users
PBXScript.OutputTrace "Found user " & User.Name & " with current state " & User.State
bReturn = (User.State = 2)
Next
IsUserFree = bReturn
PBXScript.OutputTrace "bReturn = " & bReturn
PBXScript.OutputTrace "<------------- IsUserFree"
End Function
This function makes use of the Server Script API functions PBXConfig.GetUserByAddress to resolve all users in the given group and 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.