talho/openphin

class Service::Swn::Sms::Message < Service::Swn::Sms::Base
  property :message
  property :username
  property :password
  property :retry_duration

  def self.format_activation_time(time)
    time.strftime("%Y%m%d%H%M%S")
  end

  def retry_duration=(duration)
    @retry_duration = duration.to_s.scan(/\d+/).first.to_i.hours
  end

  def build!
    raise "Invalid #{self}, Errors: #{self.errors.full_messages.inspect}" unless valid?

    body = ""
    xml = ::Builder::XmlMarkup.new :target => body, :indent => 2
    #xml.instruct!
    xsi = "xmlns:xsi".to_sym
    xsd = "xmlns:xsd".to_sym
    soapenv = "xmlns:soap-env".to_sym
    soapenc = "xmlns:soap-enc".to_sym
    xml.tag!("soap-env:Envelope", xsi => "http://www.w3.org/2001/XMLSchema-instance", xsd => "http://www.w3.org/2001/XMLSchema",
      soapenv => "http://schemas.xmlsoap.org/soap/envelope/", soapenc => "http://schemas.xmlsoap.org/soap/encoding/") do
      add_header xml
      xml.tag!("soap-env:Body") do
        add_send_notification xml
      end
    end
  end

  private

  def add_header(xml)
    xml.tag!("soap-env:Header") do
      xml.AuthCredentials :xmlns => "http://www.sendwordnow.com/notification" do
        xml.username username
        xml.password password
      end
    end
  end

  def add_send_notification(xml)
    xmlns = "xmlns:swn".to_sym
    xml.swn(:sendNotification, xmlns => "http://www.sendwordnow.com/notification") do
      xml.swn(:pSendNotificationInfo) do
        xml.swn(:SendNotificationInfo) do
          xml.swn(:id, message.messageId + "-SMS")
          xml.swn(:custSentTimestamp, Time.now.utc.iso8601(3))
          add_sender xml
          add_notification xml
          add_recipients xml
        end
      end
    end
  end

  def add_sender(xml)
     xml.swn(:sender) do
       xml.swn(:introName, message.Author.display_name) unless message.Author.blank?
       if message.Behavior && message.Behavior.Delivery && message.Behavior.Delivery.Providers
         provider = message.Behavior.Delivery.Providers.select{|p| p.name == "swn"}


         introOrganization = message.Behavior.Delivery.customAttributes.select{|c| c.name == "introOrganization"}
         unless introOrganization.blank?
          introOrganization = introOrganization.first
          unless introOrganization.blank?
            xml.swn(:introOrganization, introOrganization.Value) unless introOrganization.Value.blank?
          end
         end

         phone = message.Behavior.Delivery.customAttributes.select{|c| c.name == "phone"}
         unless phone.blank?
           phone = phone.first
           xml.swn(:phone, phone.Value) unless phone.blank? || phone.Value.blank?
         end
       end
     end
   end

  def add_notification(xml)
    xml.swn(:notification) do
      provider = message.Behavior.Delivery.Providers.select{|c| c.name == "swn" && c.device == "SMS"}.first
      title = ""
      messagetext = ""
      if provider.blank? || provider.Messages.blank?
        title = message.Messages.select{|m| m.name == "title"}.first.Value
        messagetext = message.Messages.select{|m| m.name == "message"}.first.Value
      else
        messageref = provider.Messages.select{|m| m.name == "title"}.first.ref
        title = message.Messages.select{|m| m.name == messageref}.first.Value

        messageref = provider.Messages.select{|m| m.name == "message"}.first.ref
        messagetext = message.Messages.select{|m| m.name == messageref}.first.Value
      end

      xml.swn(:subject, title)
      xml.swn(:body, messagetext)
    end
  end

  def add_recipients(xml)
    xml.swn(:rcpts) do
      message.Recipients.each do |recipient|
        xml.swn(:rcpt) do
          xml.swn(:id, recipient.id)
          xml.swn(:firstName, recipient.givenName)
          xml.swn(:lastName, recipient.surname)
          xml.swn(:contactPnts) do
            recipient.Devices.select{|d| d.device_type == "SMS"}.each do |device|
              xml.swn(:contactPntInfo, :type => "Text") do
                xml.swn(:id, device.id)
                xml.swn(:label, "SMS Device")
                xml.swn(:address, "1#{device.URN}@sms.sendwordnow.com")
              end
            end
          end
        end
      end
    end
  end
end