xmlconv 1.0.0

data/lib/xmlconv/util/transaction.rb

@@ -0,0 +1,133 @@
+#!/usr/bin/env ruby
+# Util::Transaction -- xmlconv2 -- 04.06.2004 -- hwyss@ywesee.com
+
+require 'odba'
+require 'xmlconv/util/destination'
+require 'xmlconv/util/mail'
+
+module XmlConv
+	module Util
+		class Transaction
+			include ODBA::Persistable
+			ODBA_SERIALIZABLE = ['@postprocs', '@responses', '@arguments']
+      odba_index :invoice_ids
+      attr_accessor :input, :reader, :writer, :destination, :origin,
+                    :transaction_id, :partner, :error, :postprocs,
+                    :error_recipients, :debug_recipients, :domain,
+                    :response, :arguments
+			attr_reader :output, :model, :start_time, :commit_time,
+									:input_model, :output_model
+      def initialize
+        @postprocs = []
+      end
+			def execute
+				reader_instance = Conversion.const_get(@reader)
+				writer_instance = Conversion.const_get(@writer)
+				@start_time = Time.now
+				input_model = reader_instance.parse(@input)
+        @arguments ||= []
+				@model = reader_instance.convert(input_model, *@arguments)
+				output_model = writer_instance.convert(@model, *@arguments)
+				@output = output_model.to_s
+				@destination.deliver(output_model)
+				@commit_time = Time.now
+				@output
+			ensure
+				@destination.forget_credentials!
+			end
+      def invoice_ids
+        @model.invoices.collect do |inv|
+          inv.invoice_id.last.to_s.gsub /^0+/, ''
+        end
+      end
+			def notify
+				recipients = [@debug_recipients]
+				subject = 'XmlConv2 - Debug-Notification'
+				if(@error)
+					recipients.push(@error_recipients)
+					subject = 'XmlConv2 - Error-Notification'
+				end
+				recipients.flatten!
+				recipients.compact!
+				recipients.uniq!
+				return if(recipients.empty?)
+				body = <<-EOS
+Date:   #{@start_time.strftime("%d.%m.%Y")}
+Time:   #{@start_time.strftime("%H:%M:%S")}
+Status: #{status}
+Error:  #{@error}
+Link:   http://#{@domain}/de/transaction/transaction_id/#{@transaction_id}
+
+Input:
+# input start
+#{@input}
+# input end
+
+Output:
+# output start
+#{@output}
+# output end
+				EOS
+        Util::Mail.notify recipients, subject, body
+			end
+      def odba_store
+        @input.extend(ODBA::Persistable) if(@input)
+        @output.extend(ODBA::Persistable) if(@output)
+        super
+      end
+      def postprocess
+        if(@postprocs.respond_to?(:each))
+          @postprocs.each { |klass, *args|
+            next if args.empty?
+            args.push(self)
+            PostProcess.const_get(klass).send(*args)
+          }
+        end
+      end
+      def respond delivery, response
+        responses[delivery] = response
+      end
+      def response
+        reader_instance = Conversion.const_get(@reader)
+        if reader_instance.respond_to?(:respond)
+          reader_instance.respond(self, responses)
+        end
+      end
+      def responses
+        @responses ||= []
+      end
+			def status
+				if(@error)
+					:error
+        elsif(@model.nil? || @model.empty?)
+          :empty
+				elsif(@destination.respond_to?(:status))
+					@destination.status
+				end
+			end
+      def status=(status)
+        if @destination.respond_to?(:status=)
+          @destination.status = status
+          @destination.odba_store
+          @destination.status
+        end
+      end
+			def status_comparable
+				if(@destination.respond_to?(:status_comparable))
+					@destination.status_comparable 
+				end
+			end
+			def update_status
+				if(@destination.respond_to?(:update_status))
+					@destination.update_status 
+				end
+			end
+			def uri
+				@destination.uri if(@destination.respond_to?(:uri))
+			end
+			def uri_comparable
+				self.uri.to_s
+			end
+		end
+	end
+end

data/lib/xmlconv/util/validator.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+# Util::Validator -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'sbsm/validator'
+
+module XmlConv
+	module Util
+		class Validator < SBSM::Validator
+			EVENTS = [
+				:login, :logout, :sort, :transaction, :self, :home
+			]
+			STRINGS = [
+				:sortvalue,
+			]
+			NUMERIC = [
+				:transaction_id, :page
+			]
+		end
+	end
+end

data/lib/xmlconv/view/foot.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+# View::Foot -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'htmlgrid/composite'
+require 'xmlconv/view/navigation'
+require 'date'
+
+module XmlConv
+	module View
+		class Foot < HtmlGrid::Composite
+			COMPONENTS = {
+				[0,0]	=>	:copyright,
+				[1,0]	=>	Navigation,
+			}
+			CSS_CLASS = 'foot composite'
+			LEGACY_INTERFACE = false
+			def copyright(model)
+				link = HtmlGrid::Link.new(:copyright, model, @session, self)
+				link.href = 'http://www.ywesee.com'
+				link.value = @lookandfeel.lookup(:copyright, Date.today.strftime('%Y'))
+				link.css_class = 'foot'
+				link.target = '_blank'
+				link
+			end
+		end
+	end
+end

data/lib/xmlconv/view/head.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby
+# View::Head -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'htmlgrid/composite'
+
+module XmlConv
+	module View
+		class Head < HtmlGrid::Composite
+			COMPONENTS = {
+			}
+		end
+	end
+end

data/lib/xmlconv/view/login.rb

@@ -0,0 +1,36 @@
+#!/usr/bin/env ruby
+# View::Login -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'xmlconv/view/template'
+require 'htmlgrid/form'
+require 'htmlgrid/pass'
+
+module XmlConv
+	module View
+		class LoginForm < HtmlGrid::Form
+			COMPONENTS = {
+				[0,0]	=>	:pass,
+				[1,1]	=>	:submit,
+			}
+			CSS_CLASS = 'component'
+			EVENT = :login
+			LABELS = true
+			SYMBOL_MAP = {
+				:pass =>  HtmlGrid::Pass,
+			}
+		end
+		class LoginComposite < HtmlGrid::Composite
+			COMPONENTS = {
+				[0,0]	=>	"login_welcome",
+				[0,1]	=>	LoginForm,
+			}
+			CSS_CLASS = 'composite'
+			CSS_MAP = {
+				[0,0]	=>	'th',
+			}
+		end
+		class Login < Template
+			CONTENT = LoginComposite
+		end
+	end
+end

data/lib/xmlconv/view/navigation.rb

@@ -0,0 +1,30 @@
+#!/usr/bin/env ruby
+# View::Navigation -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'htmlgrid/composite'
+require 'xmlconv/view/navigationlink'
+
+module XmlConv
+	module View
+		class Navigation < HtmlGrid::Composite
+			COMPONENTS = {}
+			CSS_CLASS = "navigation"
+			#HTML_ATTRIBUTES = {"align"=>"right"}
+			SYMBOL_MAP = {
+				:navigation_divider =>  HtmlGrid::Text,
+			}
+			def init
+				build_navigation()
+				super
+			end
+			def build_navigation
+				@lookandfeel.navigation.each_with_index { |state, idx|
+					evt = state.is_a?(Symbol) ? state : state.direct_event
+					symbol_map.store(evt, NavigationLink)
+					components.store([idx*2,0], evt)
+					components.store([idx*2-1,0], :navigation_divider) if(idx > 0)
+				}
+			end
+		end
+	end
+end

data/lib/xmlconv/view/navigationlink.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+# View::NavigationLink -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'htmlgrid/link'
+
+module XmlConv
+	module View
+		class NavigationLink < HtmlGrid::Link
+			#CSS_CLASS = "navigation"
+			def init
+				super
+				unless(@lookandfeel.direct_event == @name)
+					@attributes.store("href", @lookandfeel.event_url(@name))
+				end
+			end
+		end
+	end
+end
+
+
+

data/lib/xmlconv/view/pager.rb

@@ -0,0 +1,73 @@
+#!/usr/bin/env ruby
+# View::Pager -- xmlconv2 -- 01.07.2004 -- ywesee@ywesee.com
+
+require 'htmlgrid/link'
+require 'htmlgrid/list'
+
+module XmlConv
+	module View
+		class Pager < HtmlGrid::List
+			BACKGROUND_SUFFIX = ''
+			COMPONENTS = {
+				[0,0]	=>	:number_link,
+			}
+			CSS_CLASS = 'pager'
+			CSS_HEAD_MAP = {
+				#[0,0]	=>	'pager-head',
+			}
+			CSS_MAP = {
+				#[0,0]	=>	'pager',
+			}
+			LEGACY_INTERFACE = false
+			OFFSET_STEP = [1,0]
+			SORT_DEFAULT = :to_i
+			SORT_HEADER = false
+			def init
+				@page = @container.model
+				super
+			end
+			def compose_header(offset)
+				@grid.add(page_number(@model), *offset)
+				@grid.add_style('head', *offset)
+				offset = resolve_offset(offset, self::class::OFFSET_STEP)
+				if(@page != @model.first)
+					link = page_link(@page.previous)
+					link.value = @lookandfeel.lookup(:page_back)
+					@grid.add(link, *offset)
+				end
+				#@grid.add_attribute('class', 'pager', *offset)
+				resolve_offset(offset, self::class::OFFSET_STEP)
+			end
+			def compose_footer(offset)
+				if(@page != @model.last)
+					link = page_link(@page.next)
+					link.value = @lookandfeel.lookup(:page_fwd)
+					@grid.add(link, *offset)
+				else
+					@grid.add(nil, *offset)
+				end
+			end
+			private
+			def number_link(model)
+				page_link(model)
+			end
+			def page_link(page)
+				if(page != @page)
+					link = HtmlGrid::Link.new(:self, page, @session, self)
+					link.value = page.to_s
+					#link.set_attribute("class", "pager")
+					values = {
+						:page	=>	page.to_i.to_s,
+					}
+					link.href = @lookandfeel.event_url(:self, values)
+					link
+				else
+					page.to_s
+				end
+			end
+			def page_number(model)
+				@lookandfeel.lookup(:page_number, @page, @page.total)
+			end
+		end
+	end
+end

data/lib/xmlconv/view/preformatted.rb

@@ -0,0 +1,54 @@
+#!/usr/bin/env ruby
+# View::Preformatted -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'htmlgrid/value'
+
+module XmlConv
+	module View
+		BREAK_WIDTH = 65
+		class Preformatted < HtmlGrid::Value
+      def init
+        super
+        pretty = ''
+        if(@value)
+          raw = @value.gsub(/>\s+</, "><").gsub(/\r\n?/, "\n")
+          begin
+            pretty = CGI.pretty(raw)
+          rescue
+            pretty = raw
+          end
+          wrap = ''
+          pretty.each_line { |line|
+            if(line.length < BREAK_WIDTH)
+              wrap << line
+            else
+              indent = line[/^ +/].to_s
+              indent = indent[0,indent.length % (BREAK_WIDTH / 3)]
+              tmpparts = line.split(/(?<=") +(?=")/)
+              parts = []
+              tmpparts.each { |part|
+                if(part.length > BREAK_WIDTH)
+                  parts.concat(part.split(/ /))
+                else
+                  parts.push(part)
+                end
+              }
+              wrapline = parts.shift
+              while(part = parts.shift)
+                if((wrapline.length + part.length) >= BREAK_WIDTH)
+                  wrap << wrapline
+                  wrap << "\n"
+                  wrapline = indent.dup << (' ' * 5) << part
+                else
+                  wrapline << ' ' << part
+                end
+              end
+              wrap << wrapline
+            end
+          }
+          @value = CGI.escapeHTML(wrap)
+        end
+      end
+		end
+	end
+end

data/lib/xmlconv/view/template.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+# View::Template -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'htmlgrid/divtemplate'
+require 'xmlconv/view/foot'
+
+module XmlConv
+	module View
+		class Template < HtmlGrid::DivTemplate
+			COMPONENTS = {
+				[0,0]	=>	:content,
+				[0,1]	=>	:foot,
+			}
+			FOOT = Foot
+		end
+	end
+end

data/lib/xmlconv/view/transaction.rb

@@ -0,0 +1,42 @@
+#!/usr/bin/env ruby
+# View::Transaction -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'htmlgrid/value'
+require 'xmlconv/view/template'
+require 'xmlconv/view/preformatted'
+
+module XmlConv
+	module View
+		class TransactionComposite < HtmlGrid::Composite
+			COMPONENTS = {
+				[0,0]	=>	'th_input',
+				[1,0]	=>	'th_output',
+				[0,1]	=>	:input,
+				[1,1]	=>	:output,
+				[0,2]	=>	'th_error',
+				[0,3]	=>	:error_string,
+			}
+			CSS_CLASS = 'composite'
+			CSS_MAP = {
+				[0,0,2]	=>	'th',
+				[0,1,2]	=>	'helfti preformatted',
+				[0,2]		=>	'th',
+				[0,3]		=>	'list preformatted bg',
+			}
+			COLSPAN_MAP = {
+				[0,2]	=>	2,
+				[0,3]	=>	2,
+			}
+			DEFAULT_CLASS = View::Preformatted
+			LEGACY_INTERFACE = false
+			def error_string(model)
+				if(err = model.error)
+					[err.class, err.message, err.backtrace].join("\n")
+				end
+			end
+		end
+		class Transaction < Template
+			CONTENT = TransactionComposite
+		end
+	end
+end

data/lib/xmlconv/view/transactions.rb

@@ -0,0 +1,90 @@
+#!/usr/bin/env ruby
+# View::Transactions -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'htmlgrid/list'
+require 'htmlgrid/value'
+require 'xmlconv/view/template'
+require 'xmlconv/view/pager'
+
+module XmlConv
+	module View
+		class TransactionsList < HtmlGrid::List
+			BACKGROUND_SUFFIX = ' bg'
+			COMPONENTS = {
+				[0,0]	=>	:transaction_id,
+				[1,0]	=>	:origin,
+				[2,0]	=>	:commit_time,
+				[3,0]	=>	:uri_comparable,
+				[4,0]	=>	:status_comparable,
+			}
+			CSS_CLASS = 'composite'
+			CSS_HEAD_MAP = {
+				[0,0]	=>	'right',
+			}
+			CSS_MAP = {
+				[0,0]		=>	'list right',
+				[1,0,4]	=>	'list',
+			}
+			DEFAULT_CLASS = HtmlGrid::Value
+			LEGACY_INTERFACE = false
+			SORT_DEFAULT = nil #:commit_time
+			SORT_REVERSE = false
+			def commit_time(model)
+				time_format(model.commit_time || model.start_time)
+			end
+			def origin(model)
+				uri_fmt(model.origin)
+			end
+			def uri_comparable(model)
+				uri_fmt(model.uri)
+			end
+			def uri_fmt(uri)
+				uri = uri.to_s
+				if((i1 = uri.index(/([^\/])\/[^\/]/, 1)) \
+						&& (i2 = uri.rindex(/(\/[^\/]+){3}/)) \
+						&& (i2 > i1))
+					uri[0..(i1.next)] << '...' << uri[i2..-1]
+				else 
+					uri
+				end
+			end
+			def status_comparable(model)
+				model.update_status
+				status = model.status
+				@lookandfeel.lookup("status_#{status}") or status.to_s
+			end
+			def time_format(a_time)
+				if(a_time.respond_to?(:strftime))
+					a_time.strftime("%d.%m.%Y %H:%M:%S") 
+				end
+			end
+			def transaction_id(model)
+				link = HtmlGrid::Link.new(:transaction_id, model, @session, self)
+				args = {
+					'transaction_id'	=>	model.transaction_id,
+				}
+				link.href = @lookandfeel.event_url(:transaction, args)
+				link.value = model.transaction_id
+				link
+			end
+		end
+		class TransactionsComposite < HtmlGrid::Composite
+			COMPONENTS = {
+				[0,0]	=>	:pager,
+				[0,1]	=>	:transactions,
+			}
+			CSS_CLASS = 'composite'
+			LEGACY_INTERFACE = false
+			def pager(model)
+				Pager.new(model.pages, @session, self)
+			end
+			def transactions(page)
+				TransactionsList.new(page.model, @session, self)
+			end
+		end
+		class Transactions < Template
+			CONTENT = TransactionsComposite
+			#CONTENT = TransactionsList
+		end
+	end
+end

data/lib/xmlconv.rb

@@ -0,0 +1,3 @@
+class Version
+    VERSION = '1.0.0'
+end

data/test/config.rb

@@ -0,0 +1,12 @@
+#!/usr/bin/env ruby
+# Config -- xmlconv2 -- 21.08.2006 -- hwyss@ywesee.com
+
+require 'ostruct'
+
+module XmlConv
+  CONFIG = OpenStruct.new
+  CONFIG.grammar_dir = File.expand_path('../data/grammar', 
+                                        File.dirname(__FILE__))
+  CONFIG.polling_file = File.expand_path('data/polling.yaml',
+                                         File.dirname(__FILE__))
+end