Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- | PhoneCoreCommands.ExecuteContactAction(contact, action, callhandle) ->
- let hdrs =
- action.headers
- |> Seq.map (fun x -> (x.key, x.value))
- |> Map.ofSeq
- let dialNumber = action.dialPrefix + action.dial
- match action.name with
- | "CONTACT_ACT_TRANSFER_VM" ->
- match status.selectedCalls with
- | { callHandle = sourceCallHandle } :: t ->
- [{ callHandle = sourceCallHandle;
- actionType = CallActionItemType.Transfer(TransferType.BlindTransfer) }]
- |> PhoneCoreCommands.SetCallSelection
- |> actor.Post
- | _ -> ()
- | _ -> ()
- PhoneCoreCommands.MakeCall(dialNumber, [hdrs], Some contact)
- |> actor.Post
- return! stay
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement