exchanger 0.1.0

data/lib/exchanger/operations/create_item.rb

@@ -0,0 +1,64 @@
+module Exchanger
+  # The CreateItem operation creates items in the Exchanger store.
+  # 
+  # You can use the CreateItem operation to create the following:
+  # * Calendar items
+  # * E-mail messages
+  # * Meeting requests
+  # * Tasks
+  # * Contacts
+  # 
+  # http://msdn.microsoft.com/en-us/library/aa563797.aspx
+  class CreateItem < Operation
+    class Request < Operation::Request
+      attr_accessor :folder_id, :email_address, :items
+
+      # Reset request options to defaults.
+      def reset
+        @folder_id = :contacts
+        @email_address = nil
+        @items = []
+      end
+
+      def to_xml
+        Nokogiri::XML::Builder.new do |xml|
+          xml.send("soap:Envelope", "xmlns:soap" => NS["soap"], "xmlns:t" => NS["t"], "xmlns:xsi" => NS["xsi"], "xmlns:xsd" => NS["xsd"]) do
+            xml.send("soap:Body") do
+              xml.CreateItem("xmlns" => NS["m"]) do
+                xml.SavedItemFolderId do
+                  if folder_id.is_a?(Symbol)
+                    xml.send("t:DistinguishedFolderId", "Id" => folder_id) do
+                      if email_address
+                        xml.send("t:Mailbox") do
+                          xml.send("t:EmailAddress", email_address)
+                        end
+                      end
+                    end
+                  else
+                    xml.send("t:FolderId", "Id" => folder_id)
+                  end
+                end
+                xml.Items do
+                  items.each do |item|
+                    item_xml = item.to_xml
+                    item_xml.add_namespace_definition("t", NS["t"])
+                    item_xml.namespace = item_xml.namespace_definitions[0]
+                    xml << item_xml.to_s
+                  end
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+
+    class Response < Operation::Response
+      def item_ids
+        to_xml.xpath(".//t:ItemId", NS).map do |node|
+          Identifier.new_from_xml(node)
+        end
+      end
+    end
+  end
+end

data/lib/exchanger/operations/expand_dl.rb

@@ -0,0 +1,42 @@
+module Exchanger
+  # The ExpandDL operation exposes the full membership of distribution lists.
+  # 
+  # http://msdn.microsoft.com/en-us/library/aa494152.aspx
+  class ExpandDL < Operation
+    class Request < Operation::Request
+      attr_accessor :mailbox
+
+      # Reset request options to defaults.
+      def reset
+        @mailbox = nil
+      end
+
+      def to_xml
+        Nokogiri::XML::Builder.new do |xml|
+          xml.send("soap:Envelope", "xmlns:soap" => NS["soap"]) do
+            xml.send("soap:Body") do
+              xml.ExpandDL("xmlns" => NS["m"], "xmlns:t" => NS["t"]) do
+                xml.Mailbox do
+                  if mailbox.item_id
+                    xml.send("t:ItemId", "Id" => mailbox.item_id.id, "ChangeKey" => mailbox.item_id.change_key)
+                  else
+                    xml.send("t:EmailAddress", mailbox.email_address)
+                  end
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+
+    class Response < Operation::Response
+      def mailboxes
+        to_xml.xpath(".//t:Mailbox", NS).map do |node|
+          item_klass = Exchanger.const_get(node.name)
+          item_klass.new_from_xml(node)
+        end
+      end
+    end
+  end
+end

data/lib/exchanger/operations/find_folder.rb

@@ -0,0 +1,55 @@
+module Exchanger
+  # The FindFolder operation uses Exchanger Web Services to find subfolders of 
+  # an identified folder and returns a set of properties that describe the set of subfolders.
+  #
+  # http://msdn.microsoft.com/en-us/library/aa563918.aspx
+  class FindFolder < Operation
+    class Request < Operation::Request
+      attr_accessor :parent_folder_id, :base_shape, :email_address, :traversal
+
+      # Reset request options to defaults.
+      def reset
+        @parent_folder_id = nil
+        @traversal = :shallow
+        @base_shape = :all_properties
+        @email_address = nil
+      end
+
+      def to_xml
+        Nokogiri::XML::Builder.new do |xml|
+          xml.send("soap:Envelope", "xmlns:soap" => NS["soap"]) do
+            xml.send("soap:Body") do
+              xml.FindFolder("xmlns" => NS["m"], "xmlns:t" => NS["t"], "Traversal" => traversal.to_s.camelize) do
+                xml.FolderShape do
+                  xml.send "t:BaseShape", base_shape.to_s.camelize
+                end
+                xml.ParentFolderIds do
+                  if parent_folder_id.is_a?(Symbol)
+                    xml.send("t:DistinguishedFolderId", "Id" => parent_folder_id) do
+                      if email_address
+                        xml.send("t:Mailbox") do
+                          xml.send("t:EmailAddress", email_address)
+                        end
+                      end
+                    end
+                  else
+                    xml.send("t:FolderId", "Id" => parent_folder_id)
+                  end
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+
+    class Response < Operation::Response
+      def folders
+        to_xml.xpath(".//t:Folders", NS).children.map do |node|
+          folder_klass = Exchanger.const_get(node.name)
+          folder_klass.new_from_xml(node)
+        end
+      end
+    end
+  end
+end

data/lib/exchanger/operations/find_item.rb

@@ -0,0 +1,54 @@
+module Exchanger
+  # The FindItem operation identifies items that are located in a specified folder.
+  # 
+  # http://msdn.microsoft.com/en-us/library/aa566107.aspx
+  class FindItem < Operation
+    class Request < Operation::Request
+      attr_accessor :folder_id, :traversal, :base_shape, :email_address
+
+      # Reset request options to defaults.
+      def reset
+        @folder_id = :contacts
+        @traversal = :shallow
+        @base_shape = :all_properties
+        @email_address = nil
+      end
+
+      def to_xml
+        Nokogiri::XML::Builder.new do |xml|
+          xml.send("soap:Envelope", "xmlns:soap" => NS["soap"]) do
+            xml.send("soap:Body") do
+              xml.FindItem("xmlns" => NS["m"], "xmlns:t" => NS["t"], "Traversal" => traversal.to_s.camelize) do
+                xml.ItemShape do
+                  xml.send "t:BaseShape", base_shape.to_s.camelize
+                end
+                xml.ParentFolderIds do
+                  if folder_id.is_a?(Symbol)
+                    xml.send("t:DistinguishedFolderId", "Id" => folder_id) do
+                      if email_address
+                        xml.send("t:Mailbox") do
+                          xml.send("t:EmailAddress", email_address)
+                        end
+                      end
+                    end
+                  else
+                    xml.send("t:FolderId", "Id" => folder_id)
+                  end
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+
+    class Response < Operation::Response
+      def items
+        to_xml.xpath(".//t:Items", NS).children.map do |node|
+          item_klass = Exchanger.const_get(node.name)
+          item_klass.new_from_xml(node)
+        end
+      end
+    end
+  end
+end

data/lib/exchanger/operations/get_folder.rb

@@ -0,0 +1,55 @@
+module Exchanger
+  # The GetFolder operation gets folders from the Exchanger store.
+  # 
+  # http://msdn.microsoft.com/en-us/library/aa580274.aspx
+  class GetFolder < Operation
+    class Request < Operation::Request
+      attr_accessor :folder_ids, :base_shape, :email_address
+
+      # Reset request options to defaults.
+      def reset
+        @folder_ids = []
+        @base_shape = :default
+        @email_address = nil
+      end
+
+      def to_xml
+        Nokogiri::XML::Builder.new do |xml|
+          xml.send("soap:Envelope", "xmlns:soap" => NS["soap"]) do
+            xml.send("soap:Body") do
+              xml.GetFolder("xmlns" => NS["m"], "xmlns:t" => NS["t"]) do
+                xml.FolderShape do
+                  xml.send "t:BaseShape", base_shape.to_s.camelize
+                end
+                xml.FolderIds do
+                  folder_ids.each do |folder_id|
+                    if folder_id.is_a?(Symbol)
+                      xml.send("t:DistinguishedFolderId", "Id" => folder_id) do
+                        if email_address
+                          xml.send("t:Mailbox") do
+                            xml.send("t:EmailAddress", email_address)
+                          end
+                        end
+                      end
+                    else
+                      xml.send("t:FolderId", "Id" => folder_id)
+                    end
+                  end
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+
+    class Response < Operation::Response
+      def folders
+        to_xml.xpath(".//m:Folders", NS).children.map do |node|
+          folder_klass = Exchanger.const_get(node.name)
+          folder_klass.new_from_xml(node)
+        end
+      end
+    end
+  end
+end

data/lib/exchanger/operations/get_item.rb

@@ -0,0 +1,44 @@
+module Exchanger
+  # The GetItem operation gets items from the Exchanger store.
+  # 
+  # http://msdn.microsoft.com/en-us/library/aa565934.aspx
+  class GetItem < Operation
+    class Request < Operation::Request
+      attr_accessor :item_ids, :base_shape
+
+      # Reset request options to defaults.
+      def reset
+        @item_ids = []
+        @base_shape = :all_properties
+      end
+
+      def to_xml
+        Nokogiri::XML::Builder.new do |xml|
+          xml.send("soap:Envelope", "xmlns:soap" => NS["soap"]) do
+            xml.send("soap:Body") do
+              xml.GetItem("xmlns" => NS["m"], "xmlns:t" => NS["t"]) do
+                xml.ItemShape do
+                  xml.send "t:BaseShape", base_shape.to_s.camelize
+                end
+                xml.ItemIds do
+                  item_ids.each do |item_id|
+                    xml.send("t:ItemId", "Id" => item_id)
+                  end
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+
+    class Response < Operation::Response
+      def items
+        to_xml.xpath(".//m:Items", NS).children.map do |node|
+          item_klass = Exchanger.const_get(node.name)
+          item_klass.new_from_xml(node)
+        end
+      end
+    end
+  end
+end

data/lib/exchanger/operations/resolve_names.rb

@@ -0,0 +1,43 @@
+module Exchanger
+  # The ResolveNames operation resolves ambiguous e-mail addresses and display names.
+  # 
+  # http://msdn.microsoft.com/en-us/library/aa563518.aspx
+  class ResolveNames < Operation
+    class Request < Operation::Request
+      attr_accessor :name
+
+      # Reset request options to defaults.
+      def reset
+        @name = nil
+      end
+
+      def to_xml
+        Nokogiri::XML::Builder.new do |xml|
+          xml.send("soap:Envelope", "xmlns:soap" => NS["soap"]) do
+            xml.send("soap:Body") do
+              xml.ResolveNames("xmlns" => NS["m"], "xmlns:t" => NS["t"], "ReturnFullContactData" => "true") do
+                xml.UnresolvedEntry name
+              end
+            end
+          end
+        end
+      end
+    end
+
+    class Response < Operation::Response
+      def mailboxes
+        to_xml.xpath(".//t:Mailbox", NS).map do |node|
+          item_klass = Exchanger.const_get(node.name)
+          item_klass.new_from_xml(node)
+        end
+      end
+
+      def contacts
+        to_xml.xpath(".//t:Contact", NS).map do |node|
+          item_klass = Exchanger.const_get(node.name)
+          item_klass.new_from_xml(node)
+        end
+      end
+    end
+  end
+end

data/lib/exchanger/operations/update_item.rb

@@ -0,0 +1,43 @@
+module Exchanger
+  # The UpdateItem operation is used to modify the properties of an existing item in the Exchanger store.
+  # 
+  # http://msdn.microsoft.com/en-us/library/aa581084.aspx
+  # http://msdn.microsoft.com/en-us/library/aa579673.aspx
+  class UpdateItem < Operation
+    class Request < Operation::Request
+      attr_accessor :items
+
+      # Reset request options to defaults.
+      def reset
+        @items = []
+      end
+
+      def to_xml
+        Nokogiri::XML::Builder.new do |xml|
+          xml.send("soap:Envelope", "xmlns:soap" => NS["soap"], "xmlns:t" => NS["t"], "xmlns:xsi" => NS["xsi"], "xmlns:xsd" => NS["xsd"]) do
+            xml.send("soap:Body") do
+              xml.UpdateItem("xmlns" => NS["m"], "ConflictResolution" => "AlwaysOverwrite") do
+                xml.ItemChanges do
+                  items.each do |item|
+                    item_change = item.to_xml_change
+                    item_change.add_namespace_definition("t", NS["t"])
+                    item_change.namespace = item_change.namespace_definitions[0]
+                    xml << item_change.to_s
+                  end
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+
+    class Response < Operation::Response
+      def item_ids
+        to_xml.xpath(".//t:ItemId", NS).map do |node|
+          Identifier.new_from_xml(node)
+        end
+      end
+    end
+  end
+end

data/lib/exchanger/persistence.rb

@@ -0,0 +1,27 @@
+module Exchanger
+  module Persistence
+    def new_record?
+      not id
+    end
+
+    def save
+      if new_record?
+        create
+      else
+        update
+      end
+    end
+
+    # Reloads the +Element+ attributes from Exchanger.
+    def reload
+      if new_record?
+        false
+      else
+        reloaded_element = self.class.find(self.id)
+        @attributes = reloaded_element.attributes
+        reset_modifications
+        true
+      end
+    end
+  end
+end

data/spec/calendar_item_spec.rb

@@ -0,0 +1,26 @@
+require "spec/spec_helper"
+
+describe Exchanger::CalendarFolder do
+  before do
+    @folder = Exchanger::Folder.find(:calendar, "edgars.beigarts@tieto.com")
+  end
+
+  it "should return calendar folder" do
+    @folder.class.should == Exchanger::CalendarFolder
+  end
+
+  it "should have calendar items" do
+    @folder.items.size.should > 0
+  end
+end
+
+describe Exchanger::CalendarItem do
+  before do
+    @folder = Exchanger::Folder.find(:calendar, "edgars.beigarts@tieto.com")
+    @item = @folder.items.first
+  end
+
+  it "should have start time" do
+    @item.start.class.should == Time
+  end
+end