xmlconv2 2.0.0

data/src/model/name.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+# Name -- xmlconv2 -- 01.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module Model
+		class Name
+			attr_reader :first, :last, :text
+			def first=(arg)
+				set_attr('@first', arg && arg.strip)
+			end
+			def last=(arg)
+				set_attr('@last', arg && arg.strip)
+			end
+			def text=(arg)
+				set_attr('@text', arg && arg.strip)
+			end
+			def to_s
+				[@first, @text, @last].compact.join(' ')
+			end
+			private
+			def set_attr(attr, arg)
+				str = arg.to_s
+				instance_variable_set(attr, str.empty? ? nil : str)
+			end
+		end
+	end
+end

data/src/model/part_info.rb

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+# Model::PartInfo -- xmlconv2 -- 23.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module Model
+		class PartInfo
+			attr_accessor :dimension, :value
+		end
+	end
+end

data/src/model/part_info_container.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+# Model::PartInfoContainer -- xmlconv2 -- 23.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module Model
+		module PartInfoContainer
+			def add_part_info(info)
+				self.part_infos.push(info)
+			end
+			def part_infos
+				@part_infos ||= []
+			end
+		end
+	end
+end

data/src/model/party.rb

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+# Party -- xmlconv2 -- 01.06.2004 -- hwyss@ywesee.com
+
+require 'model/party_container'
+require 'model/id_container'
+
+module XmlConv
+	module Model
+		class Party
+			attr_accessor :role, :address, :name
+			include PartyContainer
+			include IdContainer
+			def party_id
+				sorted = self.ids.sort
+				domain, value = sorted.first
+				value
+			end
+			def acc_id
+				self.ids['ACC']
+			end
+		end
+	end
+end

data/src/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
+			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/src/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/src/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/src/model/transaction.rb

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

data/src/state/global.rb

@@ -0,0 +1,28 @@
+#!/usr/bin/env ruby
+# State::Global -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'state/login'
+require 'state/transaction'
+require '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/src/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/src/state/login.rb

@@ -0,0 +1,38 @@
+#!/usr/bin/env ruby
+# State::Login -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'sbsm/state'
+require 'view/login'
+require '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
+			def login
+				if(@session.login)
+					Transaction.new(@session, @model)
+				else
+					self
+				end
+			end
+		end
+	end
+end

data/src/state/transaction.rb

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

data/src/state/transactions.rb

@@ -0,0 +1,130 @@
+#!/usr/bin/env ruby
+# State::Transactions -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'state/global_predefine'
+require '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/src/util/application.rb

@@ -0,0 +1,143 @@
+#!/usr/bin/env ruby
+# XmlConv::Application -- xmlconv2 -- 07.06.2004 -- hwyss@ywesee.com
+
+require 'sbsm/drbserver'
+require 'state/global'
+require 'util/invoicer'
+require 'util/polling_manager'
+require 'util/session'
+require 'util/transaction'
+require 'util/validator'
+require 'thread'
+require 'odba'
+
+VERSION = '2.0.0'
+
+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
+			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
+	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 = []
+		@dispatch_mutex = Mutex.new
+		if(self::class::POLLING_INTERVAL)
+			start_polling
+		end
+		start_dispatcher
+		start_invoicer
+		super(@system)
+	end
+	def dispatch(transaction)
+		@dispatch_mutex.synchronize {
+			@dispatch_queue.push(transaction)
+		}
+		@dispatcher_thread.wakeup
+	end
+	def start_dispatcher
+		@dispatcher_thread = Thread.new {
+			Thread.current.abort_on_exception = true
+			loop { 
+				Thread.stop
+				while(!@dispatch_queue.empty?)
+					transaction = nil
+					@dispatch_mutex.synchronize {
+						transaction = @dispatch_queue.shift
+					}
+					@system.execute(transaction)
+				end
+			}
+		}
+	end
+  def start_invoicer
+    @invoicer_thread = Thread.new {
+      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 {
+			loop {
+				begin
+					#puts "polling"
+					XmlConv::Util::PollingManager.new(@system).poll_sources
+					#puts "done"
+				rescue Exception => exc
+					puts exc
+				end
+				sleep(self::class::POLLING_INTERVAL)
+			}
+		}
+	end
+end