xmlconv2 2.0.0

data/src/util/destination.rb

@@ -0,0 +1,130 @@
+#!/usr/bin/env ruby
+# Destination -- xmlconv2 -- 08.06.2004 -- hwyss@ywesee.com
+
+require 'fileutils'
+require 'uri'
+require 'odba'
+require 'net/http'
+
+module XmlConv
+	module Util
+		class Destination
+			include ODBA::Persistable
+			attr_accessor :path
+			attr_reader :uri, :status
+			STATUS_COMPARABLE = {
+				:pending_pickup	=>	10,	
+				:picked_up			=>	20,	
+				:http_ok				=>	20
+			}
+			def initialize
+				@status = :open
+			end
+			def deliver(delivery)
+				raise 'Abstract Method deliver called in Destination'
+			end
+			def update_status
+			end
+			def status_comparable
+				self::class::STATUS_COMPARABLE[@status].to_i				
+			end
+			def forget_credentials!
+			end
+		end
+		class DestinationDir < Destination
+			attr_reader :filename
+			def deliver(delivery)
+        do_deliver(delivery)
+        @status = :pending_pickup
+				odba_store
+      end
+      def do_deliver(delivery)
+        if(delivery.is_a?(Array))
+          delivery.each { |part| do_deliver(part) }
+        else
+          FileUtils.mkdir_p(@path)
+          @filename = if(delivery.respond_to?(:filename))
+												delivery.filename
+											else
+												"%.5f.txt" % Time.now.to_f
+											end
+          path = File.expand_path(@filename, @path)
+          File.open(path, 'w') { |fh| fh << delivery.to_s }
+        end
+			end
+			def update_status
+				if(@status == :pending_pickup \
+					&& !File.exist?(File.expand_path(@filename.to_s, @path)))
+					@status = :picked_up
+					odba_store
+				end
+			end
+			def uri
+				URI.parse("file:#{File.expand_path(@filename.to_s, @path)}")
+			end
+		end
+		class DestinationHttp < Destination
+			HTTP_CLASS = Net::HTTP # replaceable for testing purposes
+			HTTP_HEADERS = {
+				'content-type'	=>	'text/xml',
+			}
+			def initialize
+				super
+				@uri = URI.parse('http:/')
+			end
+			def deliver(delivery)
+        do_deliver(delivery)
+      ensure
+        forget_credentials!
+      end
+      def do_deliver(delivery)
+        if(delivery.is_a?(Array))
+           worst_status = ''
+           delivery.each { |part| 
+             do_deliver(part) 
+             ## bogostatus: assume that the more information in the string, 
+             ##             the worse the status is (ok < not found)
+             ##             rationale: DTSTTCPW
+             if(@status.to_s > worst_status.to_s)
+               worst_status = @status
+             end
+           }
+           @status = worst_status
+        else
+          self.class::HTTP_CLASS.start(@uri.host, @uri.port) { |http|
+            request = Net::HTTP::Post.new(@uri.path, HTTP_HEADERS)
+            if(@uri.user || @uri.password)
+              request.basic_auth(@uri.user, @uri.password)
+            end
+            response = http.request(request, delivery.to_s)	
+            status_str = response.message.downcase.gsub(/\s+/, "_")
+            @status = "http_#{status_str}".intern
+          }
+        end
+			end
+			def forget_credentials!
+				@uri = URI::HTTP.new(@uri.scheme, nil, @uri.host, @uri.port, 
+					@uri.registry, @uri.path, @uri.opaque, @uri.query, @uri.fragment)
+			end
+			def host
+				@uri.host
+			end
+			def host=(str)
+				@uri.host = str
+			end
+			def path
+				@uri.path if(@uri)
+			end
+			def path=(str)
+				@uri.path = str if(@uri)
+			end
+			def uri=(uri)
+				if(uri.is_a?(String))
+					@uri = URI.parse(uri)
+				else
+					@uri = uri
+				end
+			end
+		end
+	end
+end

data/src/util/invoicer.rb

@@ -0,0 +1,72 @@
+#!/usr/bin/env ruby
+# Util::Invoicer -- xmlconv2 -- 03.08.2006 -- hwyss@ywesee.com
+
+require 'ydim/config'
+require 'ydim/client'
+require 'openssl'
+
+module XmlConv
+	module Util
+class Invoicer
+  class << self
+    def create_invoice(time_range, groups, date, currency='CHF')
+      time = Time.now
+      format = "Umsatzbeteiligung %s\nCHF %1.2f Umsatz\naus %i Rechnungs-�bermittlungen"
+      ydim_connect { |client|
+        ydim_inv = client.create_invoice(YDIM_ID)
+        ydim_inv.description = sprintf("Umsatzbeteiligung %s-%s", 
+                                       time_range.first.strftime("%d.%m.%Y"),
+                                       (time_range.last - 1).strftime("%d.%m.%Y"))
+        ydim_inv.date = date
+        ydim_inv.currency = currency
+        ydim_inv.payment_period = 30
+        item_data = groups.sort.collect { |group, bdds|
+					amount = 0
+					invoices = 0
+          bdds.each { |bdd| 
+						amount += bdd.invoiced_amount 
+						invoices += 1 unless(bdd.invoices.empty?)
+					}
+          {
+            :price    =>  (amount * 1.5) / 1000.0,
+            :quantity =>  1,
+            :text     =>  sprintf(format, group.to_s, amount, invoices),
+            :time			=>	Time.local(date.year, date.month, date.day),
+            :unit     =>  "0.15%",
+          }
+        }
+        client.add_items(ydim_inv.unique_id, item_data)
+        ydim_inv
+      }
+    end
+    def group_by_partner(transactions)
+      groups = {}
+      transactions.each { |transaction|
+        (groups[transaction.partner] ||= []).push(transaction.model)
+      }
+      groups
+    end
+    def run(time_range, transactions, date)
+      unless(transactions.empty?)
+        invoice = create_invoice(time_range, group_by_partner(transactions), 
+                                 date)
+        send_invoice(invoice.unique_id)
+      end
+    end
+    def send_invoice(invoice_id)
+      ydim_connect { |client| client.send_invoice(invoice_id) }
+    end
+    def ydim_connect(&block)
+      config = YDIM::Client::CONFIG
+      server = DRbObject.new(nil, config.server_url)
+      client = YDIM::Client.new(config)
+      key = OpenSSL::PKey::DSA.new(File.read(config.private_key))
+      client.login(server, key)
+      block.call(client)
+    ensure
+      client.logout if(client)
+    end
+  end
+end
+  end
+end

data/src/util/known_user.rb

@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+# Util::KnownUser -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'sbsm/user'
+require 'state/transactions'
+
+module XmlConv
+	module Util
+		class KnownUser < SBSM::KnownUser
+			HOME = State::Transactions
+			NAVIGATION = [
+				:home, :logout
+			]
+		end
+	end
+end

data/src/util/polling_manager.rb

@@ -0,0 +1,78 @@
+#!/usr/bin/env ruby
+# Util::PollingManager -- xmlconv2 -- 29.06.2004 -- hwyss@ywesee.com
+
+require 'fileutils'
+require 'uri'
+require 'yaml'
+require 'util/destination'
+require 'util/transaction'
+
+module XmlConv
+	module Util
+		class PollingMission
+			attr_accessor :directory, :reader, :writer, :destination, 
+                    :error_recipients, :debug_recipients, :backup_dir,
+                    :glob_pattern, :partner
+		end
+		class PollingManager
+			PROJECT_ROOT = File.expand_path('../..', File.dirname(__FILE__))
+			CONFIG_PATH = File.expand_path('etc/polling.yaml', PROJECT_ROOT)
+			def initialize(system)
+				@system = system
+			end
+			def destination(str)
+				uri = URI.parse(str)
+				case uri
+				when URI::HTTP
+					dest = DestinationHttp.new
+					dest.uri = uri
+					dest
+				else
+					dest = DestinationDir.new
+					dest.path = str
+					dest
+				end
+			end
+			def load_sources(&block)
+				file = File.open(self::class::CONFIG_PATH)
+				YAML.load_documents(file) { |mission|
+					path = File.expand_path(mission.directory, PROJECT_ROOT)
+					mission.directory = path
+					block.call(mission)
+				}
+			ensure
+				file.close if(file)
+			end
+			def file_paths(dir_path, pattern=nil)
+				Dir.glob(File.expand_path(pattern || '*', dir_path)).collect { |entry|
+					File.expand_path(entry, dir_path)
+				}.compact
+			end
+			def poll(source)
+				file_paths(source.directory, source.glob_pattern).each { |path|
+					begin
+						transaction = XmlConv::Util::Transaction.new
+						transaction.input = File.read(path)
+						transaction.partner = source.partner
+						transaction.origin = 'file:' << path
+						transaction.reader = source.reader
+						transaction.writer = source.writer
+						transaction.destination = destination(source.destination)
+						transaction.debug_recipients = source.debug_recipients
+						transaction.error_recipients = source.error_recipients
+						@system.execute(transaction)
+					ensure
+						backup_dir = source.backup_dir
+						FileUtils.mkdir_p(backup_dir)
+						FileUtils.mv(path, backup_dir)
+					end
+				}
+			end
+			def poll_sources
+				load_sources { |source|
+					poll(source)
+				}
+			end
+		end
+	end
+end

data/src/util/session.rb

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+# Session -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'sbsm/session'
+require 'state/login'
+require 'custom/lookandfeel'
+require 'util/known_user'
+
+module XmlConv
+	module Util
+		class Session < SBSM::Session
+			DEFAULT_LANGUAGE = 'de'
+			DEFAULT_STATE = State::Login
+			LOOKANDFEEL = Custom::Lookandfeel
+			def login
+				if((pass = user_input(:pass)) \
+					&& (pass == "6646c9e7892ef147dbed611a00ea48e6"))
+					@user = Util::KnownUser.new
+				end
+			end
+		end
+	end
+end

data/src/util/transaction.rb

@@ -0,0 +1,105 @@
+#!/usr/bin/env ruby
+# Util::Transaction -- xmlconv2 -- 04.06.2004 -- hwyss@ywesee.com
+
+require 'odba'
+require 'conversion/bdd_geh'
+require 'conversion/bdd_i2'
+require 'conversion/bdd_xml'
+require 'conversion/geh_bdd'
+require 'conversion/i2_bdd'
+require 'conversion/xml_bdd'
+require 'util/destination'
+require 'net/smtp'
+require 'tmail'
+
+module XmlConv
+	module Util
+		class Transaction
+			include ODBA::Persistable
+			MAIL_FROM = 'xmlconv@ywesee.com'
+			SMTP_HANDLER = Net::SMTP
+			attr_accessor :input, :reader, :writer, :destination, :origin, 
+										:transaction_id, :partner, :error,
+										:error_recipients, :debug_recipients
+			attr_reader :output, :model, :start_time, :commit_time, 
+									:input_model, :output_model, :status
+			def execute
+				reader_instance = Conversion.const_get(@reader)
+				writer_instance = Conversion.const_get(@writer)
+				@start_time = Time.now
+				input_model = reader_instance.parse(@input)
+				@model = reader_instance.convert(input_model)
+				output_model = writer_instance.convert(@model)
+				@output = output_model.to_s
+				@destination.deliver(output_model)
+				@commit_time = Time.now
+				@output
+			ensure
+				@destination.forget_credentials!
+			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?)
+				mail = TMail::Mail.new
+				mail.set_content_type('text', 'plain', 'charset'=>'ISO-8859-1')
+				mail.body = <<-EOS
+Date:   #{@start_time.strftime("%d.%m.%Y")}
+Time:   #{@start_time.strftime("%H:%M:%S")}
+Status: #{status}
+Error:  #{@error}
+Link:   http://janico.ywesee.com/de/transaction/transaction_id/#{@transaction_id}
+
+Input:
+# input start
+#{@input}
+# input end
+
+Output:
+# output start
+#{@output}
+# output end
+				EOS
+				mail.from = self::class::MAIL_FROM
+				mail.to = recipients
+				mail.subject = subject
+				mail.date = Time.now
+				mail['User-Agent'] = 'XmlConv::Util::Transaction'
+
+				self.class::SMTP_HANDLER.start('mail.ywesee.com') { |smtp|
+					smtp.sendmail(mail.encoded, self::class::MAIL_FROM, recipients)
+				}
+			end
+			def status
+				if(@error)
+					:error
+				elsif(@destination.respond_to?(:status))
+					@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/src/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