libisi 0.3.0

data/lib/libisi/uri/base.rb

@@ -0,0 +1,115 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Libisi is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+class BaseUri
+  
+  attr_accessor :uri, :options
+  
+  def initialize(uri, options = {})
+    @uri = uri
+    @options = options
+  end
+
+  def credential_hash
+    uis = (uri.userinfo or "").split(":")
+    ret = {}
+    # URI unescape to allow special characters, 
+    # probably not rfc conform
+    ret[:user] = URI.unescape(uis[0]) if uis[0]
+    ret[:password] = URI.unescape(uis[1]) if uis[1]
+    ret
+  end
+
+  def base_uri
+    u = uri.dup
+    u.path = ""
+    u
+  end
+
+  def user
+    options[:user] or credential_hash[:user]
+  end
+  def password
+    options[:password] or credential_hash[:password] or
+      (options[:use_password] and $ui.password("Please enter password for #{base_uri.to_s}"))
+  end
+
+  def execute_command(command)
+    return command if uri.host == "localhost"
+    l = uri.host
+    #  l = "#{uri.userinfo}@#{l}" if uri.userinfo
+    execute_on_remote_command(l, command)
+  end
+
+  def find(*args)
+    options = {}
+    options = args.pop if args[-1].class == Hash
+    
+    raise "No more than one argument allowed at the moment" if
+      args.length > 1
+
+    m_items = (self.items or [])
+    if conditions = options[:conditions]
+      conditions.each {|field, value|
+	raise "Only unless Symbol => (Regex|String) pairs allowed for conditions:" +
+	  "#{field.inspect}(#{field.class.name}) => #{value.inspect}(#{value.class.name})" if
+	  field.class != Symbol or ![String,Regexp].include?(value.class)
+
+	$log.debug("Filtering items for #{field} => #{value}")
+
+	case value
+	when String
+	  compare_proc = Proc.new {|v| v == value }
+	when Regexp
+	  compare_proc = Proc.new {|v| v =~ value }
+	end
+
+	m_items = m_items.select {|i|
+	  item_value = i.send(field )
+	  case item_value
+	  when String
+	    compare_proc.call(item_value)
+	  when Array
+	    item_value.select{|v| compare_proc.call(v)}.length > 0
+	  when NilClass
+	    false
+	  else
+	    raise "Item field value #{item_value.inspect} of #{i.inspect} has unexpected type #{item_value.class.name}"
+	  end
+	}
+	$log.debug("There are still #{m_items.length} items after filter #{field} => #{value}")
+      }
+    end
+
+    case args.first
+    when :first then m_items[0]
+    when :last  then m_items[-1]
+    when :all   then m_items
+    else
+      key_proc = primary_key
+      key_proc = Proc.new {|i| i.send(primary_key)} if primary_key.class == String
+      m_items.each {|i|
+	return i if key_proc.call(i).to_s == args.first.to_s
+      }
+      
+      raise self.entry_not_found_exception if self.respond_to?(:entry_not_found_exception)
+      raise "Item #{args.first} not found"
+
+    end
+  end
+
+end

data/lib/libisi/uri/file.rb

@@ -0,0 +1,43 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Libisi is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+require "libisi/uri/base"
+class FileData < BaseUri
+  
+  def initialize(uri, options = {})
+    super
+    raise "Only local files allowed. Host is #{uri.host}" unless
+      ["127.0.0.1","localhost"].include?(uri.host)
+    @file = Pathname.new(uri.path[1..-1])
+  end
+
+  def file; @file; end
+  def pathname; @file; end
+
+  def primary_key; Proc.new {|pathname| pathname.basename.to_s}; end
+
+  def column_names; ["size","dirname","basename"]; end
+
+  def items
+    if @file.directory?
+      @file.entries
+    else
+      @file.readlines
+    end
+  end
+
+end

data/lib/libisi/uri/ldap.rb

@@ -0,0 +1,72 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Libisi is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+require "libisi/uri/base"
+class LdapData < BaseUri
+  @@num = 0
+  
+  require "active_ldap"
+
+  def initialize(uri, options = {})
+    super
+  end
+  
+  def primary_key; ldap_class.dn_attribute ;end
+
+  def column_names;     
+    return @column_names if @column_names
+    $log.debug("Finding column names")
+    @column_names = items.map {|i| i.attribute_names}.flatten.uniq.compact.sort
+  end
+
+  def items; ldap_class.find(:all); end
+  def entry_not_found_exception; ActiveLdap::EntryNotFound; end
+  def create(attributes,&block); ldap_class.create(attributes,&block) ;end
+  def new(attributes, &block); ldap_class.new(attributes, &block); end
+
+  private
+  def ldap_class
+    return @myclass if @myclass
+    
+    LdapData.module_eval("class LdapClass#{@@num} < ActiveLdap::Base; end")
+    @myclass = eval("LdapClass#{@@num}")
+    @@num += 1
+
+    path_items = uri.path.split("/")[1..-1]
+    base = path_items[0]
+    $log.debug("Base dn: #{base}")
+    $log.debug("Bind dn: #{user}")
+
+    @myclass.setup_connection(
+				      :host => uri.host,
+				      :port => (uri.port or 389),
+				      :base => base,
+				      :logger => $log,
+				      :bind_dn => user,
+				      :password_block => Proc.new { password },
+				      :allow_anonymous => false,
+				      :try_sasl => false,
+				      :method => (options[:method] or "tls") #:tls, :ssl, :plain
+				      )
+    klass = path_items[1..-2].reverse.join(",")
+    $log.debug("prefix: #{klass}")
+    dn = path_items[-1]
+    $log.debug("dn_attribute: #{dn}")
+    @myclass.ldap_mapping :prefix => klass,:dn_attribute => dn
+  end
+
+end

data/lib/libisi/uri/mysql.rb

@@ -0,0 +1,98 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Libisi is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+require "libisi/uri/base"
+class MysqlData < BaseUri
+  
+  def initialize(uri, options = {})
+    super
+    self.database
+  end
+
+  def database
+    db = uri.path
+    db = db[1..-1] if db =~ /^\//
+    raise "Unexpected database name #{db}" if db =~ /\//
+    db
+  end
+
+  def mysql_command(command = "mysql")
+    cmd = command
+    cmd += " -u #{user}" if user
+    cmd += " -p#{password}" if password
+    cmd
+  end
+  def execute_mysql(sql)
+    execute_command("echo '#{sql}' | " + mysql_command)
+  end
+
+  def source_command
+    cmd = mysql_command("mysqldump")
+    if uri.path
+      cmd += " #{database}"
+    else
+      cmd += " --all-databases"
+    end
+    cmd
+  end
+
+  def target_command
+    cmd = mysql_command
+    cmd += " #{database}" if uri.path
+    cmd
+  end  
+
+  def copy_command(target = nil)    
+    raise "Convert mysql to #{target.class} not implemented." unless target.class == self.class or target.class == NilClass
+    raise "You must specify a source database if you give a target database." if database.nil? and database
+    
+    ret = execute_command(source_command)
+    if target
+      ret += "|" + target.execute_command(target.target_command)
+    end
+    ret
+  end
+
+  def readable_command
+    if database
+      execute_command("echo 'show tables' | " + mysql_command + " #{database} 2>&1 > /dev/null")
+    else
+      execute_command("echo 'show databases' | " + mysql_command + " 2>&1 > /dev/null")
+    end
+  end
+
+  def make_readable_command
+    if database
+      execute_mysql("GRANT SELECT, LOCK TABLES ON #{database}.* TO #{user}@localhost IDENTIFIED BY \"#{password}\"")
+    else
+      execute_mysql("GRANT SELECT, LOCK TABLES ON *.* TO #{user}@localhost IDENTIFIED BY \"#{password}\"")
+    end
+  end
+
+  def create_command
+    execute_mysql("CREATE DATABASE #{database}")
+  end
+
+  def make_writable_command
+    if database
+      execute_mysql("GRANT ALL ON #{database}.* TO #{user}@localhost IDENTIFIED BY \"#{password}\"")
+    else
+      execute_mysql("GRANT ALL ON *.* TO #{user}@localhost IDENTIFIED BY \"#{password}\"")
+    end
+  end
+  
+end

data/lib/libisi/value.rb

@@ -0,0 +1,31 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Libisi is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+require "libisi/base.rb"
+require "libisi/value/base.rb"
+class Value < Base
+
+  def self.create(source, instance, options = {})
+    case source.class.name
+    when /Attribute/,/Property/
+      BaseValue.new(source, instance, options)
+    else
+      raise "Unexpected source for new value #{source.class.name}"
+    end
+  end
+
+end

data/lib/libisi/value/attribute_value.rb

@@ -0,0 +1,19 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Libisi is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+class AttributeValue < BaseValue
+end

data/lib/libisi/value/base.rb

@@ -0,0 +1,55 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Libisi is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+class BaseValue
+
+  attr_reader :source, :instance
+  
+  def initialize(source, instance, options = {})
+    @source = source
+    @instance = instance
+  end
+
+  def unit; source.respond_to?(:unit) and source.unit; end
+  def type; source.respond_to?(:type) and source.type; end
+  def name; source.name; end
+
+  def data_object; instance.send(name); end
+  def to_s; data_object.to_s; end
+  def inspect; "#{to_s} <#{type or "?"}/#{unit or "?"}>"; end
+
+  def to_doc(options)
+    raise "No doc initialized" unless $doc
+    
+    case type
+    when :integer
+      i = data_object
+      if i < 0
+	$doc.print(:color => "red") {
+	  i.to_s
+	}
+      else
+	$doc.print { 
+	  i.to_s
+	}
+      end
+      }
+    when :text
+      $doc.p { data_object.to_s }
+    end
+  end
+end

data/lib/libisi/value/property_value.rb

@@ -0,0 +1,19 @@
+# Copyright (C) 2007-2010 Logintas AG Switzerland
+#
+# This file is part of Libisi.
+#
+# Libisi is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Libisi is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Libisi.  If not, see <http://www.gnu.org/licenses/>.
+
+class PropertyValue < BaseValue
+end