#!/usr/bin/env ruby
# -*- coding: utf-8 -*-

require 'savon'

Savon.configure do |config|
  config.log = false
  config.log_level = :info
end

client = Savon::Client.new do
  #wsdl.document = "https://swissindex.refdata.ch/Swissindex/Pharma/ws_Pharma_V101.asmx?WSDL"
  wsdl.document = "https://index.ws.e-mediat.net/Swissindex/Pharma/ws_Pharma_V101.asmx?WSDL"
end

begin
  response = client.request :download_all do
    soap.xml =
    '<?xml version="1.0" encoding="utf-8"?>
    <soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
      <soap:Body>
        <lang xmlns="http://swissindex.e-mediat.net/SwissindexPharma_out_V101">DE</lang>
      </soap:Body>
    </soap:Envelope>'
  end
rescue Savon::Error => error
  p erro.to_s
  exit
end

if response.success?
  hash = response.to_hash
  p hash.keys
  p hash[:pharma].keys
  p hash[:pharma][:result]
  p hash[:pharma][:item].first.keys
  #File.open('pharma.txt', 'w') do |f|
  #  hash[:pharma][:item].each do |line|
  #    f.puts line
  #  end
  #end
end