sbsm 1.0.0

data/lib/sbsm/turing.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/env ruby
+# Turing -- SBSM -- 15.05.2009 -- hwyss@ywesee.com
+# Use a Hash instead of a PStore to manage Captchas
+
+require 'turing'
+require 'thread'
+
+module SBSM
+  class PStore < Hash
+    def initialize *args
+      super
+      @mutex = Mutex.new
+    end
+    def transaction &block
+      @mutex.synchronize &block
+    end
+  end
+end
+class Turing::Challenge
+  alias :__orig_initialize__ :initialize
+  def initialize *args
+    __orig_initialize__ *args
+    @store = SBSM::PStore.new
+  end
+end

data/lib/sbsm/uri_parser.rb

@@ -0,0 +1,45 @@
+require 'rockit/rockit'
+module SBSM
+  # Parser for Uri
+  # created by Rockit version 0.3.8 on Wed Jul 19 18:22:17 CEST 2006
+  # Rockit is copyright (c) 2001 Robert Feldt, feldt@ce.chalmers.se
+  # and licensed under GPL
+  # but this parser is under LGPL
+  tokens = [
+    t1 = EofToken.new("EOF",/^(�~~��~^^~3499569544)/),
+    t2 = Token.new("SLASH",/^(\/)/),
+    t3 = Token.new("OTHER",/^([^\/]+)/),
+    t4 = Token.new("LANG",/^([a-z]{2})/)
+  ]
+  productions = [
+    p1 = Production.new("Uri'".intern,[:Uri],SyntaxTreeBuilder.new("Uri'",["uri"],[])),
+    p2 = Production.new(:Uri,[t2, t4, t2, t3, t2, :Variables],SyntaxTreeBuilder.new("Uri",["_", "language", "_", "event", "_", "variables"],[])),
+    p3 = Production.new(:Uri,[t2, t4, t2, t3, t2],SyntaxTreeBuilder.new("Uri",["_", "language", "_", "event"],[])),
+    p4 = Production.new(:Uri,[t2, t4, t2, t3],SyntaxTreeBuilder.new("Uri",["_", "language", "_", "event"],[nil])),
+    p5 = Production.new(:Uri,[t2, t4, t2],SyntaxTreeBuilder.new("Uri",["_", "language"],[])),
+    p6 = Production.new(:Uri,[t2, t4],SyntaxTreeBuilder.new("Uri",["_", "language"],[nil])),
+    p7 = Production.new(:Uri,[t2],SyntaxTreeBuilder.new("Uri",["_"],[])),
+    p8 = Production.new(:Variables,[:Plus404380716, t2],LiftingSyntaxTreeBuilder.new(["pair"],[])),
+    p9 = Production.new(:Variables,[:Plus404380716],LiftingSyntaxTreeBuilder.new(["pair"],[nil])),
+    p10 = Production.new(:Plus404380716,[:Plus404380716, :Pair],ArrayNodeBuilder.new([1],0,nil,nil,[],true)),
+    p11 = Production.new(:Plus404380716,[:Pair],ArrayNodeBuilder.new([0],nil,nil,nil,[],true)),
+    p12 = Production.new(:Pair,[t3, t2, t3, t2],SyntaxTreeBuilder.new("Pair",["key", "_", "value"],[])),
+    p13 = Production.new(:Pair,[t3, t2, t3],SyntaxTreeBuilder.new("Pair",["key", "_", "value"],[nil])),
+    p14 = Production.new(:Pair,[t3, t2, t2],SyntaxTreeBuilder.new("Pair",["key"],[])),
+    p15 = Production.new(:Pair,[t3],SyntaxTreeBuilder.new("Pair",["key"],[]))
+  ]
+  relations = [
+  
+  ]
+  priorities = ProductionPriorities.new(relations)
+  action_table = [[9, 2], [2, 1], [13, 8, 24, 1], [17, 2, 20, 1], [21, 4, 16, 1], [25, 2, 12, 1], [41, 4, 8, 1], [49, 2, 41, 4, 32, 1], [4, 1], [40, 7], [53, 2, 56, 7], [36, 7], [28, 1], [57, 2, 61, 4], [52, 7], [65, 2, 48, 7], [44, 7]]
+  goto_hash = {0 => {1 => 1}, 6 => {2 => 8, 3 => 7, 4 => 9}, 7 => {4 => 11}}
+  @@parse_table404243016 = ParseTable.new(productions,tokens,priorities,action_table,goto_hash,2,[
+    :REDUCE,
+    :SHIFT,
+    :ACCEPT
+  ])
+  def SBSM._uri_parser
+    GeneralizedLrParser.new(@@parse_table404243016)
+  end
+end

data/lib/sbsm/user.rb

@@ -0,0 +1,47 @@
+#!/usr/bin/env ruby
+#
+# State Based Session Management	
+#	Copyright (C) 2004 Hannes Wyss
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library 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
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Z�rich, Switzerland
+#	hwyss@ywesee.com
+#
+# User -- sbsm -- 20.11.2002 -- hwyss@ywesee.com 
+
+module SBSM
+	class User
+		HOME = nil
+		NAVIGATION = []
+		SESSION_WEIGHT = 1
+		SESSION_WEIGHT_FACTOR = 60 * 15 # 15 Minutes
+		def home
+			self::class::HOME
+		end
+		def navigation
+			self::class::NAVIGATION.dup
+		end
+		def pass; end
+		def session_weight
+			self::class::SESSION_WEIGHT * SESSION_WEIGHT_FACTOR
+		end
+	end
+	class UnknownUser < User
+	end
+	class KnownUser < User
+		SESSION_WEIGHT = 2
+	end
+end

data/lib/sbsm/validator.rb

@@ -0,0 +1,256 @@
+#!/usr/bin/env ruby
+#
+# State Based Session Management	
+#	Copyright (C) 2004 Hannes Wyss
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library 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
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Z�rich, Switzerland
+#	hwyss@ywesee.com
+#
+# Validator -- sbsm -- 15.11.2002 -- hwyss@ywesee.com 
+
+require 'digest/md5'
+require 'rmail'
+require 'date'
+require 'drb/drb'
+require 'uri'
+require 'stringio'
+require 'hpricot'
+
+module SBSM
+	class InvalidDataError < RuntimeError
+		attr_reader :key, :value
+		alias :data :value 
+		def initialize(msg, key, value)
+			super(msg.to_s)
+			@key = key
+			@value = value
+		end
+	end
+	class Validator
+		BOOLEAN = []
+		DATES = []
+		ENUMS = {}
+		EVENTS = []
+		FILES = []
+    HTML = []
+		NUMERIC = []
+		PATTERNS = {}
+		STRINGS = []
+		URIS = []
+    ALLOWED_TAGS = %{a b br div font h1 h2 h3 i img li ol p pre span strong u ul}
+		def initialize
+			reset_errors()
+			@boolean = self::class::BOOLEAN.dup
+			@dates = self::class::DATES.dup
+			@enums = self::class::ENUMS.dup
+			@events = self::class::EVENTS.dup
+			@files = self::class::FILES.dup
+			@html = self::class::HTML.dup
+			@numeric = self::class::NUMERIC.dup
+			@patterns = self::class::PATTERNS.dup
+			@strings = self::class::STRINGS.dup
+			@uris = self::class::URIS.dup
+		end	
+		def error?
+			!@errors.empty?
+		end
+		def reset_errors
+			@errors = {}
+		end	
+		def set_pass(value1, value2)
+			valid1 = pass(value1.to_s)
+			valid2 = pass(value2.to_s)
+			if(value1.to_s.empty?)
+				SBSM::InvalidDataError.new(:e_empty_pass, :pass, '')
+			elsif(valid1 != valid2)
+				SBSM::InvalidDataError.new(:e_non_matching_pass, :pass, '')
+			else
+				valid1
+			end
+		end
+		def valid_values(key)
+			key = key.intern if key.is_a? String
+			@enums.fetch(key)	{
+				if(@boolean.include?(key))
+					['false', 'true']
+				end
+			}
+		end
+		def validate(key, value)
+			value = value.pop if value.is_a? Array
+			return nil if value.nil?
+      if value.is_a?(StringIO)
+				if(@files.include?(key))
+					return validate_file(key, value)
+				else
+					begin
+						value = value.read
+					rescue StandardError => e
+						p e
+					end
+				end
+			elsif(value.is_a? DRb::DRbObject)
+				value = value[0]
+				if(@files.include?(key))
+					return validate_file(key, value)
+				else
+					begin
+						value = value.read
+					rescue StandardError => e
+						#p e
+					end
+				end
+			end
+      perform_validation(key, value)
+    end
+    def perform_validation(key, value)
+			value = value.to_s.strip
+			begin
+				if(key==:event)
+					symbol = value.to_sym
+					symbol if @events.include?(symbol)
+				elsif(@boolean.include?(key))
+					validate_boolean(key, value)
+				elsif(@dates.include?(key))
+					validate_date(key, value)
+				elsif(@enums.has_key?(key))
+					value if @enums[key].include?(value)
+				elsif(@html.include?(key))
+					validate_html(value)
+				elsif(@patterns.include?(key))
+					validate_pattern(key, value)
+				elsif(@numeric.include?(key))
+					validate_numeric(key, value)
+				elsif(@uris.include?(key))
+					validate_uri(key, value)
+				elsif(@strings.include?(key))
+					validate_string(value)
+        elsif(@files.include?(key))
+          StringIO.new(value)
+				elsif(self.respond_to?(key, true))
+					self.send(key, value)
+				end
+			rescue InvalidDataError => e
+				@errors.store(e.key, e)
+			end
+		end
+		private
+		def email(value)
+			return if(value.empty?)
+			parsed = RMail::Address.parse(value).first
+      if(parsed.nil?)
+			  raise InvalidDataError.new(:e_invalid_email_address, :email, value)
+      elsif(parsed.domain)
+				parsed.address
+			else
+				raise InvalidDataError.new(:e_domainless_email_address, :email, value)
+			end
+		end
+		def filename(value)
+			if(value == File.basename(value))
+				value
+			end
+		end
+		def flavor(value)
+			validate_string(value)
+		end
+		alias :default_flavor :flavor
+		def language(value)
+			validate_string(value)
+		end
+		def pass(value)
+      unless(value.empty?)
+			  Digest::MD5::hexdigest(value)
+      end
+		end
+		alias :confirm_pass :pass
+    @@state_id_ptrn = /-?\d+/
+		def state_id(value)
+			if(match = @@state_id_ptrn.match(value))
+				match[0].to_i
+			else
+				nil
+			end
+		end
+		def validate_boolean(key, value)
+			case value.to_s.downcase
+			when 'true', '1', 'y', 'j'
+				true
+			when 'false', '0', 'n'
+				false
+			else 
+				raise InvalidDataError.new(:e_invalid_boolean, key, value)
+			end
+		end
+		def validate_date(key, value)
+			return nil if (value.empty?)
+			begin
+				Date.parse(value.tr('.', '-'))
+			rescue ArgumentError
+				raise InvalidDataError.new(:e_invalid_date, key, value)
+			end
+		end
+		def validate_file(key, value)
+			return nil if value.original_filename.empty?
+			value
+		end
+    def validate_html(value)
+      _validate_html(value)
+    end
+    @@xml_ptrn = /<\?xml[^>]+>/
+    def _validate_html(value, valid=self.class.const_get(:ALLOWED_TAGS))
+			doc = Hpricot(value.gsub(@@xml_ptrn, ''), :fixup_tags => true)
+      (doc/"*").each { |element|
+        unless(element.is_a?(Hpricot::Text) \
+               || (element.respond_to?(:name) \
+                   && valid.include?(element.name.downcase)))
+          element.swap _validate_html(element.inner_html.to_s)
+        end
+      }
+      valid = doc.to_html
+      valid.force_encoding 'UTF-8' if valid.respond_to?(:force_encoding)
+      valid
+    end
+    @@numeric_ptrn = /\d+(\.\d{1,2})?/
+		def validate_numeric(key, value)
+			return if(value.empty?)
+			if(match = @@numeric_ptrn.match(value))
+				match[0]
+			else
+				raise InvalidDataError.new("e_invalid_#{key}", key, value)
+			end
+		end
+		def validate_pattern(key, value)
+			pattern = @patterns[key] 
+			if(match = pattern.match(value))
+				match[0]
+			end
+		end
+		def validate_string(value)
+      _validate_html(value, [])
+		end
+		def validate_uri(key, value)
+			uri = URI.parse(value)
+			if(uri.scheme.nil?)
+				uri = URI.parse('http://' << value)
+			end
+			uri
+		rescue 
+			raise InvalidDataError.new(:e_invalid_uri, key, value)
+		end
+	end
+end

data/lib/sbsm/viralstate.rb

@@ -0,0 +1,47 @@
+#!/usr/bin/env ruby
+#
+# State Based Session Management	
+#	Copyright (C) 2004 Hannes Wyss
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library 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
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#	ywesee - intellectual capital connected, Winterthurerstrasse 52, CH-8006 Z�rich, Switzerland
+#	hwyss@ywesee.com
+#
+# ViralState -- sbsm -- 16.04.2004 -- hwyss@ywesee.com 
+
+module SBSM
+	module ViralState
+		VIRAL = true
+		def infect(newstate)
+			@viral_modules.uniq.each { |mod|
+				newstate.extend(mod) unless newstate.is_a?(mod)
+			}
+			newstate
+		end
+    def trigger(event)
+      newstate = super
+      if(event==:logout)
+        @session.logout
+      else
+				infect(newstate)
+      end
+      newstate
+    rescue DRb::DRbError, RangeError
+      @session.logout
+      home
+    end
+	end
+end

data/lib/sbsm/zone_uri_parser.rb

@@ -0,0 +1,48 @@
+# encoding: utf-8
+require 'rockit/rockit'
+module SBSM
+  # Parser for Uri
+  # created by Rockit version 0.3.8 on Wed Jul 19 18:24:42 CEST 2006
+  # Rockit is copyright (c) 2001 Robert Feldt, feldt@ce.chalmers.se
+  # and licensed under GPL
+  # but this parser is under LGPL
+  tokens = [
+    t1 = EofToken.new("EOF",/^(¤~~¤¤~^^~3493746103)/),
+    t2 = Token.new("SLASH",/^(\/)/),
+    t3 = Token.new("OTHER",/^([^\/]+)/),
+    t4 = Token.new("LANG",/^([a-z]{2})/)
+  ]
+  productions = [
+    p1 = Production.new("Uri'".intern,[:Uri],SyntaxTreeBuilder.new("Uri'",["uri"],[])),
+    p2 = Production.new(:Uri,[t2, t4, t2, t3, t2, t3, t2, :Variables],SyntaxTreeBuilder.new("Uri",["_", "language", "_", "zone", "_", "event", "_", "variables"],[])),
+    p3 = Production.new(:Uri,[t2, t4, t2, t3, t2, t3, t2],SyntaxTreeBuilder.new("Uri",["_", "language", "_", "zone", "_", "event"],[])),
+    p4 = Production.new(:Uri,[t2, t4, t2, t3, t2, t3],SyntaxTreeBuilder.new("Uri",["_", "language", "_", "zone", "_", "event"],[nil])),
+    p5 = Production.new(:Uri,[t2, t4, t2, t3, t2],SyntaxTreeBuilder.new("Uri",["_", "language", "_", "zone"],[])),
+    p6 = Production.new(:Uri,[t2, t4, t2, t3],SyntaxTreeBuilder.new("Uri",["_", "language", "_", "zone"],[nil])),
+    p7 = Production.new(:Uri,[t2, t4, t2],SyntaxTreeBuilder.new("Uri",["_", "language"],[])),
+    p8 = Production.new(:Uri,[t2, t4],SyntaxTreeBuilder.new("Uri",["_", "language"],[nil])),
+    p9 = Production.new(:Uri,[t2],SyntaxTreeBuilder.new("Uri",["_"],[])),
+    p10 = Production.new(:Variables,[:Plus403922760, t2],LiftingSyntaxTreeBuilder.new(["pair"],[])),
+    p11 = Production.new(:Variables,[:Plus403922760],LiftingSyntaxTreeBuilder.new(["pair"],[nil])),
+    p12 = Production.new(:Plus403922760,[:Plus403922760, :Pair],ArrayNodeBuilder.new([1],0,nil,nil,[],true)),
+    p13 = Production.new(:Plus403922760,[:Pair],ArrayNodeBuilder.new([0],nil,nil,nil,[],true)),
+    p14 = Production.new(:Pair,[t3, t2, t3, t2],SyntaxTreeBuilder.new("Pair",["key", "_", "value"],[])),
+    p15 = Production.new(:Pair,[t3, t2, t3],SyntaxTreeBuilder.new("Pair",["key", "_", "value"],[nil])),
+    p16 = Production.new(:Pair,[t3, t2, t2],SyntaxTreeBuilder.new("Pair",["key"],[])),
+    p17 = Production.new(:Pair,[t3],SyntaxTreeBuilder.new("Pair",["key"],[]))
+  ]
+  relations = [
+  
+  ]
+  priorities = ProductionPriorities.new(relations)
+  action_table = [[9, 2], [2, 1], [13, 8, 32, 1], [17, 2, 28, 1], [21, 4, 24, 1], [25, 2, 20, 1], [29, 4, 16, 1], [33, 2, 12, 1], [49, 4, 8, 1], [53, 2, 49, 4, 40, 1], [4, 1], [48, 7], [61, 2, 64, 7], [36, 1], [44, 7], [65, 2, 69, 4], [60, 7], [73, 2, 56, 7], [52, 7]]
+  goto_hash = {0 => {1 => 1}, 8 => {2 => 10, 3 => 9, 4 => 11}, 9 => {4 => 14}}
+  @@parse_table403739556 = ParseTable.new(productions,tokens,priorities,action_table,goto_hash,2,[
+    :REDUCE,
+    :SHIFT,
+    :ACCEPT
+  ])
+  def SBSM._zone_uri_parser
+    GeneralizedLrParser.new(@@parse_table403739556)
+  end
+end