Function: IsRedirectedFromByNumber

[Tom Wellige 61]

This post is taken from the Swyx Forum Archive (2007-2014) and was originally posted 10.08.2010 by me

 

This function returns True was redirected/transferred by a certain user (extension) or list of extensions,separated by ; (semikolon).

It makes use of the function GetUserNameFromExtension to get the username for a given extension, and also the function IsRedirectedFromByName to then check if the call is redirected/transferred from that user.

To use the function within your call routing script just copy&paste it into the "Start" block and call it afterwards within an "Evaluate" block.

 

'----------------------------------------------------------------
' IsRedirectedFromByNumber
'
' Returns true if the current call is redirected by any of the numbers
' given in the semicolon separated list. It also returns the number that
' redirected the call.
'
' Parameter:
'	sNumbers	[in]	semicolon separated list of all numbers
'	sNumber		[out]	empty if call wasn't redirected by anyone from the list, 
'						otherwise the extension that redirected the call.
'
' Return:
'	boolean
'----------------------------------------------------------------
Function IsRedirectedFromByNumber( ByVal sNumbers, ByRef sNumber )
	PBXScript.OutputTrace "------> IsRedirectedFromByNumber ( '" & sNumbers & "' )"

	Dim bReturn
	bReturn = False
	sNumber = ""

	Dim i, aNumbers, sName

	aNumbers = Split(sNumbers, ";")

	For i = LBound(aNumbers) To UBound(aNumbers)

		PBXScript.OutputTrace "Checking extension: " & aNumbers(i)
		sName = GetUserNameFromExtension(aNumbers(i))
		PBXScript.OutputTrace "Found username: " & sName

		If sName <> "" Then
			If IsRedirectedFromByName(sName) Then
				PBXScript.OutputTrace "Call is redirected from this user"
				bReturn = True
				sNumber = aNumbers(i)
			Else
				PBXScript.OutputTrace "Call is not redirected from this user"
			End If
		End If

	Next

	IsRedirectedFromByNumber = bReturn

	PBXScript.OutputTrace "bReturn = " & bReturn
	PBXScript.OutputTrace "<------ IsRedirectedFromByNumber ( Return '" & bReturn & "' )"
End Function