ixtlan 0.2.0

data/lib/ixtlan/rolling_file.rb

@@ -0,0 +1,61 @@
+require 'logging'
+
+module Ixtlan
+  
+  class RollingFile < ::Logging::Appenders::RollingFile
+    
+    def current_logfile
+      "#{@filename_base}_#{Time.now.strftime(@date_pattern)}.#{@extension}"
+    end
+
+    def initialize( name, opts = {} )
+      @date_pattern = opts.getopt(:date_pattern, '%Y-%m-%d')
+      @extension = opts.getopt(:filename_extension, 'log')
+      @filename_base = opts.getopt(:filename_base, 'log')
+      opts.delete(:age)
+      opts[:truncate] = false
+      opts[:filename] = current_logfile
+      super(name, opts)
+      roll_files
+    end
+
+    def roll_required?( str = nil )
+      not ::File.exist?(current_logfile)
+    end
+
+    def roll_files
+      @fn = current_logfile
+      files = Dir.glob("#{@filename_base}_*.#{@extension}").sort
+      if (files.size > @keep)
+        files[0..(files.size - 1 - @keep)].each do |file|
+          ::File.delete file
+        end
+      end
+    end 
+
+    def write( event )
+      str = event.instance_of?(::Logging::LogEvent) ?
+      @layout.format(event) : event.to_s
+      return if str.empty?
+
+      check_logfile
+
+      if roll_required?(str)
+        return roll unless @lockfile
+
+        begin
+          @lockfile.lock {
+            check_logfile
+            roll if roll_required?
+          }
+        rescue
+          # just do it without lock !!
+          check_logfile
+          roll if roll_required?
+        end
+      end
+      super(str)
+    end
+
+  end
+end

data/lib/ixtlan/session.rb

@@ -0,0 +1,18 @@
+require 'rack_datamapper/session/abstract/store'
+module Ixtlan
+  class Session < DataMapper::Session::Abstract::Session
+ 
+    def data=(data)
+      d = {}
+      data.each{|k,v| d[k.to_sym] = v}
+      @user = d.delete(:user)
+      @flash = d.delete(:flash)
+      @expires_at = d.delete(:expires_at)
+      attribute_set(:data, ::Base64.encode64(Marshal.dump(d)))
+    end
+    
+    def data
+      Marshal.load(::Base64.decode64(attribute_get(:data))).merge({:user => @user, :flash => @flash, :expires_at => @expires_at})
+    end
+  end
+end

data/lib/ixtlan/user_logger.rb

@@ -0,0 +1,49 @@
+require 'slf4r'
+module Ixtlan
+  
+  class UserLogger
+    
+    def initialize(arg)
+      @logger = Slf4r::LoggerFacade.new(arg)
+    end
+
+    private 
+
+    def login_from(controller)
+      user = controller.respond_to?(:current_user) ? controller.send(:current_user) : nil
+      user.nil? ? nil: user.login
+    end
+
+    public 
+
+    def log(controller, message = nil, &block)
+      log_user(login_from(controller), message, &block)
+    end
+
+    def log_action(controller, message = nil)
+      log_user(login_from(controller)) do
+        as_xml = controller.response.content_type == 'application/xml' ? " - xml" : ""
+        if controller.params[:controller]
+          audits = controller.instance_variable_get("@#{controller.params[:controller].to_sym}")
+          if(audits)
+            "#{controller.params[:controller]}##{controller.params[:action]} #{audits.model.to_s.plural}[#{audits.size}]#{as_xml}#{message}"
+          else
+            audit = controller.instance_variable_get("@#{controller.params[:controller].singular.to_sym}")
+            if(audit)
+              "#{controller.params[:controller]}##{controller.params[:action]} #{audit.model}(#{audit.key})#{as_xml}#{message}"
+            else
+              "#{controller.params[:controller]}##{controller.params[:action]}#{as_xml}#{message}"
+            end
+          end
+        else
+          "params=#{controller.params.inspect}"
+        end
+      end
+    end
+     
+    def log_user(user, message = nil, &block)
+      user = "???" unless user
+      @logger.info {"[#{user}] #{message}#{block.call if block}" } 
+    end
+  end
+end

data/lib/ixtlan/version.rb

@@ -0,0 +1,3 @@
+class Ixtlan
+  VERSION = '0.2.0'
+end

data/lib/ixtlan.rb

@@ -0,0 +1,2 @@
+module Ixtlan
+end

data/lib/models.rb

@@ -0,0 +1,14 @@
+require 'dm-core'
+require 'dm-timestamps'
+require 'dm-validations'
+require 'dm-serializer'
+require 'ixtlan/models'
+load 'ixtlan/models/user.rb'
+load 'ixtlan/models/group_locale_user.rb'
+load 'ixtlan/models/group.rb'
+load 'ixtlan/models/group_user.rb'
+load 'ixtlan/models/locale.rb'
+load 'ixtlan/models/permission.rb'
+load 'ixtlan/models/role.rb'
+load 'ixtlan/models/configuration.rb'
+load 'ixtlan/models/configuration_locale.rb'

data/spec/authentication_spec.rb

@@ -0,0 +1,30 @@
+
+require 'pathname'
+require Pathname(__FILE__).dirname + 'spec_helper.rb'
+
+
+require 'ixtlan' / 'models' / 'authentication'
+
+describe Ixtlan::Models::Authentication do
+
+  before :each do
+    #Ixtlan::Models::Group.all.destroy!
+    #Ixtlan::Models::User.all.destroy!
+    user  = Ixtlan::Models::User.new(:login => "marvin2", :name => 'marvin the robot', :email=> "marvin@universe.example.com", :language => "xx", :id => 1356, :created_at => DateTime.now, :updated_at => DateTime.now)
+    user.created_by_id = 1356
+    user.updated_by_id = 1356
+    user.save!
+    group = Ixtlan::Models::Group.create(:id => 1356, :name => 'marvin2_root', :current_user => user)
+    user.groups << group
+    group.save
+    group.locales << Ixtlan::Models::Locale.default
+    group.locales << Ixtlan::Models::Locale.first_or_create(:code => "en")
+    @authentication = Ixtlan::Models::Authentication.create(:login => user.login, :user => user)
+  end
+
+  it "should" do
+    xml = @authentication.to_xml
+    xml.gsub!(/[0-9-]{10}T[0-9+-:]{14}/, "").gsub!(/ type='[^']+'/, '').gsub!(/<created_at><\/created_at>/, "<created_at/>").should == "<authentication><login>marvin2</login><user><id>1356</id><login>marvin2</login><name>marvin the robot</name><email>marvin@universe.example.com</email><language>xx</language><created_at/><updated_at></updated_at><created_by_id>1356</created_by_id><updated_by_id>1356</updated_by_id><groups><group><id>1356</id><name>marvin2_root</name><created_at/><created_by_id>1356</created_by_id><updated_by_id>1356</updated_by_id><locales><locale><code>DEFAULT</code><created_at/></locale><locale><code>en</code><created_at/></locale></locales></group></groups></user></authentication>"
+  end
+
+end

data/spec/guard_spec.rb

@@ -0,0 +1,125 @@
+require 'pathname'
+require Pathname(__FILE__).dirname + 'spec_helper.rb'
+
+module ActionView
+  module Base
+  end
+end
+module Erector
+  class Widget
+    
+    attr_writer :controller
+    
+    class Helpers
+      attr_accessor :controller
+    end
+    
+    def helpers
+      @helpers ||= Helpers.new
+      @helpers.controller = @controller
+      @helpers
+    end
+  end
+end
+
+require 'ixtlan/rails/guard'
+
+describe Ixtlan::Models::Permission do
+
+  before :each do
+    @role = Ixtlan::Models::Role.new :name => 'root'
+    @permission = Ixtlan::Models::Permission.new :resource => "permissions", :action => "index"
+    @permission.roles << @role
+  end
+
+  it "should produce xml" do
+    @permission.to_xml.should == "<permission><resource>permissions</resource><action>index</action><roles type='array'><role><name>root</name></role></roles></permission>"
+  end
+
+end
+
+class Controller 
+  include ActionController::Base
+end
+
+describe Ixtlan::Guard do
+
+  before :each do
+    Ixtlan::Guard.load( Slf4r::LoggerFacade.new(:root), :root, (Pathname(__FILE__).dirname + 'guards').expand_path )
+
+    @controller = Controller.new
+    @widget = Erector::Widget.new
+    @widget.controller = @controller
+  end
+
+  it 'should export permissions' do
+    Ixtlan::Guard.export_xml.should == "<permissions type='array'><permission><resource>configurations</resource><action>edit</action><roles type='array'><role><name>root</name></role></roles></permission><permission><resource>configurations</resource><action>show</action><roles type='array'><role><name>root</name></role><role><name>admin</name></role></roles></permission><permission><resource>configurations</resource><action>update</action><roles type='array'><role><name>root</name></role></roles></permission><permission><resource>permissions</resource><action>destroy</action><roles type='array'><role><name>root</name></role></roles></permission><permission><resource>permissions</resource><action>edit</action><roles type='array'><role><name>root</name></role><role><name>admin</name></role></roles></permission><permission><resource>permissions</resource><action>show</action><roles type='array'><role><name>root</name></role><role><name>guest</name></role></roles></permission><permission><resource>permissions</resource><action>update</action><roles type='array'><role><name>root</name></role><role><name>admin</name></role></roles></permission></permissions>"
+  end
+
+  it 'should allow' do
+    Ixtlan::Guard.check(@controller, :permissions, :update).should be_true
+  end
+
+  it 'should disallow' do
+    Ixtlan::Guard.check(@controller, :configurations, :update).should be_false
+  end
+
+  it 'should allow with locale' do
+    Ixtlan::Guard.check(@controller, :permissions, :update, Ixtlan::Models::Locale.first_or_create(:code => "en")).should be_true
+  end
+
+  it 'should disallow with locale' do
+    Ixtlan::Guard.check(@controller, :configurations, :update, Ixtlan::Models::Locale.first_or_create(:code => "en")).should be_false
+  end
+
+  it 'should raise GuardException on unknown controller' do
+    lambda { Ixtlan::Guard.check(@controller, :unknown_resources, :update) }.should raise_error(Ixtlan::GuardException)
+  end
+
+  it 'should raise GuardException on unknown action' do
+    lambda { Ixtlan::Guard.check(@controller, :permissions, :unknown_action) }.should raise_error(Ixtlan::GuardException)
+  end
+
+  it 'should pass' do
+    @controller.params[:action] = :update
+    @controller.params[:controller] = :permissions
+
+    @controller.send(:guard).should be_true
+  end
+
+  it 'should deny permission' do
+    @controller.params[:action] = :update
+    @controller.params[:controller] = :configurations
+
+    lambda {@controller.send(:guard)}.should raise_error( Ixtlan::PermissionDenied)
+ end
+
+  it 'should pass with locale' do
+    @controller.params[:action] = :update
+    @controller.params[:controller] = :permissions
+
+    @controller.send(:guard, Ixtlan::Models::Locale.first_or_create(:code => "en")).should be_true
+  end
+
+  it 'should deny permission with right locale' do
+    @controller.params[:action] = :update
+    @controller.params[:controller] = :configurations
+
+    lambda {@controller.send(:guard, Ixtlan::Models::Locale.first_or_create(:code => "en"))}.should raise_error( Ixtlan::PermissionDenied)
+  end
+
+  it 'should deny permission with wrong locale' do
+    @controller.params[:action] = :update
+    @controller.params[:controller] = :permissions
+
+    lambda {@controller.send(:guard, Ixtlan::Models::Locale.first_or_create(:code => "de"))}.should raise_error( Ixtlan::PermissionDenied)
+ end
+
+  it 'should allow with locale' do
+    @widget.send(:allowed, :permissions, :update, Ixtlan::Models::Locale.first_or_create(:code => "en")).should be_true
+  end
+
+  it 'should deny permission with locale' do
+    @widget.send(:allowed, :configurations, :update, Ixtlan::Models::Locale.first_or_create(:code => "en")).should be_false
+  end
+end

data/spec/guards/samples.rb

@@ -0,0 +1,12 @@
+Ixtlan::Guard.initialize(:permissions, 
+                         { :show => [:guest], 
+                           :edit => [:root, :admin], 
+                           :update => [:root, :admin], 
+                           :destroy => [:root] }
+                         )
+
+Ixtlan::Guard.initialize(:configurations, 
+                         { :show => [:admin], 
+                           :edit => [:root], 
+                           :update => [:root] }
+                         )

data/spec/spec.opts

@@ -0,0 +1 @@
+--colour

data/spec/spec_helper.rb

@@ -0,0 +1,170 @@
+require 'rubygems'
+lib_path = (Pathname(__FILE__).dirname.parent.expand_path + 'lib').to_s
+$LOAD_PATH.unshift lib_path unless $LOAD_PATH.include?(lib_path)
+
+require 'dm-core'
+require 'dm-validations'
+require 'dm-serializer'
+require 'dm-timestamps'
+
+require 'slf4r'
+
+require 'ixtlan' / 'models'
+require 'ixtlan' / 'user_logger'
+require 'ixtlan' / 'modified_by'
+require 'ixtlan' / 'models' / 'user'
+require 'ixtlan' / 'models' / 'locale'
+require 'ixtlan' / 'models' / 'group'
+require 'ixtlan' / 'models' / 'configuration'
+require 'ixtlan' / 'models' / 'group_user'
+require 'ixtlan' / 'models' / 'group_locale_user'
+require 'ixtlan' / 'models' / 'permission'
+require 'ixtlan' / 'models' / 'role'
+require 'ixtlan' / 'models' / 'text'
+require 'ixtlan' / 'passwords'
+require 'ixtlan' / 'digest'
+
+#hide log output
+Slf4r::LoggerFacade4RubyLogger.file = StringIO.new
+
+module ActiveSupport
+  class SecureRandom
+    def self.random_number(max)
+      rand(max)
+    end
+  end
+end
+
+module ActionController
+  module Base
+
+    def self.prepend_before_filter(*args)
+    end
+
+    def self.before_filter(filter)
+      @filters ||= []
+      @filters << filter
+    end
+
+    def self.filters
+      @filters
+    end
+  end
+end
+class Request
+  attr_accessor :headers, :method, :content_type
+  def initialize
+    @headers = {}
+    @method = :get
+    @content_type = 'text/html'
+  end
+end
+class Controller
+  include ActionController::Base
+  def initialize
+    @params = {}
+    u = Ixtlan::Models::User.first(:login => :marvin)
+    if u.nil? 
+      u = Ixtlan::Models::User.new(:login => :marvin, :name => 'marvin the robot', :email=> "marvin@universe.example.com", :language => "xx", :id => 1, :created_at => DateTime.now, :updated_at => DateTime.now)
+      if(u.respond_to? :created_by_id)
+        u.created_by_id = 1
+        u.updated_by_id = 1
+      end
+      u.save!
+    end
+    @password = u.reset_password
+    u.save!
+    g = Ixtlan::Models::Group.first(:name => :admin) || Ixtlan::Models::Group.create(:name => :admin, :current_user => u)
+#p g.errors
+#gg = Ixtlan::Models::Group.new(:name => :admin2, :current_user => u)
+#gg.save
+#p gg.errors
+    # clear up old relations
+    Ixtlan::Models::GroupUser.all.destroy!
+    Ixtlan::Models::GroupLocaleUser.all.destroy!
+    u.groups << g
+    g.locales << Ixtlan::Models::Locale.default
+    g.locales << Ixtlan::Models::Locale.first_or_create(:code => "en")
+    g.save
+    @user = u
+  end
+
+  attr_reader :params, :password, :user, :rendered
+
+  def current_user
+    @user
+  end
+
+  def render_session_timeout
+    @rendered = true
+  end
+
+  def session_timeout
+    a = Object.new
+    def a.minutes
+      b = Object.new
+      def b.from_now
+        DateTime.now
+      end
+      b
+    end
+    a
+  end
+
+  def session
+    @session ||= {}
+  end
+
+  def request
+    @request ||= Request.new
+  end
+end
+
+DataMapper.setup(:default, :adapter => :in_memory)
+
+class String
+  def cleanup
+    gsub(/ type='[a-z:]*'/, '').gsub(/[0-9-]+T[0-9:]+\+[0-9:]+/, 'date')
+  end
+end
+
+if RUBY_PLATFORM =~ /java/
+  module DataMapper
+    module Validate
+      class NumericValidator
+        
+        def validate_with_comparison(value, cmp, expected, error_message_name, errors, negated = false)
+          return if expected.nil?
+          if cmp == :=~ 
+              return value =~ expected
+          end
+          comparison = value.send(cmp, expected)
+          return if negated ? !comparison : comparison
+          
+          errors << ValidationErrors.default_error_message(error_message_name, field_name, expected)
+        end
+      end
+    end
+  end
+end
+
+class DateTime
+
+  alias :to_s_old :to_s
+  def to_s(format = nil)
+    to_s_old
+  end
+
+end
+
+class Object
+  def self.full_const_get(clazz, ref = Object)
+    if clazz =~ /::/
+      clazz.sub!(/^::/, '')
+      ref = ref.const_get(clazz.sub(/::.*/, ''))
+      self.full_const_get(clazz.sub(/[^:]*::/, ''), ref)
+    else
+      ref.const_get(clazz)
+    end
+  end
+end