#! /usr/bin/ruby
require 'soap/wsdlDriver'

wsdl = 'http://allie.dbcls.jp/soap/wsdl/allie.wsdl'
driver = SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
driver.streamhandler.client.receive_timeout = 1200 #seconds
driver.generate_explicit_type = true

keywords = "CMLA"

pairInfo = driver.GetPairsByAbbr(keywords)

pairInfo.each do | pair |
    puts "PairInfo[#{pair.pair_id}|#{pair.abbreviation}|#{pair.long_form}|#{pair.pair_number}]"

    pubmedInfo = driver.GetPubMedInfoByPairID(pair.pair_id)
    pubmedInfo.each do | pubmed |
        puts "  PubMedInfo[#{pubmed.pubmed_id}|#{pubmed.year}|#{pubmed.title}|#{pubmed.related_abbr.each do |ra| ra << " " end}]"
    end

    relatedabbrInfo = driver.GetRelatedAbbrInfoByPairID(pair.pair_id)
    relatedabbrInfo.each do | relatedabbr |
        puts "  RelatedAbbrInfo[#{relatedabbr.abbreviation}|#{relatedabbr.frequency}|#{relatedabbr.total_pairs}]"
    end

    puts ""
end