sandozxmlconv 1.0.0

data/doc/resources/xmlconv.css

@@ -0,0 +1,94 @@
+body
+{
+	border: 1px solid green;
+	padding: 1px;
+	font-family: Arial, Helvetica, sans-serif;
+	font-size: 12px;
+}
+table.composite, table.template 
+{
+	width: 100%;
+}
+th, td.th
+{
+	padding: 4px;
+	font-weight: bold;
+	text-align: left;
+}
+th, th a, td.th, table.foot, 
+/*table.navigation a, table.navigation a:hover,*/
+table.foot a, table.foot.a:hover
+{
+	background-color: #abcdef;
+	color: black;
+	text-decoration: none;
+}
+/*table.navigation a:link, table.navigation a:visited,*/
+td.list a:link, td.list a:visited,
+table.foot a:link, table.foot a:visited
+{
+	/*background-color: #abcdef;*/
+	color: #3b5c7f;
+	text-decoration: none;
+}
+td.list a:hover
+{
+	color: green;
+	text-decoration: none;
+}
+table.component td, td.list, table.navigation td, a.foot
+{
+	padding: 4px;
+}
+.bg
+{
+	background-color: #cfdfff;
+}
+.right
+{
+	text-align: right;
+}
+label
+{
+	font-weight: bold;
+}
+form
+{
+	margin: 0px;
+	padding: 0px;
+}
+table.navigation
+{
+	float: right;
+}
+td.helfti
+{
+	width: 50%;
+}
+td.preformatted
+{
+	font-family: monospace, fixed;
+	vertical-align: top;
+	white-space: pre;
+}
+table.pager
+{
+	float: right;
+}
+table.pager td
+{
+	font-weight: bold;
+	color: black;
+	padding: 1px;
+	width: 16px;
+}
+table.pager td.head
+{
+	width: auto;
+	padding-right: 6px; 
+}
+table.pager a
+{
+	text-decoration: none;
+	color: #3b5c7f;
+}

data/doc/soap.rbx

@@ -0,0 +1,55 @@
+#!/usr/bin/env ruby
+# wbmb.rbx -- xmlconv2 -- 07.06.2004 -- hwyss@ywesee.com
+
+$: << File.expand_path('../lib', File.dirname(__FILE__))
+
+require 'drb/drb'
+require 'xmlconv/util/destination'
+require 'xmlconv/util/transaction'
+
+begin
+	request = Apache.request
+	connection = request.connection
+
+	request.server.log_notice("Received Request #{request.request_method}")
+	if(request.request_method != 'POST')
+		request.status = 405 # Method not allowed
+		exit
+	end
+	request.server.log_notice("from #{connection.remote_ip}")
+
+	content_length = request.headers_in['Content-Length'].to_i
+	request.server.log_notice("content-length: #{content_length}")
+	if(content_length <= 0)
+		request.status = 500 # Server Error
+		request.server.log_error("zero length input")
+		exit
+	end
+
+	xml_src = $stdin.read(content_length)
+
+	DRb.start_service
+	xmlconv = DRbObject.new(nil, ENV['DRB_SERVER'])
+	destination = XmlConv::Util::Destination.book(ENV['ACCESS_DESTINATION'])
+
+	transaction = XmlConv::Util::Transaction.new
+  transaction.domain = ENV['HTTP_HOST']
+	transaction.input = xml_src
+	transaction.reader = 'WbmbBdd'
+	transaction.writer = ENV['WRITER']
+	transaction.destination = destination
+	transaction.origin = "http://#{connection.remote_ip}:#{connection.remote_port}"
+  transaction.partner = 'SOAP'
+  transaction.postprocs.push(['Soap', 'update_partner'])
+  transaction.postprocs.push(['Bbmb2', 'inject', ENV['ACCESS_BBMB']])
+
+	xmlconv.dispatch(transaction)
+
+rescue StandardError => err
+	request.server.log_error(err.class.to_s)
+	request.server.log_error(err.message)
+	request.server.log_error(err.backtrace.join("\n"))
+	request.status = 500
+ensure
+	request.send_http_header
+end

data/doc/sunstore.rbx

@@ -0,0 +1,57 @@
+#!/usr/bin/env ruby
+# sunstore.rbx -- xmlconv2 -- 07.06.2004 -- hwyss@ywesee.com
+
+$: << File.expand_path('../lib', File.dirname(__FILE__))
+
+require 'drb/drb'
+require 'xmlconv/util/destination'
+require 'xmlconv/util/transaction'
+
+begin
+	request = Apache.request
+	connection = request.connection
+
+	request.server.log_notice("Received Request #{request.request_method}")
+	if(request.request_method != 'POST')
+		request.status = 405 # Method not allowed
+		exit
+	end
+	request.server.log_notice("from #{connection.remote_ip}")
+
+	content_length = request.headers_in['Content-Length'].to_i
+	request.server.log_notice("content-length: #{content_length}")
+	if(content_length <= 0)
+		request.status = 500 # Server Error
+		request.server.log_error("zero length input")
+		exit
+	end
+
+	xml_src = $stdin.read(content_length)
+
+	DRb.start_service
+	xmlconv = DRbObject.new(nil, ENV['DRB_SERVER'])
+	destination = XmlConv::Util::Destination.book(ENV['ACCESS_DESTINATION'])
+
+	transaction = XmlConv::Util::Transaction.new
+  transaction.domain = ENV['HTTP_HOST']
+	transaction.input = xml_src
+	transaction.reader = 'SunStoreBdd'
+	transaction.writer = ENV['WRITER']
+	transaction.destination = destination
+	transaction.origin = "http://#{connection.remote_ip}:#{connection.remote_port}"
+  transaction.partner = 'SunStore'
+  transaction.postprocs.push(['Soap', 'update_partner'])
+  transaction.postprocs.push(['Bbmb2', 'inject',
+                              ENV['ACCESS_BBMB'], 'customer_id'])
+
+  request.content_type = 'text/xml'
+	puts xmlconv.execute_with_response(transaction)
+
+rescue StandardError => err
+	request.server.log_error(err.class.to_s)
+	request.server.log_error(err.message)
+	request.server.log_error(err.backtrace.join("\n"))
+	request.status = 500
+ensure
+	request.send_http_header
+end

data/doc/unilog.rbx

@@ -0,0 +1,57 @@
+#!/usr/bin/env ruby
+# sunstore.rbx -- xmlconv2 -- 07.06.2004 -- hwyss@ywesee.com
+
+$: << File.expand_path('../lib', File.dirname(__FILE__))
+
+require 'drb/drb'
+require 'xmlconv/util/destination'
+require 'xmlconv/util/transaction'
+
+begin
+	request = Apache.request
+	connection = request.connection
+
+	request.server.log_notice("Received Request #{request.request_method}")
+	if(request.request_method != 'POST')
+		request.status = 405 # Method not allowed
+		exit
+	end
+	request.server.log_notice("from #{connection.remote_ip}")
+
+	content_length = request.headers_in['Content-Length'].to_i
+	request.server.log_notice("content-length: #{content_length}")
+	if(content_length <= 0)
+		request.status = 500 # Server Error
+		request.server.log_error("zero length input")
+		exit
+	end
+
+	xml_src = $stdin.read(content_length)
+
+	DRb.start_service
+	xmlconv = DRbObject.new(nil, ENV['DRB_SERVER'])
+	destination = XmlConv::Util::Destination.book(ENV['ACCESS_DESTINATION'])
+
+	transaction = XmlConv::Util::Transaction.new
+  transaction.domain = ENV['HTTP_HOST']
+	transaction.input = xml_src
+	transaction.reader = 'SunStoreBdd'
+	transaction.writer = ENV['WRITER']
+	transaction.destination = destination
+	transaction.origin = "http://#{connection.remote_ip}:#{connection.remote_port}"
+  transaction.partner = 'Unilog'
+  transaction.postprocs.push(['Soap', 'update_partner'])
+  transaction.postprocs.push(['Bbmb2', 'inject',
+                              ENV['ACCESS_BBMB'], 'customer_id'])
+
+  request.content_type = 'text/xml'
+	puts xmlconv.execute_with_response(transaction)
+
+rescue StandardError => err
+	request.server.log_error(err.class.to_s)
+	request.server.log_error(err.message)
+	request.server.log_error(err.backtrace.join("\n"))
+	request.status = 500
+ensure
+	request.send_http_header
+end

data/doc/volksapotheke.rbx

@@ -0,0 +1,57 @@
+#!/usr/bin/env ruby
+# sunstore.rbx -- xmlconv2 -- 07.06.2004 -- hwyss@ywesee.com
+
+$: << File.expand_path('../lib', File.dirname(__FILE__))
+
+require 'drb/drb'
+require 'xmlconv/util/destination'
+require 'xmlconv/util/transaction'
+
+begin
+	request = Apache.request
+	connection = request.connection
+
+	request.server.log_notice("Received Request #{request.request_method}")
+	if(request.request_method != 'POST')
+		request.status = 405 # Method not allowed
+		exit
+	end
+	request.server.log_notice("from #{connection.remote_ip}")
+
+	content_length = request.headers_in['Content-Length'].to_i
+	request.server.log_notice("content-length: #{content_length}")
+	if(content_length <= 0)
+		request.status = 500 # Server Error
+		request.server.log_error("zero length input")
+		exit
+	end
+
+	xml_src = $stdin.read(content_length)
+
+	DRb.start_service
+	xmlconv = DRbObject.new(nil, ENV['DRB_SERVER'])
+	destination = XmlConv::Util::Destination.book(ENV['ACCESS_DESTINATION'])
+
+	transaction = XmlConv::Util::Transaction.new
+  transaction.domain = ENV['HTTP_HOST']
+	transaction.input = xml_src
+	transaction.reader = 'SunStoreBdd'
+	transaction.writer = ENV['WRITER']
+	transaction.destination = destination
+	transaction.origin = "http://#{connection.remote_ip}:#{connection.remote_port}"
+  transaction.partner = 'Volksapotheke'
+  transaction.postprocs.push(['Soap', 'update_partner'])
+  transaction.postprocs.push(['Bbmb2', 'inject',
+                              ENV['ACCESS_BBMB'], 'customer_id'])
+
+  request.content_type = 'text/xml'
+	puts xmlconv.execute_with_response(transaction)
+
+rescue StandardError => err
+	request.server.log_error(err.class.to_s)
+	request.server.log_error(err.message)
+	request.server.log_error(err.backtrace.join("\n"))
+	request.status = 500
+ensure
+	request.send_http_header
+end

data/doc/wbmb.rbx

@@ -0,0 +1,56 @@
+#!/usr/bin/env ruby
+# wbmb.rbx -- xmlconv2 -- 07.06.2004 -- hwyss@ywesee.com
+
+$: << File.expand_path('../lib', File.dirname(__FILE__))
+
+require 'drb/drb'
+require 'xmlconv/util/destination'
+require 'xmlconv/util/transaction'
+
+begin
+	request = Apache.request
+	connection = request.connection
+
+	request.server.log_notice("Received Request #{request.request_method}")
+	if(request.request_method != 'POST')
+		request.status = 405 # Method not allowed
+		exit
+	end
+	request.server.log_notice("from #{connection.remote_ip}")
+
+	content_length = request.headers_in['Content-Length'].to_i
+	request.server.log_notice("content-length: #{content_length}")
+	if(content_length <= 0)
+		request.status = 500 # Server Error
+		request.server.log_error("zero length input")
+		exit
+	end
+
+	xml_src = $stdin.read(content_length)
+
+	DRb.start_service
+	xmlconv = DRbObject.new(nil, ENV['DRB_SERVER'])
+	destination = XmlConv::Util::Destination.book(ENV['ACCESS_GLOBOPHARM'])
+
+	transaction = XmlConv::Util::Transaction.new
+  transaction.domain = ENV['HTTP_HOST']
+	transaction.input = xml_src
+	transaction.reader = 'WbmbBdd'
+	transaction.writer = 'BddI2'
+	transaction.destination = destination
+	transaction.origin = "http://#{connection.remote_ip}:#{connection.remote_port}"
+  transaction.partner = 'SOAP'
+  transaction.postprocs.push(['Soap', 'update_partner'])
+  transaction.postprocs.push(['Bbmb', 'inject', ENV['ACCESS_BBMB'], 
+                              'gag', '221200'])
+
+	xmlconv.dispatch(transaction)
+
+rescue StandardError => err
+	request.server.log_error(err.class.to_s)
+	request.server.log_error(err.message)
+	request.server.log_error(err.backtrace.join("\n"))
+	request.status = 500
+ensure
+	request.send_http_header
+end

data/lib/conversion/bdd_csv.rb

@@ -0,0 +1,60 @@
+#!/usr/bin/env ruby
+# BddCsv -- xmlconv2 -- 03.12.2007 -- hwyss@ywesee.com
+
+require 'csv'
+require 'xmlconv/config'
+require 'xmlconv/model/document'
+
+module XmlConv
+  module Conversion
+class BddCsv
+  class << self
+    def convert(bdd)
+      bdd.deliveries.collect { |delivery|
+        _to_csv(delivery)
+      }
+    end
+    def _formatted_comment(str, replacement=' ')
+      str = str.to_s
+      u(str.gsub(/[\r\n]+/, replacement))[0,60] unless(str.empty?)
+    end
+    def _to_csv(delivery)
+      result = Model::Document.new
+      customer_id, customer_ean13, commit_id, price = nil
+      if(customer = delivery.customer)
+        result.prefix = customer_id = customer.ids['supplier']
+        customer_ean13 = customer.acc_id
+      end
+      if(customer = delivery.bsr.customer)
+        customer_ean13 ||= customer.acc_id
+        result.prefix = customer_id ||= customer.ids['supplier']
+      end
+      result.prefix ||= customer_ean13
+      CSV::Writer.generate(result, 
+                           XmlConv::CONFIG.target_format_fs,
+                           XmlConv::CONFIG.target_format_rs) { |writer|
+        delivery.items.each { |item|
+          if(nprice = item.get_price('NettoPreis'))
+            price = nprice.amount
+          end
+          writer << [
+            customer_id,
+            customer_ean13,
+            Date.today.strftime('%d%m%Y'),
+            commit_id,
+            item.pharmacode_id,
+            item.et_nummer_id,
+            item.customer_id,
+            item.qty,
+            price,
+            delivery.customer_id,
+            _formatted_comment(delivery.free_text),
+          ]
+        }
+      }
+      result
+    end
+  end
+end
+  end
+end

data/lib/conversion/pharmacieplus_bdd.rb

@@ -0,0 +1,140 @@
+#!/usr/bin/env ruby
+# Conversion::PharmaciePlusBdd -- xmlconv2 -- 18.08.2006 -- hwyss@ywesee.com
+
+require 'rexml/document'
+require 'xmlconv/model/address'
+require 'xmlconv/model/bdd'
+require 'xmlconv/model/bsr'
+require 'xmlconv/model/delivery'
+require 'xmlconv/model/delivery_item'
+require 'xmlconv/model/name'
+require 'xmlconv/model/party'
+
+module XmlConv
+  module Conversion
+    class PharmaciePlusBdd
+class << self
+  def convert(xml_document)
+    bdd = Model::Bdd.new
+    bsr = Model::Bsr.new
+    _bsr_add_customer_id(bsr, 'YWESEEPP')
+    bdd.bsr = bsr
+    REXML::XPath.each(xml_document, '//com-pharma') { |xml_delivery|
+      _bdd_add_xml_delivery(bdd, xml_delivery)
+    }
+    bdd
+  end
+  def parse(xml_src)
+    REXML::Document.new(xml_src)
+  end
+  def _bdd_add_xml_delivery(bdd, xml_delivery)
+    delivery = Model::Delivery.new
+    bsr = Model::Bsr.new
+    _bsr_add_customer_id(bsr, xml_delivery.attributes['ean'])
+    delivery.bsr = bsr
+    _delivery_add_xml_header(delivery, xml_delivery)
+    REXML::XPath.each(xml_delivery, 'article') { |xml_item|
+      _delivery_add_xml_item(delivery, xml_item)  
+    }
+    bdd.add_delivery(delivery)
+    delivery
+  end
+  def _bsr_add_customer_id(bsr, id)
+    customer = Model::Party.new
+    customer.role = 'Customer'
+    customer.add_id('ACC', id)
+    bsr.add_party(customer)
+  end
+  def _customer_add_party(customer, id, role)
+    party = Model::Party.new
+    party.role = role
+    party.add_id('ACC', id)
+    customer.add_party(party)
+    party
+  end
+  def _delivery_add_xml_header(delivery, xml_delivery)
+    xml_order = REXML::XPath.first(xml_delivery, '/commande')
+    delivery.add_id('Customer', _latin1(xml_order.attributes['id']))
+    if(xml_party = REXML::XPath.first(xml_order, 'fournisseur'))
+      _delivery_add_xml_seller(delivery, xml_party)
+    end
+    _delivery_add_xml_customer(delivery, xml_delivery)
+  end
+  def _delivery_add_xml_customer(delivery, xml_delivery)
+    customer = Model::Party.new
+    customer.role = 'Customer'
+    _customer_add_party(customer, '1075', 'BillTo')
+    ship_to = _customer_add_party(customer, 
+                                  _latin1(xml_delivery.attributes['ean']), 
+                                  'ShipTo')
+    if(xml_header = REXML::XPath.first(xml_delivery, 'livraison'))
+      name = Model::Name.new
+      # Pharmacieplus delivers the Pharmacy-Name in 'last-name', and the name
+      # of the contact person in 'other-name' - we need to juggle the pieces 
+      # around a bit. (see also _party_add_xml_address)
+=begin 
+      if(xml_name = REXML::XPath.first(xml_header, 'last-name'))
+        name.last = _latin1(xml_name.text)
+      end
+      if(xml_name = REXML::XPath.first(xml_header, 'first-name'))
+        name.first = _latin1(xml_name.text)
+      end
+=end
+      if(xml_name = REXML::XPath.first(xml_header, 'other-name'))
+        name.text = _latin1(xml_name.text)
+      end
+      customer.name = name
+      ship_to.name = name
+      _party_add_xml_address(ship_to, xml_header)
+    end
+    if(xml_email = REXML::XPath.first(xml_delivery, '//groupe/online/email'))
+      customer.add_id('email', _latin1(xml_email.text))
+    end
+    delivery.add_party(customer)
+  end
+  def _delivery_add_xml_seller(delivery, xml_party)
+    party = Model::Party.new
+    party.role = 'Seller'
+    party.add_id('ACC', _latin1(xml_party.attributes['ean']))
+    if(party.acc_id.to_s.empty?)
+      party.add_id("ACC", "7601001000681")
+    end
+    delivery.add_party(party)
+  end
+  def _delivery_add_xml_item(delivery, xml_item)
+    item = Model::DeliveryItem.new
+    item.line_no = _latin1(delivery.items.size.next.to_s)
+    item.add_id('ET-Nummer', _latin1(xml_item.attributes['ean']))
+    item.add_id('Pharmacode', _latin1(xml_item.attributes['pharmacode']))
+    item.qty = _latin1(xml_item.attributes['qte-facture'])
+    item.unit = 'PCE'
+    delivery.add_item(item)
+  end
+  def _latin1(str)
+    Iconv.iconv('ISO-8859-1//TRANSLIT//IGNORE', 'UTF8', str).first.strip
+  rescue
+    str
+  end
+  def _party_add_xml_address(party, xml_header)
+    if(xml_address = REXML::XPath.first(xml_header, 'address'))
+      address = Model::Address.new
+      address.zip_code = _text(xml_address, 'zip')
+      address.city = _text(xml_address, 'city')
+      if(xml_name = REXML::XPath.first(xml_header, 'last-name'))
+        address.add_line(_latin1(xml_name.text))
+      end
+      if(line = _text(xml_address, 'street'))
+        address.add_line(line)
+      end
+      party.address = address
+    end
+  end
+  def _text(xml_parent, xpath)
+    if(xml_element = REXML::XPath.first(xml_parent, xpath))
+      _latin1(xml_element.text)
+    end
+  end
+end
+    end
+  end
+end