sbsm 1.0.0

data/lib/cgi/drbsession.rb

@@ -0,0 +1,37 @@
+#
+# DRbSession - CGI::Session session database manager using DRb.
+# Copyright (C) 2001 by Tietew. All Rights Reserved.
+#
+require 'drb/drb'
+
+class CGI
+  class Session
+    class DRbSession
+      def initialize(session, option={})
+        unless uri = option['drbsession_uri']
+          raise ArgumentError, "drbsession_uri not specified"
+        end
+        
+        unless DRb.thread
+          DRb.start_service
+        end
+        
+        holder = DRbObject.new(nil, uri)
+        @obj = holder[session.session_id]
+      end
+      
+      def restore
+        @obj.restore
+      end
+      def update
+        @obj.update
+      end
+      def close
+        @obj.close
+      end
+      def delete
+        @obj.delete
+      end
+    end
+  end
+end

data/lib/sbsm/cgi.rb

@@ -0,0 +1,79 @@
+#!/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
+#
+# CGI redefinitions
+
+require 'cgi'
+require 'drb/drb'
+
+class CGI
+	module TagMaker
+    def nOE_element_def(element, append = nil)
+      s = <<-END
+          "<#{element.upcase}" + attributes.collect{|name, value|
+            next unless value
+            " " + name.to_s +
+            if true == value
+              ""
+            else
+              '="' + CGI::escapeHTML(value) + '"'
+            end
+          }.to_s + ">"
+      END
+      s.sub!(/\Z/, " +") << append if append
+      s
+    end
+	end
+	class Session
+		attr_reader :output_cookies
+	end
+  def CGI::pretty(string, shift = "  ")
+    lines = string.gsub(/(?!\A)<(?!\/(pre|textarea))(?:.)*?>/ni, "\n\\0").gsub(/<(?!(pre|textarea))(?:.)*?>(?!\n)/i, "\\0\n")
+	  end_pos = 0
+		preformatted = []
+		while (end_pos = lines.index(/<\/pre\s*>/i, end_pos)) \
+      && (start_pos = lines.rindex(/<pre(\s+[^>]+)?>/i, end_pos))
+			start_pos += $~[0].length
+			preformatted.push(lines[ start_pos ... end_pos ])
+			lines[ start_pos ... end_pos ] = ''
+			end_pos	= start_pos + 6
+		end
+    end_pos = 0
+    while end_pos = lines.index(/^<\/(\w+)/, end_pos)
+      element = $1.dup
+      start_pos = lines.rindex(/^\s*<#{element}/i, end_pos)
+      lines[start_pos ... end_pos] = "__" + lines[start_pos ... end_pos].gsub(/\n(?!\z)/, "\n" + shift) + "__"
+    end
+    pretty = lines.gsub(/^((?:#{Regexp::quote(shift)})*)__(?=<\/?\w)/, '\1')
+		pos = 0
+		preformatted.each { |pre|
+			if(pos = pretty.index(/<\/pre\s*>/i, pos))
+				pretty[pos,0] = pre
+				pos += pre.length + 6
+			end
+		}
+		pretty
+  end
+	def CGI::escapeHTML(string)
+		string.to_s.gsub(/&(?![^;]{2,6};)/, '&amp;').gsub(/\"/, '&quot;').gsub(/>/, '&gt;').gsub(/</, '&lt;')
+	end
+end

data/lib/sbsm/drb.rb

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+# DRb::DRbObject -- fix bug in ruby -- 23.09.2005 -- hwyss@ywesee.com
+
+require 'drb'
+
+module DRb
+	class DRbObject
+		def respond_to?(msg_id)
+			case msg_id
+			when :_dump
+				true
+			when :marshal_dump
+				false
+			else
+				method_missing(:respond_to?, msg_id)
+			end
+		end
+	end
+end

data/lib/sbsm/drbserver.rb

@@ -0,0 +1,162 @@
+#!/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
+#
+# DrbServer -- sbsm -- hwyss@ywesee.com
+
+require 'delegate'
+require 'sbsm/drb'
+require 'sbsm/session'
+require 'sbsm/user'
+require 'thread'
+require 'digest/md5'
+
+module SBSM
+	class DRbServer < SimpleDelegator
+		include DRbUndumped
+		CLEANING_INTERVAL = 30
+		CAP_MAX_THRESHOLD = 120
+		ENABLE_ADMIN = false
+		MAX_SESSIONS = 100
+		RUN_CLEANER = true
+		SESSION = Session
+		UNKNOWN_USER = UnknownUser
+		VALIDATOR = nil
+		attr_reader :cleaner, :updater
+		def initialize(persistence_layer=nil)
+			@sessions = {}
+			@mutex = Mutex.new
+			@cleaner = run_cleaner if(self.class.const_get(:RUN_CLEANER))
+			@admin_threads = ThreadGroup.new
+			@async = ThreadGroup.new
+			@system = persistence_layer
+			super(persistence_layer)
+		end
+		def _admin(src, result, priority=0)
+			raise "admin interface disabled" unless(self::class::ENABLE_ADMIN)
+			t = Thread.new {
+				Thread.current.abort_on_exception = false
+				result << begin
+					response = begin
+						instance_eval(src)
+					rescue NameError => e
+						e
+					end
+					str = response.to_s
+					if(str.length > 200)
+						response.class
+					else
+						str
+					end
+				rescue StandardError => e
+					e.message
+				end.to_s
+			}
+			t[:source] = src
+			t.priority = priority
+			@admin_threads.add(t)
+			t
+		end
+		def async(&block)
+			@async.add(Thread.new(&block))
+		end
+		def cap_max_sessions(now = Time.now)
+			if(@sessions.size > self::class::CAP_MAX_THRESHOLD)
+				puts "too many sessions! Keeping only #{self::class::MAX_SESSIONS}"
+        sess = nil
+				sorted = @sessions.values.sort
+				sorted[0...(-self::class::MAX_SESSIONS)].each { |sess|
+					sess.__checkout
+					@sessions.delete(sess.key)
+				}
+        if(sess)
+          age = sess.age(now)
+          puts sprintf("deleted all sessions that had not been accessed for more than %im %is", age / 60, age % 60)
+        end
+			end
+		end
+		def clean
+      now = Time.now
+			@sessions.delete_if { |key, s| 
+        begin
+          if s.respond_to?(:expired?)
+            if s.expired?(now)
+              s.__checkout
+              true
+            else
+              s.cap_max_states
+              false
+            end
+          else
+            true
+          end
+        rescue
+          true
+        end
+			}
+			#cap_max_sessions(now)
+		end
+		def clear
+			@sessions.each_value { |sess| sess.__checkout }
+			@sessions.clear
+		end
+		def delete_session(key)
+			if(sess = @sessions.delete(key))
+				sess.__checkout
+			end
+		end
+		def reset
+			@mutex.synchronize {
+				@sessions.clear
+			}
+		end
+		def run_cleaner
+			# puts "running cleaner thread"
+			Thread.new {
+				Thread.current.abort_on_exception = true
+				#Thread.current.priority = 1
+				loop {
+					sleep self::class::CLEANING_INTERVAL
+					@mutex.synchronize {
+						clean()
+					}
+				}
+			}
+		end
+		def unknown_user
+			self::class::UNKNOWN_USER.new
+		end
+		def [](key)
+			@mutex.synchronize {
+				unless((s = @sessions[key]) && !s.expired?)
+					args = [key, self]
+					if(klass = self::class::VALIDATOR)
+						args.push(klass.new)
+					end
+					s = @sessions[key] = self::class::SESSION.new(*args.compact)
+				end
+				s.reset()
+				s.touch()
+				s
+			}
+		end
+	end
+end

data/lib/sbsm/exception.rb

@@ -0,0 +1,28 @@
+#!/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
+#
+# Exception -- sbsm -- 22.10.2002 -- hwyss@ywesee.com 
+
+module SBSM
+	class ProcessingError < RuntimeError
+	end
+end

data/lib/sbsm/flavored_uri_parser.rb

@@ -0,0 +1,47 @@
+require 'rockit/rockit'
+module SBSM
+  # Parser for Uri
+  # created by Rockit version 0.3.8 on Wed Jul 19 18:22:18 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",/^(�~~��~^^~2220240369)/),
+    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", "_", "flavor", "_", "event", "_", "variables"],[])),
+    p3 = Production.new(:Uri,[t2, t4, t2, t3, t2, t3, t2],SyntaxTreeBuilder.new("Uri",["_", "language", "_", "flavor", "_", "event"],[])),
+    p4 = Production.new(:Uri,[t2, t4, t2, t3, t2, t3],SyntaxTreeBuilder.new("Uri",["_", "language", "_", "flavor", "_", "event"],[nil])),
+    p5 = Production.new(:Uri,[t2, t4, t2, t3, t2],SyntaxTreeBuilder.new("Uri",["_", "language", "_", "flavor"],[])),
+    p6 = Production.new(:Uri,[t2, t4, t2, t3],SyntaxTreeBuilder.new("Uri",["_", "language", "_", "flavor"],[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,[:Plus404231304, t2],LiftingSyntaxTreeBuilder.new(["pair"],[])),
+    p11 = Production.new(:Variables,[:Plus404231304],LiftingSyntaxTreeBuilder.new(["pair"],[nil])),
+    p12 = Production.new(:Plus404231304,[:Plus404231304, :Pair],ArrayNodeBuilder.new([1],0,nil,nil,[],true)),
+    p13 = Production.new(:Plus404231304,[: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], [45, 4, 8, 1], [4, 1], [48, 7], [53, 2, 64, 7], [61, 2, 45, 4, 40, 1], [65, 2, 69, 4], [44, 7], [36, 1], [60, 7], [73, 2, 56, 7], [52, 7]]
+  goto_hash = {0 => {1 => 1}, 12 => {4 => 14}, 8 => {2 => 9, 3 => 12, 4 => 10}}
+  @@parse_table404014956 = ParseTable.new(productions,tokens,priorities,action_table,goto_hash,2,[
+    :REDUCE,
+    :SHIFT,
+    :ACCEPT
+  ])
+  def SBSM._flavored_uri_parser
+    GeneralizedLrParser.new(@@parse_table404014956)
+  end
+end

data/lib/sbsm/index.rb

@@ -0,0 +1,66 @@
+#!/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
+#
+# Index -- sbsm -- 04.03.2003 -- hwyss@ywesee.com 
+
+module SBSM
+VERSION = '1.0.0'
+  class Index
+		def initialize
+			@values = []
+			@children = []
+		end
+		def delete(key, value)
+			if (key.size == 0)
+				@values.delete(value)
+			elsif (child = @children.at(key[0]))
+				child.delete(key[1..-1], value)
+			end
+		end
+		def fetch(key)
+			if(key.size == 1)
+				@values + @children[key[0]].to_a
+			elsif(key.size > 1 && @children.at(key[0]))
+				@children.at(key[0])[key[1..-1]]
+			else
+				[]
+			end
+		end
+		def replace(oldkey, newkey, value)
+			delete(oldkey, value)
+			store(newkey, value)
+		end
+		def store(key, *values)
+			if(key.size == 0)
+				@values += values
+			else
+				@children[key[0]] ||= self.class.new
+				@children.at(key[0]).store(key[1..-1], *values)
+			end
+		end
+		def to_a
+			@values + @children.inject([]) { |inj, child| inj += child.to_a.compact }
+		end
+		alias :[] :fetch
+		alias :[]= :store
+	end
+end