activesp 0.0.1

data/lib/activesp/user.rb

@@ -0,0 +1,59 @@
+module ActiveSP
+  
+  class User < Base
+    
+    extend Caching
+    extend PersistentCaching
+    include Util
+    include InSite
+    
+    attr_reader :login_name
+    
+    persistent { |site, login_name, *a| [site.connection, [:user, login_name]] }
+    def initialize(site, login_name)
+      @site, @login_name = site, login_name
+    end
+    
+    def key
+      encode_key("U", [@login_name])
+    end
+    
+    def to_s
+      "#<ActiveSP::User login_name=#{login_name}>"
+    end
+    
+    alias inspect to_s
+    
+  private
+    
+    def data
+      call("UserGroup", "get_user_info", "userLoginName" => @login_name).xpath("//spdir:User", NS).first
+    end
+    cache :data
+    
+    def attributes_before_type_cast
+      clean_attributes(data.attributes)
+    end
+    cache :attributes_before_type_cast
+    
+    def original_attributes
+      type_cast_attributes(@site, nil, internal_attribute_types, attributes_before_type_cast)
+    end
+    cache :original_attributes
+    
+    def internal_attribute_types
+      @@internal_attribute_types ||= {
+        "Email" => GhostField.new("Email", "Text", false, true),
+        "ID" => GhostField.new("ID", "Text", false, true),
+        "IsDomainGroup" => GhostField.new("Email", "Bool", false, true),
+        "IsSiteAdmin" => GhostField.new("IsSiteAdmin", "Bool", false, true),
+        "LoginName" => GhostField.new("LoginName", "Text", false, true),
+        "Name" => GhostField.new("Name", "Text", false, true),
+        "Notes" => GhostField.new("Notes", "Text", false, true),
+        "Sid" => GhostField.new("Sid", "Text", false, true)
+      }
+    end
+    
+  end
+  
+end

data/lib/activesp/util.rb

@@ -0,0 +1,168 @@
+module ActiveSP
+  
+  module Util
+    
+  private
+    
+    def clean_attributes(attributes)
+      attributes.inject({}) { |h, (k, v)| h[k] = v.to_s ; h }
+    end
+    
+    def clean_item_attributes(attributes)
+      attributes.inject({}) { |h, (k, v)| h[k.sub(/\Aows_/, "")] = v.to_s ; h }
+    end
+    
+    def type_cast_attributes(site, list, fields, attributes)
+      attributes.inject({}) do |h, (k, v)|
+        if field = fields[k]
+          case field.internal_type
+          when "ListReference"
+          when "StandardDateTime"
+            v = Time.parse(v)
+          when "DateTime"
+            v = Time.parse(v)
+          when "XMLDateTime"
+            v = Time.xmlschema(v.sub(/ /, "T"))
+          when "Computed", "Text", "Guid", "ContentTypeId", "URL"
+          when "Integer", "Counter", "Attachments"
+            v = v && v != "" ? Integer(v) : nil
+          when "ModStat" # 0
+          when "Number"
+            v = v.to_f
+          when "Boolean"
+            v = v == "1"
+          when "Bool"
+            v = !!v[/true/i]
+          when "File"
+            # v = v.sub(/\A.*?;#/, "")
+          when "Note"
+          
+          when "User"
+            d = split_multi(v)
+            v = User.new(site.connection.root, d[2][/\\/] ? d[2] : "SHAREPOINT\\system")
+          when "InternalUser"
+            v = User.new(site.connection.root, v[/\\/] ? v : "SHAREPOINT\\system")
+          when "UserMulti"
+            d = split_multi(v)
+            v = (0...(d.length / 4)).map { |i| User.new(site.connection.root, d[4 * i + 2][/\\/] ? d[4 * i + 2] : "SHAREPOINT\\system") }
+          
+          when "Choice"
+            # For some reason there is no encoding here
+          when "MultiChoice"
+            # SharePoint disallows ;# inside choices and starts with a ;#
+            v = v.split(/;#/)[1..-1]
+          
+          when "Lookup"
+            d = split_multi(v)
+            if field.List
+              v = create_item_from_id(field.List, d[0])
+            else
+              v = d[2]
+            end
+          when "LookupMulti"
+            d = split_multi(v)
+            if field.List
+              v = (0...(d.length / 4)).map { |i| create_item_from_id(field.List, d[4 * i]) }
+            else
+              v = (0...(d.length / 4)).map { |i| d[4 * i + 2] }
+            end
+          
+          else
+            # raise NotImplementedError, "don't know type #{field.type.inspect} for #{k}=#{v.inspect}"
+            warn "don't know type #{field.internal_type.inspect} for #{k}=#{v.inspect} on self"
+          end
+        else
+          # raise ArgumentError, "can't find field #{k.inspect}"
+          warn "can't find field #{k.inspect} on #{self}"
+        end
+        h[k] = v
+        h
+      end
+    end
+    
+    def encode_key(type, trail)
+      "#{type}::#{trail.map { |t| t.to_s.gsub(/:/, ":-") }.join("::")}"
+    end
+    
+    def decode_key(key)
+      type, *trail = key.split(/::/)
+      [type, trail.map { |t| t.gsub(/:-/, ':') }]
+    end
+    
+    def split_multi(s)
+      # Figure out the exact escaping rules that SharePoint uses
+      s.scan(/((?:[^;]|;;#|;[^#;]|;;(?!#))+)(;#)?/).flatten
+    end
+    
+    def create_item_from_id(list, id)
+      query = Builder::XmlMarkup.new.Query do |xml|
+        xml.Where do |xml|
+          xml.Eq do |xml|
+            xml.FieldRef(:Name => "ID")
+            xml.Value(id, :Type => "Counter")
+          end
+        end
+      end
+      list.items(:query => query).first
+    end
+    
+    def translate_internal_type(field)
+      case field.internal_type
+      when "Computed", "Text", "Guid", "ContentTypeId", "URL", "Choice", "MultiChoice", "File", "Note"
+        "Text"
+      when "Integer", "Counter", "Attachments", "ModStat"
+        "Integer"
+      when "Number"
+        "Float"
+      when "StandardDateTime", "DateTime", "XMLDateTime"
+        "DateTime"
+      when "Boolean", "Bool"
+        "Boolean"
+      when "User", "InternalUser", "UserMulti"
+        "UserReference"
+      when "Lookup", "LookupMulti"
+        if field.List
+          "ItemReference"
+        else
+          "Text"
+        end
+      when "ListReference"
+        "ListReference"
+      else
+        "Text"
+      end
+    end
+    
+  end
+  
+end
+
+
+__END__
+
+escaping in field names:
+
+_x[4-digit code]_
+
+[space]      20
+<            3C
+>            3E
+#            23
+%            25
+{            7B
+}            7D
+|            7C
+\            5C
+^            5E
+~            7E
+[            5B
+]            5D
+`            60
+;            3B
+/            2F
+?            3F
+:            3A
+@            40
+=            3D
+&            26
+$            24

metadata

@@ -0,0 +1,95 @@
+--- !ruby/object:Gem::Specification 
+name: activesp
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+platform: ruby
+authors: 
+- Peter Vanbroekhoven
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-04-02 00:00:00 +02:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: savon-xaop
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: nokogiri
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+description: Interface to SharePoint
+email: peter@xaop.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- VERSION
+- Rakefile
+- lib/activesp/base.rb
+- lib/activesp/caching.rb
+- lib/activesp/connection.rb
+- lib/activesp/content_type.rb
+- lib/activesp/field.rb
+- lib/activesp/folder.rb
+- lib/activesp/ghost_field.rb
+- lib/activesp/group.rb
+- lib/activesp/item.rb
+- lib/activesp/list.rb
+- lib/activesp/permission_set.rb
+- lib/activesp/persistent_caching.rb
+- lib/activesp/role.rb
+- lib/activesp/root.rb
+- lib/activesp/site.rb
+- lib/activesp/url.rb
+- lib/activesp/user.rb
+- lib/activesp/util.rb
+- lib/activesp.rb
+has_rdoc: true
+homepage: 
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: 1.8.1
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: Interface to SharePoint
+test_files: []
+