Packages

cwmp_ex

0.2.7
0.2.7 0.2.6 0.2.5 0.2.4 0.2.3 0.2.2 0.2.1

A module that implements the CWMP protocol

HexDocs

Current section

Files

Jump to
Readme
7 Versions
3 Dependencies
Dependants
Files
Activity
cwmp_ex lib generate get_queued_transfers_response.ex
Raw

lib/generate/get_queued_transfers_response.ex 

defimpl CWMP.Protocol.Generate, for: CWMP.Protocol.Messages.GetQueuedTransfersResponse do

  import XmlBuilder



  use CWMP.Protocol.GenerateHelpers



  def generate(req) do

    element("cwmp:GetQueuedTransfersResponse", [buildQueuedTransferList(req.transferlist)])

  end



  defp buildQueuedTransferList(transferlist) do

    list=for t <- transferlist, do: element(:QueuedTransferStruct, [

      element(:CommandKey, t.commandkey),

      element(:State, integerValue(t.state, fn(x) -> x in 1..3 end))])

    element(:TransferList,%{"SOAP-ENC:arrayType": "cwmp:QueuedTransferStruct[#{length(list)}]"},[list])

  end

end