rhoconnect-adapters 1.0.0.beta1

data/generators/crm/vendor/ms_dynamics/lib/wlid_service.rb

@@ -0,0 +1,159 @@
+module RhoconnectAdapters
+  module CRM
+    module MsDynamics
+      class WlidService < SoapService
+        def self.get_ticket(user_name,password)
+          # device client ID
+          client_id = UUIDTools::UUID.random_create
+          # random device name
+          device_name = rand(10000).to_s+'12345678901234567890'
+          # random device password
+          device_password = 'random-device-password'
+          # authentication policy
+          policy = "MBI_SSL"
+          # open information about CRM Online
+          partner = "crm.dynamics.com";
+          # Get authorization endpoint  
+          authorization_endpoint = self._get_authorization_endpoint
+          # Do the following once per machine.  
+          # Register each machine that you need to authenticate with.
+          self._register_machine(device_name,device_password,client_id)
+          # Get device token based for the registered machine
+          device_token = self._get_device_token(authorization_endpoint,device_name,device_password)
+          # Get WLID Ticket for the user
+          self._get_ticket(authorization_endpoint,user_name,password,partner,policy,client_id,device_token)
+        end
+  
+        private
+        class << self
+          def _get_authorization_endpoint
+            xml = RestClient.get("https://nexus.passport.com/federationmetadata/2006-12/FederationMetaData.xml")
+            federation_metadata = Nokogiri::XML(xml)
+            federation_metadata.xpath("//fed:FederationMetadata/fed:Federation/fed:TargetServiceEndpoint/wsa:Address").text.strip
+          end
+
+          # Registers a machine/device with the device registration Windows Live ID service. 
+          # Device registration is required only once per computer or device.
+          # The result of this request will contain the PUID (Device ID) of the device registered 
+          # and should be saved for later use.
+          # device_name - The random device name to use for this registration.
+          # device_password - The random device password to use for this registration.
+          # client_id - The app GUID, a unique id for the client/application.
+          def _register_machine(device_name,device_password,client_id)
+            device_registration_request =
+              "<DeviceAddRequest>
+                <ClientInfo name=\"#{client_id}\" version=\"1.0\"/>
+                <Authentication>
+                  <Membername>11#{device_name}</Membername>
+                  <Password>#{device_password}</Password>
+                </Authentication>
+              </DeviceAddRequest>"
+            windows_live_device_url = "https://login.live.com/ppsecure/DeviceAddCredential.srf"
+            doc = send_request(windows_live_device_url,device_registration_request,nil,"application/soap+xml; charset=UTF-8")
+            raise "Can't register machine with Wndows Live ID" if select_node(doc,'//DeviceAddResponse/@Success').to_s.strip != 'true'
+          end
+
+          # Validate Windows Live ID response for any exception.
+          # doc - The Windows Live ID service response.
+          # source - An exception source.
+          # Raise runtime error is request is invalid 
+          def _is_response_valid(doc,source)
+            if select_node(doc,'//s:Fault').size > 0
+              error = "Unknown error"
+              begin
+                reason = select_node_text(doc,'//s:Reason/s:Text')
+                details = select_node_text(doc,'//psf:text')
+                code = select_node_text(doc,'//psf:code')
+                error = "#{reason} (#{code}): #{details}" 
+              rescue; end
+              begin
+                raise "#{self.name} error w/ #{source}: #{error}"
+              rescue Exception => ex
+                warn "#{self.name} error: " + ex.inspect.strip
+                ex.backtrace.each { |line| warn 'from ' + line } 
+                raise ex
+              end    
+            end
+          end
+      
+          def _compose_header(user_token_id,user,password,client_id=nil,device_token=nil)
+            app_info = client_id ?
+              "<ps:AuthInfo Id=\"PPAuthInfo\" xmlns:ps=\"http://schemas.microsoft.com/LiveID/SoapServices/v1\">
+                <ps:HostingApp>#{client_id}</ps:HostingApp>
+              </ps:AuthInfo>" : ""
+            binary_security_token = device_token ?
+              "<wsse:BinarySecurityToken ValueType=\"urn:liveid:device\">
+                #{device_token}
+              </wsse:BinarySecurityToken>" : ""
+            header = "
+              <wsa:Action s:mustUnderstand=\"1\">http://schemas.xmlsoap.org/ws/2005/02/trust/RST/Issue</wsa:Action>
+              <wsa:To s:mustUnderstand=\"1\">http://Passport.NET/tb</wsa:To>  
+              #{app_info}  
+              <wsse:Security>
+              <wsse:UsernameToken wsu:Id=\"#{user_token_id}\">
+                <wsse:Username>#{user}</wsse:Username>
+                <wsse:Password>#{password}</wsse:Password>
+              </wsse:UsernameToken>
+              #{binary_security_token}
+              </wsse:Security>"
+          end
+      
+          def _compose_body(address,policy=nil)
+            policy_reference = policy ? "<wsp:PolicyReference URI=\"#{policy}\"/>" : ""
+            body = "
+              <wst:RequestSecurityToken Id=\"RST0\">
+                <wst:RequestType>http://schemas.xmlsoap.org/ws/2005/02/trust/Issue</wst:RequestType>
+                <wsp:AppliesTo>
+                  <wsa:EndpointReference>
+                    <wsa:Address>#{address}</wsa:Address>
+                  </wsa:EndpointReference>
+                </wsp:AppliesTo>
+                #{policy_reference}
+              </wst:RequestSecurityToken>"  
+          end
+        
+          # Get a device authorization token from the Windows Live ID service.
+          # authorization_endpoint - Authorization endpoint
+          # device_name - The random device name used for this registration.
+          # device_password - The random device password used for this registration.
+          # Returns - The device token to use when retrieving a user token
+          def _get_device_token(authorization_endpoint,device_name,device_password)
+              header = _compose_header('devicesoftware',"11#{device_name}",device_password)
+              body = _compose_body('http://Passport.NET/tb')
+              message = compose_message(header,body)          
+              # call authorization endpoint
+              doc = send_request(authorization_endpoint,message,nil,"application/soap+xml; charset=UTF-8")
+              # validate response and raise if invalid
+              _is_response_valid(doc,"IssueDeviceToken")
+              # get device token
+              select_node(doc,'//wst:RequestedSecurityToken/*')
+          end
+
+          # Gets a Windows Live ID RequestSecurityTokenResponse ticket for a specified user.  
+          # authorization_endpoint - Authorization endpoint
+          # user_name - The Windows Live ID email address for the user.
+          # password - The Windows Live ID password for the user.
+          # partner - sitename, i.e. crmapp.www.local-titan.com
+          # policy - auth policy, i.e. MBI_SSL
+          # client_id - The unique id of the client/application
+          # device_token - The device token xml
+          # Returns - A string that contains the Windows Live ID ticket for 
+          # the supplied paramters and ticket expiration date/time
+          def _get_ticket(authorization_endpoint,user_name,password,partner,policy,client_id,device_token)
+              header = _compose_header('user',user_name,password,client_id,device_token)
+              body = _compose_body(partner,policy)
+              message = compose_message(header,body)
+              # call authorization endpoint
+              doc = send_request(authorization_endpoint,message,nil,"application/soap+xml; charset=UTF-8")
+              # validate response and raise if invalid
+              _is_response_valid(doc,"IssueTicket")
+              # get ticket
+              expires = DateTime.parse(select_node_text(doc,'//wst:Lifetime/wsu:Expires'))
+              ticket = select_node_text(doc,'//wsse:BinarySecurityToken')
+              [CGI::escape(ticket),expires]
+          end
+        end
+      end
+    end
+  end
+end

data/generators/crm/vendor/ms_dynamics/ms_dynamics.rb

@@ -0,0 +1,45 @@
+require 'rubygems'
+require 'uuidtools'
+require 'rest-client'
+require 'nokogiri'
+require 'date'
+
+require 'rhoconnect-adapters/soap_service'
+require 'vendor/ms_dynamics/lib/wlid_service'
+require 'vendor/ms_dynamics/lib/discovery_service'
+require 'vendor/ms_dynamics/lib/crm_service'
+require 'vendor/ms_dynamics/lib/crm_metadata_service'
+
+module RhoconnectAdapters
+  module CRM
+    module MsDynamics
+      RhoconnectAdapters::SoapService.node_namespaces.merge!({'cds' => 'http://schemas.microsoft.com/crm/2007/CrmDiscoveryService',
+                                                  'wst' => 'http://schemas.xmlsoap.org/ws/2005/02/trust',
+                                                  's'   => 'http://www.w3.org/2003/05/soap-envelope',
+                                                  'psf' => 'http://schemas.microsoft.com/Passport/SoapServices/SOAPFault',
+                                                  'cws6' => 'http://schemas.microsoft.com/crm/2006/WebServices',
+                                                  'cws7' => 'http://schemas.microsoft.com/crm/2007/WebServices'});
+      RhoconnectAdapters::SoapService.envelope_namespaces += <<-DESC
+        xmlns:s=\"http://www.w3.org/2003/05/soap-envelope\" 
+        xmlns:wsp=\"http://schemas.xmlsoap.org/ws/2004/09/policy\" 
+        xmlns:wsa=\"http://www.w3.org/2005/08/addressing\" 
+        xmlns:wst=\"http://schemas.xmlsoap.org/ws/2005/02/trust\"
+      DESC
+    
+      class << self
+        def save_auth_info(username,auth_info)
+          Store.put_data(auth_info_key(username),"#{username}"=>auth_info)
+        end
+
+        def load_auth_info(username)
+          Store.get_data(auth_info_key(username))[username]
+        end
+
+        private
+        def auth_info_key(username)
+          "#{username}-msdynamics-auth-info"
+        end
+      end
+    end
+  end
+end

data/generators/crm/vendor/ms_dynamics/settings/Account.yml

@@ -0,0 +1,46 @@
+Query_Fields:
+    # This is just a sample list of fields 
+    # that are used in Query
+    accountid:
+        Label: Id
+        Type: id
+    name: 
+        Label: Name
+        Type: textinput
+    accountnumber:
+        Label: Account Number
+        Type: textinput
+    telephone1:
+        Label: Main Phone
+        Type: textinput    
+    emailaddress1:
+        Label: E-mail
+        Type: textinput
+    websiteurl:
+        Label: Web Site
+        Type: textinput
+    accountcategorycode:
+        Label: Category
+        Type: Picklist
+    industrycode: 
+        Label: Industry
+        Type: Picklist
+    numberofemployees: 
+        Label: Number Of Employees
+        Type: textinput
+    description:
+        Label: Description
+        Type: textarea
+        
+AttributeTypePicklists:
+    # these Picklists define values
+    # for artificially constructed fields
+    # that are really represent some other field's type
+
+ObjectFields:
+    # these are reference fields to the other objects
+
+TitleFields:
+    # these fields are concatenated to show the record
+    # in the Index form
+    - name

data/generators/crm/vendor/ms_dynamics/settings/Contact.yml

@@ -0,0 +1,40 @@
+Query_Fields:
+    # This is just a sample list of fields 
+    # that are used in QueryPage
+    contactid:
+      Label: Id
+      Type: id
+    firstname:
+      Label: First Name
+      Type: textinput
+    lastname:
+      Label: Last Name
+      Type: textinput
+    jobtitle:
+      Label: Job Title
+      Type: textinput
+    emailaddress1:
+      Label: E-mail
+      Type: textinput
+    telephone1:
+      Label: Main Phone
+      Type: textinput
+    mobilephone:
+      Label: Cell Phone
+      Type: textinput
+    description:
+      Label: Description
+      Type: textarea
+
+AttributeTypePicklists:
+    # these Picklists define values
+    # for artificially constructed fields
+    # that are really represent some other field's type
+
+ObjectFields:
+
+TitleFields:
+    # these fields are concatenated to show the record
+    # in the Index form
+    - lastname
+    - firstname

data/generators/crm/vendor/ms_dynamics/settings/GenericObject.yml

@@ -0,0 +1,18 @@
+Query_Fields:
+    # This is just a sample list of fields 
+    # that are used in Query request
+    Id:
+        Label: Id
+        Type: id
+        
+AttributeTypePicklists:
+    # these Picklists define values
+    # for artificially constructed fields
+    # that are really represent some other field's type
+    
+ObjectFields:
+    # these are reference fields to the other objects
+
+TitleFields:
+    # these fields are concatenated to show the record
+    # in the Index form

data/generators/crm/vendor/ms_dynamics/settings/Lead.yml

@@ -0,0 +1,53 @@
+Query_Fields:
+    # This is just a sample list of fields 
+    # that are used in Query
+    leadid:
+      Label: Id
+      Type: id
+    firstname:
+      Label: First Name
+      Type: textinput
+    lastname:
+      Label: Last Name
+      Type: textinput
+    mobilephone:
+      Label: Cell Phone
+      Type: textinput
+    emailaddress1:
+      Label: E-mail
+      Type: textinput
+    companyname:
+      Label: Company
+      Type: textinput
+    jobtitle:
+      Label: Job Title
+      Type: textinput
+    estimatedvalue:
+      Label: Estimated Value
+      Type: textinput
+    estimatedclosedate:
+      Label: Estimated Close Date
+      Type:  textinput
+    address1_country:
+      Label: Country
+      Type: textinput
+    address1_city:
+      Label: City
+      Type: textinput
+    address1_line1:
+      Label: Street Address
+      Type: textinput  
+
+AttributeTypePicklists:
+      # these Picklists define values
+      # for artificially constructed fields
+      # that are really represent some other field's type
+          
+ObjectFields:
+    # these are reference fields to the other objects
+
+TitleFields:
+    # these fields are concatenated to show the record
+    # in the Index form
+    - lastname
+    - firstname

data/generators/crm/vendor/ms_dynamics/settings/Opportunity.yml

@@ -0,0 +1,41 @@
+Query_Fields:
+    # This is just a sample list of fields 
+    # that are used in Query
+    opportunityid:
+      Label: Id
+      Type: id 
+    name:
+      Label: Name
+      Type: textinput
+    description:
+      Label: Description
+      Type: textarea  
+    estimatedvalue:
+      Label: Estimated Value
+      Type: textinput
+    closeprobability:
+      Label: Probability
+      Type: textinput
+    customerid:
+      Label: Customer
+      Type: textinput
+    customerid_attrtype:
+      Label: Customer Type
+      Type: Picklist
+
+AttributeTypePicklists:
+    # these Picklists define values
+    # for artificially constructed fields
+    # that are really represent some other field's type
+    customerid_attrtype:
+        - account
+        - contact
+
+ObjectFields:
+    # these are reference fields to the other objects
+
+TitleFields:
+    # these fields are concatenated to show the record
+    # in the Index form
+    - name
+

data/generators/crm/vendor/ms_dynamics/settings/settings.yml

@@ -0,0 +1,9 @@
+:test: 
+  :msdynamics_ticket_url: rhomobileinc.crm.dynamics.com
+:production: 
+  :msdynamics_ticket_url: rhomobileinc.crm.dynamics.com
+:development:
+  :msdynamics_ticket_url: rhomobileinc.crm.dynamics.com
+
+
+

data/generators/crm/vendor/ms_dynamics/spec/application_spec.rb

@@ -0,0 +1,23 @@
+require File.join(File.dirname(__FILE__),'spec_helper')
+
+describe "Application" do
+  it_should_behave_like "SpecHelper" do
+    def should_be_between(t,start,stop)
+      dt = DateTime.parse(t)
+      dt.should > DateTime.parse(start.to_s)
+      dt.should <= DateTime.parse(stop.to_s)
+    end
+    
+    it "should authenticate" do 
+      auth_info = RhoconnectAdapters::CRM::MsDynamics.load_auth_info(@test_user)
+      now = DateTime.now
+      should_be_between(auth_info['wlid_expires'],now,(now+(60 * 60 * 24)))
+      should_be_between(auth_info['crm_ticket_expires'],now,(now+(60 * 60 * 24)))
+    end
+    
+    it "should not authenticate with wrong credentials" do
+      Application.should_receive(:warn).once.with('Can\'t authenticate user wrong_user: #<RuntimeError: RhoconnectAdapters::CRM::MsDynamics::WlidService error w/ IssueTicket: Authentication Failure (0x80041034): The specified member name is either invalid or empty.&#13;>')
+      Application.authenticate('wrong_user','wrong_password',nil).should be_false
+    end
+  end
+end

data/generators/crm/vendor/ms_dynamics/spec/sources/account_spec.rb

@@ -0,0 +1,49 @@
+require File.join(File.dirname(__FILE__),'..','spec_helper')
+
+describe "Account" do
+  it_should_behave_like "SpecHelper" do
+    before(:each) do
+      sample_data_file = File.join(File.dirname(__FILE__),'..','..','vendor','ms_dynamics','spec_data','Account.yml')
+      @sample_data = YAML.load_file(sample_data_file)['Account'] if sample_data_file and File.exist?(sample_data_file)
+      setup_test_for Account,@test_user
+    end
+  
+    before(:each) do
+      @ss.adapter.login
+    end
+  
+    after(:each) do
+      @ss.adapter.logoff
+    end
+
+    it "should process Account query" do
+      result = test_query
+      puts result.length.inspect
+      query_errors.should == {}
+    end
+  
+    it "should process Account create" do
+      create_hash = @sample_data
+      result = test_create(create_hash)
+      puts result.inspect
+      create_hash['accountid'] = result
+      TestHelpers.created_records = { result => create_hash }
+      create_errors.should == {}
+    end
+  
+    it "should process Account update" do
+      TestHelpers.created_records.each do |key,value|
+        value['name'] = "Sample Update #{key.to_s}"
+      end
+      result = test_update(TestHelpers.created_records)
+      puts result.inspect
+      update_errors.should == {}
+    end
+  
+    it "should process Account delete" do
+      result = test_delete(TestHelpers.created_records)
+      puts result.inspect
+      delete_errors.should == {}
+    end
+  end
+end

data/generators/crm/vendor/ms_dynamics/spec/sources/contact_spec.rb

@@ -0,0 +1,49 @@
+require File.join(File.dirname(__FILE__),'..','spec_helper')
+
+describe "Contact" do
+  it_should_behave_like "SpecHelper" do
+    before(:each) do
+      sample_data_file = File.join(File.dirname(__FILE__),'..','..','vendor','ms_dynamics','spec_data','Contact.yml')
+      @sample_data = YAML.load_file(sample_data_file)['Contact'] if sample_data_file and File.exist?(sample_data_file)
+      setup_test_for Contact,@test_user
+    end
+  
+    before(:each) do
+      @ss.adapter.login
+    end
+  
+    after(:each) do
+      @ss.adapter.logoff
+    end
+
+    it "should process Contact query" do
+      result = test_query
+      puts result.length.inspect
+      query_errors.should == {}
+    end
+  
+    it "should process Contact create" do
+      create_hash = @sample_data
+      result = test_create(create_hash)
+      puts result.inspect
+      create_hash['contactid'] = result
+      TestHelpers.created_records = { result => create_hash }
+      create_errors.should == {}
+    end
+  
+    it "should process Contact update" do
+      TestHelpers.created_records.each do |key,value|
+        value['name'] = "Sample Update #{key.to_s}"
+      end
+      result = test_update(TestHelpers.created_records)
+      puts result.inspect
+      update_errors.should == {}
+    end
+  
+    it "should process Contact delete" do
+      result = test_delete(TestHelpers.created_records)
+      puts result.inspect
+      delete_errors.should == {}
+    end
+  end
+end

data/generators/crm/vendor/ms_dynamics/spec/sources/lead_spec.rb

@@ -0,0 +1,49 @@
+require File.join(File.dirname(__FILE__),'..','spec_helper')
+
+describe "Lead" do
+  it_should_behave_like "SpecHelper" do
+    before(:each) do
+      sample_data_file = File.join(File.dirname(__FILE__),'..','..','vendor','ms_dynamics','spec_data','Lead.yml')
+      @sample_data = YAML.load_file(sample_data_file)['Lead'] if sample_data_file and File.exist?(sample_data_file)
+      setup_test_for Lead,@test_user
+    end
+  
+    before(:each) do
+      @ss.adapter.login
+    end
+  
+    after(:each) do
+      @ss.adapter.logoff
+    end
+
+    it "should process Lead query" do
+      result = test_query
+      puts result.length.inspect
+      query_errors.should == {}
+    end
+  
+    it "should process Lead create" do
+      create_hash = @sample_data
+      result = test_create(create_hash)
+      puts result.inspect
+      create_hash['leadid'] = result
+      TestHelpers.created_records = { result => create_hash }
+      create_errors.should == {}
+    end
+  
+    it "should process Lead update" do
+      TestHelpers.created_records.each do |key,value|
+        value['name'] = "Sample Update #{key.to_s}"
+      end
+      result = test_update(TestHelpers.created_records)
+      puts result.inspect
+      update_errors.should == {}
+    end
+  
+    it "should process Lead delete" do
+      result = test_delete(TestHelpers.created_records)
+      puts result.inspect
+      delete_errors.should == {}
+    end
+  end
+end

data/generators/crm/vendor/ms_dynamics/spec/sources/opportunity_spec.rb

@@ -0,0 +1,62 @@
+require File.join(File.dirname(__FILE__),'..','spec_helper')
+
+describe "Opportunity" do
+  it_should_behave_like "SpecHelper" do
+    before(:all) do
+      sample_data_file = File.join(File.dirname(__FILE__),'..','..','vendor','ms_dynamics','spec_data','Opportunity.yml')
+      @sample_data = YAML.load_file(sample_data_file)['Opportunity'] if sample_data_file and File.exist?(sample_data_file)
+    end
+    
+    before(:each) do
+      setup_test_for Opportunity,@test_user
+    end
+  
+    before(:each) do
+      @ss.adapter.login
+    end
+  
+    after(:each) do
+      @ss.adapter.logoff
+    end
+
+    it "should process Opportunity query" do
+      result = test_query
+      puts result.length.inspect
+      query_errors.should == {}
+      
+      # Opportunity cannot be created without a valid
+      # customerid (which is either a Contact or Account)
+      # so, we are using some already existing one
+      # for subsequent create/update/delete specs
+      result.each do |key, value|
+        @sample_data['customerid'] = value['customerid']
+        @sample_data['customerid_attrtype'] = value['customerid_attrtype']
+        break
+      end  
+    end
+  
+    it "should process Opportunity create" do
+      create_hash = @sample_data
+      result = test_create(create_hash)
+      puts result.inspect
+      create_hash['opportunityid'] = result
+      TestHelpers.created_records = { result => create_hash }
+      create_errors.should == {}
+    end
+  
+    it "should process Opportunity update" do
+      TestHelpers.created_records.each do |key,value|
+        value['name'] = "Sample Update #{key.to_s}"
+      end
+      result = test_update(TestHelpers.created_records)
+      puts result.inspect
+      update_errors.should == {}
+    end
+  
+    it "should process Opportunity delete" do
+      result = test_delete(TestHelpers.created_records)
+      puts result.inspect
+      delete_errors.should == {}
+    end
+  end
+end