viewpoint 0.1.26 → 1.1.1

data/lib/{exceptions/exceptions.rb → ews/errors.rb}

@@ -15,32 +15,42 @@
   See the License for the specific language governing permissions and
   limitations under the License.
 =end
-module Viewpoint
-  module EWS
 
-    # Generic Ews Error
-    class EwsError < StandardError
-    end
+module Viewpoint::EWS::Errors
+  class ResponseError < RuntimeError
+    attr_reader :response
 
-    # Raise when authentication/authorization issues occur.
-    class EwsLoginError < StandardError
+    def initialize(message, response)
+      super(message)
+      @response = response
     end
 
-    # Raised when a user tries to query a folder subscription after the
-    # subscription has timed out.
-    class EwsSubscriptionTimeout < StandardError
+    def status
+      response.status
     end
 
-    # Represents a function in EWS that is not yet implemented in Viewpoint
-    class EwsNotImplemented < StandardError
+    def body
+      response.body
     end
+  end
+
+  class UnhandledResponseError < ResponseError
+  end
 
-    # Raised when an method is called in the wrong way
-    class EwsBadArgumentError < StandardError; end
+  class ServerError < ResponseError
+  end
 
-    # Raised when a folder that is asked for is not found
-    class EwsFolderNotFound < StandardError; end
+  class UnauthorizedResponseError < ResponseError
+  end
 
-  end # EWS
-end # Viewpoint
- 
+  class SoapResponseError < ResponseError
+    attr_reader :faultcode,
+                :faultstring
+
+    def initialize(message, response, faultcode, faultstring)
+      super(message, response)
+      @faultcode = faultcode
+      @faultstring = faultstring
+    end
+  end
+end

data/lib/ews/ews_client.rb

@@ -0,0 +1,105 @@
+require 'ews/folder_accessors'
+require 'ews/item_accessors'
+require 'ews/message_accessors'
+require 'ews/mailbox_accessors'
+require 'ews/push_subscription_accessors'
+require 'ews/calendar_accessors'
+require 'ews/room_accessors'
+require 'ews/roomlist_accessors'
+require 'ews/convert_accessors'
+require 'ews/meeting_accessors'
+
+# This class is the glue between the Models and the Web Service.
+class Viewpoint::EWSClient
+  include Viewpoint::EWS
+  include Viewpoint::EWS::FolderAccessors
+  include Viewpoint::EWS::ItemAccessors
+  include Viewpoint::EWS::MessageAccessors
+  include Viewpoint::EWS::MailboxAccessors
+  include Viewpoint::EWS::PushSubscriptionAccessors
+  include Viewpoint::EWS::CalendarAccessors
+  include Viewpoint::EWS::RoomAccessors
+  include Viewpoint::EWS::RoomlistAccessors
+  include Viewpoint::EWS::ConvertAccessors
+  include Viewpoint::EWS::MeetingAccessors
+  include Viewpoint::StringUtils
+
+  # The instance of Viewpoint::EWS::SOAP::ExchangeWebService
+  attr_reader :ews, :endpoint, :username
+
+  # Initialize the EWSClient instance.
+  # @param [String] endpoint The EWS endpoint we will be connecting to
+  # @param [String] user The user to authenticate as. If you are using
+  #   NTLM or Negotiate authentication you do not need to pass this parameter.
+  # @param [String] pass The user password. If you are using NTLM or
+  #   Negotiate authentication you do not need to pass this parameter.
+  # @param [Hash] opts Various options to pass to the backends
+  # @option opts [String] :server_version The Exchange server version to
+  #   target. See the VERSION_* constants in
+  #   Viewpoint::EWS::SOAP::ExchangeWebService.
+  # @option opts [Object] :http_class specify an alternate HTTP connection class.
+  # @option opts [Hash] :http_opts options to pass to the connection
+  def initialize(endpoint, username, password, opts = {})
+    # dup all. @see ticket https://github.com/zenchild/Viewpoint/issues/68
+    @endpoint = endpoint.dup
+    @username = username.dup
+    password  = password.dup
+    opts      = opts.dup
+    http_klass = opts[:http_class] || Viewpoint::EWS::Connection
+    con = http_klass.new(endpoint, opts[:http_opts] || {})
+    con.set_auth @username, password
+    @ews = SOAP::ExchangeWebService.new(con, opts)
+  end
+
+  # @param deepen [Boolean] true to autodeepen, false otherwise
+  # @param behavior [Symbol] :raise, :nil When setting autodeepen to false you
+  #   can choose what the behavior is when an attribute does not exist. The
+  #   default is to raise a EwsMinimalObjectError.
+  def set_auto_deepen(deepen, behavior = :raise)
+    if deepen
+      ews.auto_deepen = true
+    else
+      behavior = [:raise, :nil].include?(behavior) ? behavior : :raise
+      ews.no_auto_deepen_behavior = behavior
+      ews.auto_deepen = false
+    end
+  end
+
+  def auto_deepen=(deepen)
+    set_auto_deepen deepen
+  end
+
+  # Specify a default time zone context for all time attributes
+  # @param id [String] Identifier of a Microsoft well known time zone (e.g: 'UTC', 'W. Europe Standard Time')
+  # @note A list of time zones known by the server can be requested via {EWS::SOAP::ExchangeTimeZones#get_time_zones}
+  def set_time_zone(microsoft_time_zone_id)
+    ews.set_time_zone_context microsoft_time_zone_id
+  end
+
+  private
+
+
+  # This method also exists in EWS::Types, but there is a lot of other stuff
+  # in there that I didn't want to include directly in this class.
+  def class_by_name(cname)
+    if(cname.instance_of? Symbol)
+      cname = camel_case(cname)
+    end
+    Viewpoint::EWS::Types.const_get(cname)
+  end
+
+  # Used for multiple accessors
+  def merge_restrictions!(obj, merge_type = :and)
+    if obj.opts[:restriction] && !obj.opts[:restriction].empty? && !obj.restriction.empty?
+      obj.opts[:restriction] = {
+        merge_type => [
+          obj.opts.delete(:restriction),
+          obj.restriction
+        ]
+      }
+    elsif !obj.restriction.empty?
+      obj.opts[:restriction] = obj.restriction
+    end
+  end
+
+end

data/lib/ews/exceptions/exceptions.rb

@@ -0,0 +1,61 @@
+=begin
+  This file is part of Viewpoint; the Ruby library for Microsoft Exchange Web Services.
+
+  Copyright © 2011 Dan Wanek <dan.wanek@gmail.com>
+
+  Licensed under the Apache License, Version 2.0 (the "License");
+  you may not use this file except in compliance with the License.
+  You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+=end
+module Viewpoint::EWS
+
+  # Generic Ews Error
+  class EwsError < StandardError; end
+
+  # Raise when authentication/authorization issues occur.
+  class EwsLoginError < EwsError; end
+
+  class EwsSubscriptionError < EwsError; end
+
+  # Raised when a user tries to query a folder subscription after the
+  # subscription has timed out.
+  class EwsSubscriptionTimeout < EwsSubscriptionError; end
+
+  # Represents a function in EWS that is not yet implemented in Viewpoint
+  class EwsNotImplemented < EwsError; end
+
+  # Raised when an method is called in the wrong way
+  class EwsBadArgumentError < EwsError; end
+
+  # Raised when an item that is asked for is not found
+  class EwsItemNotFound < EwsError; end
+
+  # Raised when a folder that is asked for is not found
+  class EwsFolderNotFound < EwsError; end
+
+  # Raise an Exchange Server version error. This is in case some functionality
+  # does not exist in a particular Server version but is called.
+  class EwsServerVersionError < EwsError; end
+
+  # Raised when #auto_deepen == false and a method is called for attributes
+  # that have not yet been fetched.
+  class EwsMinimalObjectError < EwsError; end
+
+  class EwsFrozenObjectError < EwsError; end
+
+  # Failed to save an object back to the EWS store.
+  class SaveFailed < EwsError; end
+
+  class EwsCreateItemError < EwsError; end
+
+  class EwsSendItemError < EwsError; end
+
+end # Viewpoint::EWS

data/lib/ews/folder_accessors.rb

@@ -0,0 +1,264 @@
+=begin
+  This file is part of Viewpoint; the Ruby library for Microsoft Exchange Web Services.
+
+  Copyright © 2011 Dan Wanek <dan.wanek@gmail.com>
+
+  Licensed under the Apache License, Version 2.0 (the "License");
+  you may not use this file except in compliance with the License.
+  You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+=end
+module Viewpoint::EWS::FolderAccessors
+  include Viewpoint::EWS
+
+  FOLDER_TYPE_MAP = {
+    :mail     => 'IPF.Note',
+    :calendar => 'IPF.Appointment',
+    :task     => 'IPF.Task',
+  }
+
+  # Find subfolders of the passed root folder.  If no parameters are passed this
+  # method will search from the Root folder.
+  # @param [Hash] opts Misc options to control request
+  # @option opts [String,Symbol] :root Either a FolderId(String) or a
+  #   DistinguishedFolderId(Symbol) . This is where to start the search from.
+  #   Usually :root,:msgfolderroot, or :publicfoldersroot
+  # @option opts [Symbol] :traversal :shallow/:deep/:soft_deleted
+  # @option opts [Symbol] :shape :id_only/:default/:all_properties
+  # @option opts [optional, String] :folder_type an optional folder type to
+  #   limit the search to like 'IPF.Task'
+  # @return [Array] Returns an Array of Folder or subclasses of Folder
+  # @raise [EwsError] raised when the backend SOAP method returns an error.
+  def folders(opts={})
+    opts = opts.clone
+    args = find_folders_args(opts)
+    obj = OpenStruct.new(opts: args, restriction: {})
+    yield obj if block_given?
+    merge_restrictions! obj
+    resp = ews.find_folder( args )
+    find_folders_parser(resp)
+  end
+  alias :find_folders :folders
+
+  # Get a specific folder by id or symbol
+  # @param [String,Symbol,Hash] folder_id Either a FolderId(String) or a
+  #   DistinguishedFolderId(Symbol). You can also pass a Hash in the form:
+  #   {id: <fold_id>, change_key: <change_key>}
+  # @param [Hash] opts Misc options to control request
+  # @option opts [Symbol] :shape :id_only/:default/:all_properties
+  # @option opts [String,nil] :act_as User to act on behalf as. This user must
+  #   have been given delegate access to the folder or this operation will fail.
+  # @raise [EwsError] raised when the backend SOAP method returns an error.
+  def get_folder(folder_id, opts = {})
+    opts = opts.clone
+    args = get_folder_args(folder_id, opts)
+    resp = ews.get_folder(args)
+    get_folder_parser(resp)
+  end
+
+  # Get a specific folder by its name
+  # @param [String] name The folder name
+  # @param [Hash] opts Misc options to control request
+  # @option opts [String,Symbol] :parent Either a FolderId(String) or a
+  #   DistinguishedFolderId(Symbol) . This is the parent folder.
+  # @option opts [Symbol] :shape :id_only/:default/:all_properties
+  # @option opts [String,nil] :act_as User to act on behalf as. This user must
+  #   have been given delegate access to the folder or this operation will fail.
+  # @raise [EwsError] raised when the backend SOAP method returns an error.
+  def get_folder_by_name(name, opts={})
+    opts = opts.clone
+    opts[:root] = opts.delete(:parent)
+    folders(opts) do |obj|
+      obj.restriction = {
+        :is_equal_to =>
+        [
+          {:field_uRI => {:field_uRI=>'folder:DisplayName'}},
+          {:field_uRI_or_constant => {:constant => {:value=>name}}}
+        ]
+      }
+    end.first
+  end
+
+  # @param [String] name The name of the new folder
+  # @param [Hash] opts
+  # @option opts [String,Symbol] :parent Either a FolderId(String) or a
+  #   DistinguishedFolderId(Symbol) . This is the parent folder.
+  # @option opts [Symbol] :type the type of folder to create. must be one of
+  #   :folder, :calendar, :contacts, :search, or :tasks
+  # @see http://msdn.microsoft.com/en-us/library/aa580808.aspx
+  def make_folder(name, opts={})
+    parent = opts[:parent] || :msgfolderroot
+    resp = ews.create_folder :parent_folder_id => {:id => parent},
+      :folders => [folder_type(opts[:type]) => {:display_name => name}]
+    create_folder_parser(resp).first
+  end
+  alias :mkfolder :make_folder
+
+  # Get a specific folder by id or symbol
+  # @param [Hash] opts Misc options to control request
+  # @option opts [Symbol] :shape :id_only/:default/:all_properties
+  # @option opts [String,Symbol,Hash] :folder_id You can optionally specify a
+  #   folder_id to limit the hierarchy synchronization to it. It must be a
+  #   FolderId(String), a DistinguishedFolderId(Symbol) or you can pass a Hash
+  #   in the form: {id: <fold_id>, change_key: <change_key>}
+  # @option opts [String] :sync_state an optional Base64 encoded SyncState
+  #   String from a previous sync call.
+  # @yield [Hash] yields the formatted argument Hash for last-minute
+  #   modification before calling the backend EWS method.
+  # @return [Hash] A hash with the following keys
+  #   :all_synced, whether or not additional calls are needed to get all folders
+  #   :sync_state, the sync state to use for the next call
+  #   and the following optional keys depending on the changes
+  #   :create, :update, :delete
+  # @raise [EwsError] raised when the backend SOAP method returns an error.
+  def sync_folders(opts = {})
+    opts = opts.clone
+    args = sync_folders_args(opts)
+    yield args if block_given?
+    resp = ews.sync_folder_hierarchy( args )
+    sync_folders_parser(resp)
+  end
+
+
+private
+
+  # Build up the arguements for #find_folders
+  def find_folders_args(opts)
+    opts[:root] = opts[:root] || :msgfolderroot
+    opts[:traversal] = opts[:traversal] || :shallow
+    opts[:shape] = opts[:shape] || :default
+    folder_id = {:id => opts[:root]}
+    folder_id[:act_as] = opts[:act_as] if opts[:act_as]
+    if( opts[:folder_type] )
+      restr = { :is_equal_to => 
+        [
+          {:field_uRI => {:field_uRI=>'folder:FolderClass'}},
+          {:field_uRI_or_constant=>{:constant =>
+            {:value => map_folder_type(opts[:folder_type])}}},
+        ]
+      }
+    end
+    args = {
+      :parent_folder_ids => [folder_id],
+      :traversal => opts[:traversal],
+      :folder_shape => {:base_shape => opts[:shape]}
+    }
+    args[:restriction] = restr if restr
+    args
+  end
+
+  # @param [Viewpoint::EWS::SOAP::EwsSoapResponse] resp
+  def find_folders_parser(resp)
+    if resp.status == 'Success'
+      folders = resp.response_message[:elems][:root_folder][:elems][0][:folders][:elems]
+      return [] if folders.nil?
+      folders.collect do |f|
+        ftype = f.keys.first
+        class_by_name(ftype).new(ews, f[ftype])
+      end
+    else
+      raise EwsFolderNotFound, "Could not retrieve folders. #{resp.code}: #{resp.message}"
+    end
+  end
+
+  def create_folder_parser(resp)
+    if resp.status == 'Success'
+      folders = resp.response_message[:elems][:folders][:elems]
+      folders.collect do |f|
+        ftype = f.keys.first
+        class_by_name(ftype).new(ews, f[ftype])
+      end
+    else
+      raise EwsError, "Could not create folder. #{resp.code}: #{resp.message}"
+    end
+  end
+
+  # Build up the arguements for #get_folder
+  def get_folder_args(folder_id, opts)
+    opts[:shape] ||= :default
+    default_args =  {
+      :folder_shape => {:base_shape => opts[:shape]}
+    }
+    if folder_id.is_a?(Hash)
+      default_args[:folder_ids] = [folder_id]
+    else
+      default_args[:folder_ids] = [{:id => folder_id}]
+    end
+    default_args.merge opts
+  end
+
+  # @param [Viewpoint::EWS::SOAP::EwsSoapResponse] resp
+  def get_folder_parser(resp)
+    if(resp.status == 'Success')
+      f = resp.response_message[:elems][:folders][:elems][0]
+      ftype = f.keys.first
+      class_by_name(ftype).new(ews, f[ftype])
+    else
+      raise EwsFolderNotFound, "Could not retrieve folder. #{resp.code}: #{resp.message}"
+    end
+  end
+
+  def sync_folders_args(opts)
+    opts[:shape] = opts[:shape] || :default
+    args = { :folder_shape => {:base_shape => opts[:shape]} }
+    if opts[:folder_id]
+      folder_id = opts[:folder_id]
+      if folder_id.is_a?(Hash)
+        args[:sync_folder_id] = folder_id
+      else
+        args[:sync_folder_id] = {:id => folder_id}
+      end
+    end
+    args[:sync_state] = opts[:sync_state] if opts[:sync_state]
+    args
+  end
+
+  def sync_folders_parser(resp)
+    rmsg = resp.response_messages[0]
+    if rmsg.success?
+      rhash = {}
+      rhash[:all_synced] = rmsg.includes_last_folder_in_range?
+      rhash[:sync_state] = rmsg.sync_state
+      rmsg.changes.each do |c|
+        ctype = c.keys.first
+        rhash[ctype] = [] unless rhash.has_key?(ctype)
+        if ctype == :delete
+          rhash[ctype] << c[ctype][:elems][0][:folder_id][:attribs]
+        else
+          type = c[ctype][:elems][0].keys.first
+          item = class_by_name(type).new(ews, c[ctype][:elems][0][type])
+          rhash[ctype] << item
+        end
+      end
+      rhash
+    else
+      raise EwsError, "Could not synchronize folders. #{rmsg.response_code}: #{rmsg.message_text}"
+    end
+  end
+
+  # Map a passed parameter to a know folder type mapping. If no mapping
+  # exits simply allow the passed in type to be passed to the SOAP call.
+  # @param [Symbol] type a symbol in FOLDER_TYPE_MAP
+  def map_folder_type(type)
+    FOLDER_TYPE_MAP[type] || type
+  end
+
+  def folder_type(type)
+    case type
+    when nil, :folder
+      :folder
+    when :calendar, :contacts, :search, :tasks
+      "#{type}_folder".to_sym
+    else
+      raise EwsBadArgumentError, "Not a proper folder type: :#{type}"
+    end
+  end
+
+end