xmlconv 1.0.0

data/lib/xmlconv/model/party_container.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+# PartyContainer -- xmlconv2 -- 01.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module Model
+		module PartyContainer
+			attr_accessor :employee, :ship_to, :bill_to, :seller, :customer
+			def add_party(party)
+				if((role = party.role) && !role.empty?)
+					role = role.gsub(/\B[A-Z]/, '_\&')
+					instance_variable_set("@#{role.downcase}", party)
+					self.parties.push(party)
+				end
+			end
+			def parties
+				@parties ||= []
+			end
+		end
+	end
+end

data/lib/xmlconv/model/price.rb

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+# Model::Price -- xmlconv2 -- 21.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module Model
+		class Price
+			attr_accessor :purpose, :amount
+		end
+	end
+end

data/lib/xmlconv/model/price_container.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+# PriceContainer -- xmlconv2 -- 22.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module Model
+		module PriceContainer
+			def add_price(price)
+				self.prices.push(price)
+			end
+      def get_price(purpose)
+        self.prices.find { |price| price.purpose == purpose }
+      end
+			def prices
+				@prices ||= []
+			end
+		end
+	end
+end

data/lib/xmlconv/model/transaction.rb

@@ -0,0 +1,28 @@
+#!/usr/bin/env ruby
+# Model::Transaction -- xmlconv2 -- 23.06.2004 -- hwyss@ywesee.com
+
+require 'xmlconv/model/freetext_container'
+require 'xmlconv/model/id_container'
+require 'xmlconv/model/item_container'
+require 'xmlconv/model/party_container'
+require 'xmlconv/model/price_container'
+
+module XmlConv
+	module Model
+		class Transaction
+			include IdContainer
+			include ItemContainer
+			include FreeTextContainer
+			include PartyContainer
+			include PriceContainer
+			attr_accessor :agreement, :status, :status_date, 
+        :transport_cost
+			def customer_id
+				self.id_table['customer']
+			end
+			def reference_id
+				self.id_table['acc']
+			end
+		end
+	end
+end

data/lib/xmlconv/state/global.rb

@@ -0,0 +1,28 @@
+#!/usr/bin/env ruby
+# State::Global -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'xmlconv/state/login'
+require 'xmlconv/state/transaction'
+require 'xmlconv/state/transactions'
+
+module XmlConv
+	module State
+		class Global < SBSM::State
+			def logout
+				@session.logout
+				Login.new(@session, @model)
+			end
+			def transaction
+				if((id = @session.user_input(:transaction_id)) \
+					&& (transaction = @session.transaction(id)))
+					Transaction.new(@session, transaction)
+				else
+					self
+				end
+			end
+			def home
+				Transactions.new(@session, @session.transactions)
+			end
+		end
+	end
+end

data/lib/xmlconv/state/global_predefine.rb

@@ -0,0 +1,11 @@
+#!/usr/bin/env ruby
+# State::Global -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'sbsm/state'
+
+module XmlConv
+	module State
+		class Global < SBSM::State
+		end
+	end
+end

data/lib/xmlconv/state/login.rb

@@ -0,0 +1,39 @@
+#!/usr/bin/env ruby
+# State::Login -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'sbsm/state'
+require 'xmlconv/view/login'
+require 'xmlconv/state/transactions'
+
+module XmlConv
+	module State
+		class Login < SBSM::State
+			VIEW = View::Login
+			def login
+				if(@session.login)
+					Transactions.new(@session, @session.transactions)
+				else
+					self
+				end
+			end
+			def transaction
+				if((id = @session.user_input(:transaction_id)) \
+					&& (transaction = @session.transaction(id)))
+					TransactionLogin.new(@session, transaction)
+				else
+					self
+				end
+			end
+		end
+		class TransactionLogin < SBSM::State
+			VIEW = View::Login
+			def login
+				if(@session.login)
+					Transaction.new(@session, @model)
+				else
+					self
+				end
+			end
+		end
+	end
+end

data/lib/xmlconv/state/transaction.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby
+# State::Transaction -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'xmlconv/state/global_predefine'
+require 'xmlconv/view/transaction'
+
+module XmlConv
+	module State
+		class Transaction < Global
+			VIEW = View::Transaction
+		end
+	end
+end

data/lib/xmlconv/state/transactions.rb

@@ -0,0 +1,130 @@
+#!/usr/bin/env ruby
+# State::Transactions -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'xmlconv/state/global_predefine'
+require 'xmlconv/view/transactions'
+
+module XmlConv
+	module State
+		class Transactions < Global
+			class PageFacade
+				attr_accessor :model, :pages
+				def initialize(int)
+					@int = int
+				end
+				def next
+					PageFacade.new(@int.next)
+				end
+				def pages
+					@pages[[[@int - (PAGER_SIZE / 2), total - PAGER_SIZE].min, 
+						0].max, PAGER_SIZE]
+				end
+				def previous
+					PageFacade.new(@int-1)
+				end
+				def total
+					@pages.size
+				end
+				def to_i
+					@int
+				end
+				def to_s
+					@int.next.to_s
+				end
+			end
+			DIRECT_EVENT = :home
+			PAGE_SIZE = 20
+			PAGER_SIZE = 10
+			REVERSE_MAP = {
+				:commit_time => true,
+			}
+			VIEW = View::Transactions
+			def init
+				@transactions = @model
+				@model = @transactions.reverse
+				setup_pages
+				@filter = Proc.new { 
+					page
+				}
+				super
+			end
+			def compare_entries(a, b)
+				@sortby.each { |sortby|
+					aval, bval = nil
+					begin
+						aval = a.send(sortby)
+						bval = b.send(sortby)
+					rescue
+						next
+					end
+					res = if(aval.nil? && bval.nil?)
+						0
+					elsif(aval.nil?)
+						1
+					elsif(bval.nil?)
+						-1
+					else
+						aval <=> bval
+					end
+					return res unless(res == 0)
+				}
+				0
+			end
+			def get_sortby!
+				@sortby ||= []
+				sortvalue = @session.user_input(:sortvalue)
+				if(sortvalue.is_a? String)
+					sortvalue = sortvalue.intern
+				end
+				if(@sortby.first == sortvalue)
+					@sort_reverse = !@sort_reverse
+				else
+					@sort_reverse = self.class::REVERSE_MAP[sortvalue]
+				end
+				@sortby.delete_if { |sortby|
+					sortby == sortvalue
+				}
+				@sortby.unshift(sortvalue)
+			end
+			def page
+				if(pge = @session.user_input(:page))
+					@page = @pages[pge.to_i]
+				else
+					@page ||= @pages.first
+				end
+			end
+			def page_size
+				self::class::PAGE_SIZE
+			end
+			def self
+				self
+			end
+			def setup_pages
+				@pages = []
+				@page = nil
+				pages = [(@model.size / PAGE_SIZE.to_f).ceil, 1].max
+				pages.times { |pnum|
+					page = PageFacade.new(pnum)
+					page.model = @model[pnum * PAGE_SIZE, PAGE_SIZE]
+					page.pages = @pages
+					@pages.push(page)
+				}
+			end
+			def size
+				@model.size
+			end
+			def sort
+				return self unless @model.is_a? Array
+				get_sortby!
+				@model = @transactions.dup
+				@model.sort! { |a, b| compare_entries(a, b) }
+				@model.reverse! if(@sort_reverse)
+				setup_pages
+				self
+			end
+			def transactions
+				self
+			end
+		end
+	end
+end

data/lib/xmlconv/util/application.rb

@@ -0,0 +1,142 @@
+#!/usr/bin/env ruby
+# XmlConv::Application -- xmlconv2 -- 07.06.2004 -- hwyss@ywesee.com
+
+require 'sbsm/drbserver'
+require 'xmlconv/state/global'
+require 'xmlconv/util/invoicer'
+require 'xmlconv/util/polling_manager'
+require 'xmlconv/util/session'
+require 'xmlconv/util/transaction'
+require 'xmlconv/util/validator'
+require 'thread'
+require 'odba'
+
+module XmlConv
+	module Util
+		class Application
+			attr_reader :transactions, :failed_transactions
+			include ODBA::Persistable
+			ODBA_EXCLUDE_VARS = ['@next_transaction_id', '@id_mutex']
+			def initialize
+				@transactions = []
+				@failed_transactions = []
+			end
+			def init
+				@id_mutex = Mutex.new
+			end
+			def execute(transaction)
+				_execute(transaction)
+				transaction.notify
+			rescue Exception => error
+				## survive notification failure
+			end
+			def _execute(transaction)
+				transaction.transaction_id = next_transaction_id
+				transaction.execute
+        transaction.postprocess
+			rescue Exception => error
+				transaction.error = error
+			ensure
+				@transactions.push(transaction)
+				ODBA.transaction {
+					@transactions.odba_store
+				}
+			end
+			def next_transaction_id
+				@id_mutex.synchronize {
+					@next_transaction_id ||= @transactions.collect { |transaction|
+						transaction.transaction_id.to_i
+					}.max.to_i
+					@next_transaction_id += 1
+				}
+			end
+			def transaction(transaction_id)
+				transaction_id = transaction_id.to_i
+				if((last_id = @transactions.last.transaction_id) \
+					&& (last_id >= transaction_id))
+					start = (transaction_id - last_id - 1) 
+					if(start + @transactions.size < 0)
+						start = 0
+					end
+					@transactions[start..-1].each { |trans|
+						return trans if(trans.transaction_id == transaction_id)
+					}
+				end
+			end
+      def send_invoice(time_range, date = Date.today)
+        transactions = @transactions.select { |trans| 
+          time_range.include?(trans.commit_time)
+        }
+        Util::Invoicer.run(time_range, transactions, date)
+      end
+		end
+	end
+end
+
+class XmlConvApp < SBSM::DRbServer
+	ENABLE_ADMIN = true
+	SESSION = XmlConv::Util::Session
+	VALIDATOR = XmlConv::Util::Validator
+	POLLING_INTERVAL = 60 #* 15
+	attr_reader :polling_thread, :dispatch_queue, :dispatcher_thread
+	def initialize
+		@system = ODBA.cache.fetch_named('XmlConv', self) { 
+			XmlConv::Util::Application.new
+		}
+		@system.init
+		@dispatch_queue = Queue.new
+		if(self::class::POLLING_INTERVAL)
+			start_polling
+		end
+		start_dispatcher
+		start_invoicer if XmlConv::CONFIG.run_invoicer
+		super(@system)
+	end
+	def dispatch(transaction)
+    @dispatch_queue.push(transaction)
+	end
+  def execute_with_response(transaction)
+    begin
+      @system.execute(transaction)
+    rescue Exception => e
+      puts "rescued #{e.class}"
+    end
+    transaction.response.to_s
+  end
+	def start_dispatcher
+		@dispatcher_thread = Thread.new {
+			Thread.current.abort_on_exception = true
+			loop { 
+				@system.execute(@dispatch_queue.pop)
+			}
+		}
+	end
+  def start_invoicer
+    @invoicer_thread = Thread.new {
+      Thread.current.abort_on_exception = true
+      loop { 
+        this_month = Date.today
+        next_month = this_month >> 1
+        strt = Time.local(this_month.year, this_month.month)
+        stop = Time.local(next_month.year, next_month.month)
+        sleep(stop - Time.now)
+        @system.send_invoice(strt...stop)
+      }
+    }
+  end
+  def start_polling
+		@polling_thread = Thread.new {
+      Thread.current.abort_on_exception = true
+			loop {
+				begin
+					XmlConv::Util::PollingManager.new(@system).poll_sources
+				rescue Exception => exc
+					XmlConv::LOGGER.error(XmlConv::CONFIG.program_name) { 
+            [exc.class, exc.message].concat(exc.backtrace).join("\n")
+          }
+				end
+				sleep(self::class::POLLING_INTERVAL)
+			}
+		}
+	end
+end

data/lib/xmlconv/util/autoload.rb

@@ -0,0 +1,35 @@
+#!/usr/bin/env ruby
+# Util#autoload -- xmlconv2 -- 28.08.2006 -- hwyss@ywesee.com
+
+module XmlConv
+  module Util
+    def Util.autoload(dir, type)
+      config = XmlConv::CONFIG
+      logger = XmlConv::LOGGER
+      dir = File.expand_path(dir)
+      prefix = File.basename(dir)
+      search_path = File.dirname(dir)
+      $:.push(search_path) unless $:.include?(search_path)
+      logger.debug(config.program_name) { 
+        "checking directory '#{dir}' for #{type}s" 
+      }
+      Dir.glob(File.join(dir, '*')) { |entry|
+        if(/\.(rb|so)$/.match(entry))
+          keyword = File.basename(entry)
+          keyword.slice!(/#{File.extname(keyword)}$/)
+          rpath = File.join(prefix, keyword)
+          logger.debug(config.program_name) { 
+            "loading #{type}: '#{rpath}' (#{File.basename(entry)})" 
+          }
+          begin
+            require rpath #File.basename(keyword)
+          rescue 
+            logger.warn(config.program_name) {
+              "loading #{type} '#{rpath}' failed!"
+            }
+          end
+        end
+      }
+    end
+  end
+end