dm-keeper-adapter 0.0.1

data/.gitignore

@@ -0,0 +1,6 @@
+*.gem
+.bundle
+Gemfile.lock
+Gemfile
+pkg/*
+*~

data/README.rdoc

@@ -0,0 +1,40 @@
+= dm-keeper-adapter
+
+A DataMapper adapter for features.opensuse.org
+
+== Usage
+
+This adapter allows easy access to the openSUSE feature database using
+DataMapper. It supports features, relationtrees, productlines, and
+products.
+
+features.opensuse.org is the web frontend, the database server
+provides an xquery API at https://keeper.novell.com/sxkeeper, which is
+used by this adapter - hence the name.
+
+== Install
+
+Install it with
+
+  gem install dm-keeper-adapter
+
+== Code
+
+  require 'rubygems'
+  require 'dm-core'
+  require 'dm-keeper-adapter'
+
+  DataMapper::Logger.new($stdout, :debug)
+  
+  # Retrieves credentials from ~/.oscrc if exists
+  # Otherwise add user:pass@ before keeper.novell.com 
+  keeper = DataMapper.setup(:default, :adapter => 'keeper', :url  => 'https://keeper.novell.com/sxkeeper')
+
+  require 'keeper/feature'
+  DataMapper.finalize
+
+  f = Feature.get(311545)
+
+== TODO
+
+Real DataMapper queries mapped to XPath

data/Rakefile

@@ -0,0 +1,29 @@
+require 'bundler/gem_tasks'
+require 'rake/testtask'
+
+extra_docs = ['README*', 'TODO*', 'CHANGELOG*']
+
+task :default => [:test]
+
+Rake::TestTask.new do |t|
+  t.libs << File.expand_path('../test', __FILE__)
+  t.libs << File.expand_path('../', __FILE__)
+  t.test_files = FileList['test/test*.rb']
+  t.verbose = true
+end
+
+begin
+ require 'yard'
+  YARD::Rake::YardocTask.new(:doc) do |t|
+    t.files   = ['lib/**/*.rb', *extra_docs]
+    t.options = ['--no-private']
+  end
+rescue LoadError
+  STDERR.puts "Install yard if you want prettier docs"
+  require 'rdoc/task'
+  Rake::RDocTask.new(:doc) do |rdoc|
+    rdoc.rdoc_dir = "doc"
+    rdoc.title = "dm-keeper-adapter #{DataMapper::Adapters::KeeperAdapter::VERSION}"
+    extra_docs.each { |ex| rdoc.rdoc_files.include ex }
+  end
+end

data/dm-keeper-adapter.gemspec

@@ -0,0 +1,27 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+require "dm-keeper-adapter/version"
+
+Gem::Specification.new do |s|
+  s.name        = "dm-keeper-adapter"
+  s.version     = DataMapper::Adapters::KeeperAdapter::VERSION
+
+  s.platform    = Gem::Platform::RUBY
+  s.authors     = ["Klaus Kämpf"]
+  s.email       = ["kkaempf@suse.de"]
+  s.homepage    = ""
+  s.summary     = %q{A datamapper adapter for FATE (aka keeper.novell.com)}
+  s.description = %q{Use it in Ruby applications to access FATE}
+
+  # get credentials from ~/.oscrc
+  s.add_dependency("inifile", ["~> 0.4.1"])
+  # parse xml response
+  s.add_dependency("nokogiri", ["~> 1.4"])
+
+  s.rubyforge_project = "dm-keeper-adapter"
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ["lib"]
+end

data/lib/dm-keeper-adapter.rb

@@ -0,0 +1,78 @@
+require 'rubygems'
+require 'dm-core'
+require 'dm-core/adapters/abstract_adapter'
+
+require "dm-keeper-adapter/create"
+require "dm-keeper-adapter/read"
+require "dm-keeper-adapter/update"
+require "dm-keeper-adapter/delete"
+require "dm-keeper-adapter/misc"
+
+
+module DataMapper
+  class Property
+    autoload :XML, "property/xml"
+  end
+end
+
+
+module DataMapper::Adapters
+  
+  class KeeperAdapter < AbstractAdapter
+    OSCRC_CREDENTIALS = "https://api.opensuse.org"
+
+    def initialize(name, options)
+      super
+      require 'net/https'
+      require 'uri'
+      @uri = URI.parse(options[:url])
+      @username = options[:username]
+      @password = options[:password]
+      unless @username && @password
+	require 'inifile'
+	oscrc = IniFile.new(File.join(ENV['HOME'], '.oscrc'))
+        if oscrc.has_section?(OSCRC_CREDENTIALS)
+          @username = oscrc[OSCRC_CREDENTIALS]['user']
+          @password = oscrc[OSCRC_CREDENTIALS]['pass']
+          raise "No .oscrc credentials for keeper.novell.com" unless @username && @password
+        end
+      end
+      @connection = Net::HTTP.new( @uri.host, @uri.port )
+      # from http://www.rubyinside.com/nethttp-cheat-sheet-2940.html
+      @connection.use_ssl = true if @uri.scheme == "https"
+      @connection.verify_mode = OpenSSL::SSL::VERIFY_NONE
+
+    end
+
+    def get(path)
+#      STDERR.puts "Get #{@uri.path} + #{path}"
+      request = Net::HTTP::Get.new @uri.path + path
+      request.basic_auth @username, @password
+      response = @connection.request request
+      raise ArgumentError unless response
+      raise( RuntimeError, "Server returned #{response.code}" ) unless response.code.to_i == 200
+#      $stderr.puts "#{response.inspect}"
+#      response.each { |k,v| $stderr.puts "#{k}: #{v}" }
+#      $stderr.puts "Encoding >#{response['content-encoding']}<"
+      # check
+      # content-type: text/xml;charset=UTF-8
+      # content-encoding: gzip
+      body = response.body
+      if response['content-encoding'] == "gzip"
+	require 'zlib'
+	require 'stringio'
+	# http://stackoverflow.com/questions/1361892/how-to-decompress-gzip-string-in-ruby
+	body = Zlib::GzipReader.new(StringIO.new(body)).read
+      end
+      case response['content-type']
+	when /xml/
+	  Nokogiri::XML body
+	when /html/
+	  Nokogiri::HTML body
+	else
+	  raise TypeError, "Unknown content-type #{response['content-type']}"
+      end
+    end
+
+  end
+end

data/lib/dm-keeper-adapter/create.rb

@@ -0,0 +1,21 @@
+# create.rb
+module DataMapper::Adapters
+class KeeperAdapter < AbstractAdapter
+  def create(resources)
+    table_groups = group_resources_by_table(resources)
+    table_groups.each do |table, resources|
+      # make
+      #  class User
+      #    property :id, Serial
+      #  end
+      # work
+      resources.each do |resource|
+	initialize_serial(resource,
+			  worksheet_record_cound(table)+1)
+	post_resource_to_worksheet(resource,table)
+      end
+    end
+    resources.size
+  end
+end
+end

data/lib/dm-keeper-adapter/delete.rb

@@ -0,0 +1,12 @@
+# delete.rb
+module DataMapper::Adapters
+class KeeperAdapter < AbstractAdapter
+  def delete(collection)
+    each_resource_with_edit_url(collection) do |resource, edit_url|
+      connection.delete(edit_url, 'If-Match' => "*")
+    end
+    # return count
+    collection.size
+  end
+end
+end

data/lib/dm-keeper-adapter/misc.rb

@@ -0,0 +1,9 @@
+# misc.rb
+module DataMapper::Adapters
+class KeeperAdapter < AbstractAdapter
+  # Auto-migration
+  # DataMapper.auto_migrate!
+  # or
+  # DataMapper.auto_update!
+end
+end

data/lib/dm-keeper-adapter/read.rb

@@ -0,0 +1,168 @@
+# read.rb
+module DataMapper::Adapters
+  class KeeperAdapter < AbstractAdapter
+    require 'nokogiri'
+    def read(query)
+      records = records_for(query)
+#      query.filter_records(records)
+    end
+
+  private
+    # taken from https://github.com/whoahbot/dm-redis-adapter/
+    
+    ##
+    # Retrieves records for a particular model.
+    #
+    # @param [DataMapper::Query] query
+    #   The query used to locate the resources
+    #
+    # @return [Array]
+    #   An array of hashes of all of the records for a particular model
+    #
+    # @api private
+    def records_for(query)
+#      $stderr.puts "records_for(#{query})"
+#      $stderr.puts "records_for(#{query.inspect})"
+      records = []
+      if query.conditions.nil?
+	# return all
+      else
+	query.conditions.operands.each do |operand|
+	  if operand.is_a?(DataMapper::Query::Conditions::OrOperation)
+	    operand.each do |op|
+	      records = records + perform_query(query, op)
+	    end
+	  else
+	    records = perform_query(query, operand)
+	  end
+	end
+      end      
+      records
+    end #def
+
+    ##
+    # Find records that match have a matching value
+    #
+    # @param [DataMapper::Query] query
+    #   The query used to locate the resources
+    #
+    # @param [DataMapper::Operation] the operation for the query
+    #
+    # @return [Array]
+    #   An array of hashes of all of the records for a particular model
+    #
+    # @api private
+    def perform_query(query, operand)
+#      $stderr.puts "perform_query(#{query},#{operand})"
+      records = []
+		    
+      if operand.is_a?(DataMapper::Query::Conditions::NotOperation)
+	subject = operand.first.subject
+	value = operand.first.value
+      elsif operand.subject.is_a?(DataMapper::Associations::ManyToOne::Relationship)
+	subject = operand.subject.child_key.first
+	value = operand.value[operand.subject.parent_key.first.name]
+      else
+	subject = operand.subject
+	value =  operand.value
+      end
+      
+      if subject.is_a?(DataMapper::Associations::ManyToOne::Relationship)
+	subject = subject.child_key.first
+      end
+      
+      # typical queries
+      #
+      # ?query=/feature[
+      #   productcontext[
+      #    not (status[done or rejected or duplicate or unconfirmed])
+      #  ]
+      #  and
+      #  actor[
+      #    (person/userid='kkaempf@novell.com' or person/email='kkaempf@novell.com' or person/fullname='kkaempf@novell.com')
+      #    and
+      #    role='projectmanager'
+      #  ]
+      # ]
+      #
+      #  "/#{container}[actor/role='infoprovider']
+      #
+      # query=/feature[title='Foo%20bar%20baz']
+      #
+      # query=/feature[contains(title,'Foo')]
+      # query=/feature[contains(title,'Foo')]/title
+      # query=/feature[contains(title,'Foo')]/@k:id
+      #
+      
+#      $stderr.puts "perform_query(subject #{subject.inspect},#{value.inspect})"
+      container = query.model.to_s.downcase
+      if query.model.key.include?(subject)
+	# get single <feature>
+	records << node_to_record(query.model, get("/#{container}/#{value}").root)
+      else
+	# query, get <collection>[<object><feature>...]*
+	xpath = "/#{container}["
+	# ...
+	xpath << "]"
+	collection = get("/#{container}?query=#{xpath}")
+	collection.xpath("/#{container}").each do |feature|
+	  records << node_to_record(query.model, feature)
+	end
+      end
+      
+      records
+    end # def
+
+    ##
+    # Convert feature (as xml) into record (as hash of key/value pairs)
+    #
+    # @param [Nokogiri::XML::Node] node
+    #   A node
+    #
+    # @return [Hash]
+    #   A hash of all of the properties for a particular record
+    #
+    # @api private
+    def node_to_record(model, node)
+      record = { }
+      xpathmap = model.xpathmap rescue { }
+      xmlnamespaces = model.xmlnamespaces rescue nil
+#      $stderr.puts "node_to_record(#{model}:#{node.class})"
+      model.properties.each do |property|
+	xpath = xpathmap[property.name] || property.name
+	key = property.name.to_s
+	children = node.xpath("./#{xpath}", xmlnamespaces)	
+#	$stderr.puts "Property found: #{property.inspect}"
+	case children.size
+	when 0: next
+	when 1: value = children.text
+	else
+	  value = children.to_xml
+	end
+#	$stderr.puts "Key #{key}, Value #{value} <#{property.class}>"
+	case property
+	when DataMapper::Property::Date
+	  require 'parsedate'
+	  record[key] = Time.utc(ParseDate.parsedate(value))
+	when DataMapper::Property::Integer
+	  record[key] = value.to_s
+	when DataMapper::Property::String
+	  record[key] = value.to_s
+	else
+	  raise TypeError, "#{property} unsupported"
+	end
+      end
+      model.relationships.each do |rel|
+#	$stderr.puts "Rel ? #{rel.inspect}"
+	children = node.xpath("./#{rel.child_model_name.downcase}")
+	value = []
+	while n = children.shift
+	  value << node_to_record(rel.child_model, n)
+	end
+	record[rel.name.to_s] = value
+#	$stderr.puts "#{rel.name} -> #{value.inspect}"
+      end
+      record
+    end
+  end # class
+end # module

data/lib/dm-keeper-adapter/update.rb

@@ -0,0 +1,12 @@
+# update.rb
+module DataMapper::Adapters
+class KeeperAdapter < AbstractAdapter
+  def update(attributes, collection)
+    each_resource_with_edit_url(collection) do |resource, edit_url|
+      put_updated_resource(edit_url, resource)
+    end
+    # return count
+    collection.size
+  end
+end
+end

data/lib/dm-keeper-adapter/version.rb

@@ -0,0 +1,8 @@
+require 'dm-core'
+require 'dm-core/adapters/abstract_adapter'
+
+module DataMapper::Adapters
+  class KeeperAdapter < AbstractAdapter
+    VERSION = "0.0.1"
+  end
+end

data/lib/keeper/container.rb

@@ -0,0 +1,58 @@
+require "dm-keeper-adapter"
+require "nokogiri"
+
+module Keeper
+  class ContainerEntry
+    attr_reader :name, :description, :size, :postmaster
+    #
+    # parse
+    # <tr class="title">
+    #   <td colspan="2"><b>product</b></td></tr>
+    # <tr><td><b>Description:</b></td><td>Container for storing product definitions from NPP.</td></tr>
+    # <tr><td><b>Documents:</b></td><td>#325</td></tr>
+    # <tr><td><b>Update notification class: </b></td><td>null</td></tr>
+    # <tr><td><b>Read-only: </b></td><td>false</td></tr>
+    # <tr><td><b>Notification debug: </b></td><td>false</td></tr>
+    # <tr><td><b>Notification postmaster: </b></td><td>tschmidt@suse.de</td></tr>
+    #
+    def initialize node
+#      $stderr.puts "ContainerEntry(#{node})"
+      @name = node.xpath("./td/b").text
+      while node = node.next do # next <tr>
+	break if node['class']
+	key = value = nil
+	node.children.each do |child| # iterate over <td>
+	  if child.child.name == "b" # <td><b>
+	    key = child.child.text
+	  else
+	    value = child.text
+	  end
+	  if key && value
+	    case key
+	    when "Description:": @description = value
+	    when "Documents:": @size = value.to_i
+	    when "Notification postmaster: ": @postmaster = value
+	    end
+	    key = value = nil
+	  end
+	end
+      end
+    end
+    def to_s
+      "#{@name}: #{@description}"
+    end
+  end
+  class Container
+    def initialize adapter
+      @adapter = adapter
+      @entries = []
+      node = adapter.get "/info"
+      node.xpath("//tr[@class='title']").each do |node|
+	@entries << ContainerEntry.new(node)
+      end
+    end
+    def each
+      @entries.each { |e| yield e }
+    end
+  end
+end

data/lib/keeper/feature.rb

@@ -0,0 +1,31 @@
+#
+# Feature for datamapper
+#
+require 'rubygems'
+require 'dm-core'
+
+class Feature
+  include DataMapper::Resource
+
+  def self.xpathmap
+    { :id => "@k:id", :milestone => "productcontext/milestone/name", :actors => "actor",
+      :requester => "actor[role='requester']/person/email",
+      :productmgr => "actor[role='productmanager']/person/email",
+      :projectmgr => "actor[role='projectmanager']/person/email",
+      :engmgr => "actor[role='teamleader']/person/email",
+      :developer => "actor[role='developer']/person/email"
+    }
+  end
+  def self.xmlnamespaces
+    { "k" => "http://inttools.suse.de/sxkeeper/schema/keeper" }
+  end
+  
+  property :id, Integer, :key => true
+  property :title, String
+  property :requester, String
+  property :productmgr, String
+  property :projectmgr, String
+  property :engmgr, String
+  property :developer, String
+  property :milestone, String
+end

data/lib/keeper/product.rb

@@ -0,0 +1,14 @@
+require 'rubygems'
+require 'dm-core'
+class Product
+  include DataMapper::Resource
+  property :id, Integer, :key => true
+  has 1, :productline
+  property :fatename, String
+  property :shortname, String
+  property :longname, String
+  property :bugzillaname, String
+  has n, :milestone
+  has n, :component
+  property :releasedate, Date
+end

data/lib/keeper/productline.rb

@@ -0,0 +1,7 @@
+require 'rubygems'
+require 'dm-core'
+class Productline
+  include DataMapper::Resource
+  property :id, Integer, :key => true
+  property :name, String
+end

data/lib/keeper/relation.rb

@@ -0,0 +1,13 @@
+require 'rubygems'
+require 'dm-core'
+class Relation
+  include DataMapper::Resource
+  def self.xpathmap
+    { :target => "@target", :sort_position => "@sortPosition" }
+  end
+  property :target, Integer, :key => true
+  property :sort_position, Integer
+  has 1, :parent, self
+  belongs_to :relation, :required => false
+  belongs_to :relationtree, :required => false
+end

data/lib/keeper/relationtree.rb

@@ -0,0 +1,20 @@
+require 'rubygems'
+require 'dm-core'
+require 'dm-types'
+
+require 'keeper/relation'
+
+class Relationtree
+  include DataMapper::Resource
+  def self.xpathmap
+    { :id => "@k:id" }
+  end
+  def self.xmlnamespaces
+    { "k" => "http://inttools.suse.de/sxkeeper/schema/keeper" }
+  end
+  property :id, Integer, :key => true
+  property :title, String
+  property :description, String
+#  has n, :relations
+  property :relations, Csv
+end

data/lib/keeper/valuelist.rb

@@ -0,0 +1,99 @@
+module Keeper
+  class Containers
+
+    def initialize(name, options)
+      super
+      require 'net/https'
+      require 'uri'
+      @uri = URI.parse(options[:url])
+      @username = options[:username]
+      @password = options[:password]
+      @connection = Net::HTTP.new( @uri.host, @uri.port )
+      # from http://www.rubyinside.com/nethttp-cheat-sheet-2940.html
+      @connection.use_ssl = true if @uri.scheme == "https"
+      @connection.verify_mode = OpenSSL::SSL::VERIFY_NONE
+
+    end
+    
+    def categories
+      @categories ||= values_of "list_categories", "/value"
+    end
+    def partners
+      @partners ||= values_of "list_partner", "/value"
+    end
+    def roles
+      @roles ||= values_of "list_roles"
+    end
+    def viewparts
+      @viewparts ||= values_of("list_view_parts")
+    end
+    def xmlfields
+      @xmlfields ||= values_of("list_xmlfields")
+    end
+
+    def get(path)
+#      $stderr.puts "Get #{@uri.path} + #{path}"
+      request = Net::HTTP::Get.new @uri.path + path
+      request.basic_auth @username, @password
+      response = @connection.request request
+      raise ArgumentError unless response
+      raise( RuntimeError, "Server returned #{response.code}" ) unless response.code.to_i == 200
+#      $stderr.puts "#{response.inspect}"
+#      response.each { |k,v| $stderr.puts "#{k}: #{v}" }
+#      $stderr.puts "Encoding >#{response['content-encoding']}<"
+      # check
+      # content-type: text/xml;charset=UTF-8
+      # content-encoding: gzip
+      raise TypeError unless response['content-type'] =~ /xml/
+      body = response.body
+      if response['content-encoding'] == "gzip"
+	require 'zlib'
+	require 'stringio'
+	# http://stackoverflow.com/questions/1361892/how-to-decompress-gzip-string-in-ruby
+	body = Zlib::GzipReader.new(StringIO.new(body)).read
+      end
+      Nokogiri::XML body
+    end
+
+  private
+    def values_of id, detail = nil
+#      STDERR.puts "----------------------\nextract_values #{id}\n#-------------------"
+      
+      if detail
+	result = []
+      else
+	result = {}
+      end
+
+      valuelist.xpath("//valuelist[@id='#{id}']/item#{detail}").each do |node|
+	if detail
+	  # node = <value>foo</value>
+	  result << node.text
+	else
+	  # node = <item><value>...</value><property name='...'>...</property>
+	  # with multiple properties
+	  props = {}
+#	  puts "Node #{node}"
+#	  puts "Value #{node.xpath('./value').text}"
+	  node.xpath("./property").each do |prop|
+#	    puts "prop #{prop}"
+#	    puts "name #{prop['name']}"
+#	    puts "content #{prop.content}"
+	    props[prop['name']] = prop.text
+	  end
+#	  puts "Props #{props.inspect}"
+	  result[node.xpath("./value").text] = props
+	end
+      end
+      raise RuntimeError if result.empty?
+      result
+    end
+
+    def valuelist
+      @valuelist ||= get "/valuelist"
+      raise RuntimeError if @valuelist.nil?
+      @valuelist
+    end
+
+  end
+end

data/lib/property/xml.rb

@@ -0,0 +1,18 @@
+require 'dm-core'
+require 'nokogiri'
+
+module DataMapper
+  class Property
+    class Xml < Object
+      primitive String
+      def dump(value)
+	value.to_xml
+      end
+      def load(value)
+	Nokogiri::XML value
+      end
+    end
+    
+    XML = Xml
+  end
+end

data/script/README.rdoc

@@ -0,0 +1,12 @@
+= Sample scripts
+
+keeper.novell.com also provides structure information about the
+entities stored in its database.
+
+== generate_class.rb
+generate_class.rb is a sample Ruby script showing how to use this
+information to generate Ruby classes for use with DataMapper.
+
+== show-containers.rb
+show-containers.rb displays information about the containers (aka
+database tables) provides by keeper.novell.com

data/script/generate_class.rb

@@ -0,0 +1,10 @@
+#!/bin/env ruby
+#
+# Generate/update class definition for 'Feature'
+
+require 'lib/dm-keeper-adapter'
+
+adapter = DataMapper.setup(:default, :adapter   => 'keeper',
+			    :url  => 'https://keeper.novell.com/sxkeeper')
+
+adapter.update_featureclass "feature.rb"

data/script/genfeatureclass.rb

@@ -0,0 +1,52 @@
+    #
+    # generate or update the class definition for 'Feature'
+    #
+    def update_featureclass path
+      partsrevision = 0
+      xmlfieldsrevision = 0
+      if File.exists? path
+	require path
+	partsrevision = Feature.partsrevision
+	xmlfieldsrevision = Feature.xmlfieldsrevision
+      end
+      current_partsrevision = revision_of('list_view_parts').to_i
+      current_xmlfieldsrevision = revision_of('list_xmlfields').to_i
+      if partsrevision < current_partsrevision || xmlfieldsrevision < current_xmlfieldsrevision
+	# class needs regeneration
+	File.open path, "w+" do |f|
+	  f.puts("# File generated by dm-keeper-adapter on #{Time.new.asctime}")
+	  f.puts("require 'rubygems'")
+	  f.puts("require 'dm-core'")
+	  f.puts("class Feature")
+	  f.puts("  def Feature.partsrevision")
+	  f.puts("    #{current_partsrevision}")
+	  f.puts("  end")
+	  f.puts("  def Feature.xmlfieldsrevision")
+	  f.puts("    #{current_xmlfieldsrevision}")
+	  f.puts("  end")
+	  f.puts("  include DataMapper::Resource\n")
+	  f.puts("  property :id, Integer, :key => true")
+	  properties = []
+	  viewparts.each_key do |k|
+	    n = k.tr(" ","_").downcase
+	    properties << n
+	    f.puts("  property :#{n}, String")
+	  end
+	  xmlfields.each_key do |k|
+	    n = k.tr(" ","_").downcase
+	    next if n == '.'
+	    next if properties.include? n
+	    f.puts("  property :#{n}, String")
+	  end
+	  f.puts("end")	    
+	end
+      else
+	puts "#{path} is up to date"
+      end
+    end
+
+    def revision_of id
+      node = valuelist.xpath("//valuelist[@id='#{id}']").first
+      node.attribute_with_ns('revision', 'http://inttools.suse.de/sxkeeper/schema/keeper').value
+    end
+

data/script/show-containers.rb

@@ -0,0 +1,22 @@
+#
+# show-containers.rb
+#
+# Demo script to extract available 'containers' (aka database tables)
+# from FATE (keeper.suse.de) using DataMapper
+#
+
+$: << File.join(File.dirname(__FILE__), "..", "dm-keeper-adapter", "lib")
+
+require 'rubygems'
+require 'dm-core'
+require 'keeper/container'
+
+DataMapper::Logger.new($stdout, :debug)
+keeper = DataMapper.setup(:default, :adapter   => 'keeper',
+			    :url  => 'https://keeper.novell.com/sxkeeper')
+
+c = Keeper::Container.new keeper
+c.each do |e|
+  puts e
+end
+	

data/test/helper.rb

@@ -0,0 +1,3 @@
+$: << File.join(File.dirname(__FILE__), "..", "lib")
+require 'test/unit'
+require 'dm-keeper-adapter'

data/test/test_get_feature.rb

@@ -0,0 +1,19 @@
+require File.join(File.dirname(__FILE__), 'helper')
+
+class Get_bug_test < Test::Unit::TestCase
+
+  def test_get_bug
+    DataMapper::Logger.new(STDOUT, :debug)
+    keeper = DataMapper.setup(:default,
+			      :adapter => 'keeper',
+			      :url  => 'https://keeper.novell.com/sxkeeper')
+
+    require 'keeper/feature'
+    DataMapper.finalize
+
+    feature = Feature.get(312814)
+    assert feature
+    puts "Feature #{feature.inspect}"
+  end
+
+end

data/test/test_get_relationtree.rb

@@ -0,0 +1,19 @@
+require File.join(File.dirname(__FILE__), 'helper')
+
+class Get_relationtree_test < Test::Unit::TestCase
+
+  def test_get_relationtree
+    DataMapper::Logger.new(STDOUT, :debug)
+    keeper = DataMapper.setup(:default,
+			      :adapter => 'keeper',
+			      :url  => 'https://keeper.novell.com/sxkeeper')
+
+    require 'keeper/relationtree'
+    DataMapper.finalize
+
+    tree = Relationtree.get(1137)
+    assert tree
+    puts "Relationtree #{tree.inspect}"
+  end
+
+end

metadata

@@ -0,0 +1,125 @@
+--- !ruby/object:Gem::Specification 
+name: dm-keeper-adapter
+version: !ruby/object:Gem::Version 
+  hash: 29
+  prerelease: 
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- "Klaus K\xC3\xA4mpf"
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-09-27 00:00:00 +02:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: inifile
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        hash: 13
+        segments: 
+        - 0
+        - 4
+        - 1
+        version: 0.4.1
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: nokogiri
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        hash: 7
+        segments: 
+        - 1
+        - 4
+        version: "1.4"
+  type: :runtime
+  version_requirements: *id002
+description: Use it in Ruby applications to access FATE
+email: 
+- kkaempf@suse.de
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- .gitignore
+- README.rdoc
+- Rakefile
+- dm-keeper-adapter.gemspec
+- lib/dm-keeper-adapter.rb
+- lib/dm-keeper-adapter/create.rb
+- lib/dm-keeper-adapter/delete.rb
+- lib/dm-keeper-adapter/misc.rb
+- lib/dm-keeper-adapter/read.rb
+- lib/dm-keeper-adapter/update.rb
+- lib/dm-keeper-adapter/version.rb
+- lib/keeper/container.rb
+- lib/keeper/feature.rb
+- lib/keeper/product.rb
+- lib/keeper/productline.rb
+- lib/keeper/relation.rb
+- lib/keeper/relationtree.rb
+- lib/keeper/valuelist.rb
+- lib/property/xml.rb
+- script/README.rdoc
+- script/generate_class.rb
+- script/genfeatureclass.rb
+- script/show-containers.rb
+- test/helper.rb
+- test/test_get_feature.rb
+- test/test_get_relationtree.rb
+has_rdoc: true
+homepage: ""
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: dm-keeper-adapter
+rubygems_version: 1.5.2
+signing_key: 
+specification_version: 3
+summary: A datamapper adapter for FATE (aka keeper.novell.com)
+test_files: 
+- test/helper.rb
+- test/test_get_feature.rb
+- test/test_get_relationtree.rb