soap5r 2.0.0

data/sample/attachment/complexmime/client.rb

@@ -0,0 +1,58 @@
+# encoding: ASCII-8BIT
+require 'soap/rpc/driver'
+require 'soap/attachment'
+require 'EdmService'
+
+# test script for the EDD service in ruby, to see if we can send and
+# receive attachments.
+
+# set up the server parameters
+server = 'http://localhost:7000/'
+driver = SOAP::RPC::Driver.new(server, 'urn:EDD:Edm')
+
+# debugging?
+driver.wiredump_dev = STDERR
+
+# add methods
+driver.add_method('MapInfo', 'mapArea', 'mapTime', 'mapOptions', 'driftPrediction')
+driver.add_method('LocationInfo', 'bottomLeft', 'topRight', 'startTime', 'endTime')
+
+# LocationInfo
+bottomLeft = Coordinates.new
+bottomLeft.wgs84Latitude = 0.12
+bottomLeft.wgs84Longitude = 3.45
+
+topRight = Coordinates.new
+topRight.wgs84Latitude = 1.23
+topRight.wgs84Longitude = 4.56
+
+startTime = '2006-07-13T14:39:25.459Z'
+endTime   = '2006-07-13T14:55:25.459Z'
+
+result = driver.LocationInfo(bottomLeft, topRight, startTime, endTime)
+puts("LocationInfo result: #{result}")
+
+# MapInfo
+mapArea = MapArea.new
+mapArea.bottomLeft = Coordinates.new
+mapArea.topRight = Coordinates.new
+mapArea.bottomLeft.wgs84Latitude = 2.34
+mapArea.bottomLeft.wgs84Longitude = 5.67
+mapArea.topRight.wgs84Latitude = 3.45
+mapArea.topRight.wgs84Longitude = 6.78
+mapArea.width = 4.56
+mapArea.height = 7.89
+
+mapTime = SOAP::SOAPDateTime.new('2006-07-13T14:39:25.459Z')
+
+mapOptions = MapOptions.new
+mapOptions.showCurrentData = true
+mapOptions.showWaveData = false
+mapOptions.showWindData = true
+
+driftPrediction = SOAP::Attachment.new(File.open('drift.cdf'))
+driftPrediction.contenttype = "application/x-netcdf"
+
+result = driver.MapInfo(mapArea, mapTime, mapOptions, driftPrediction)
+puts("MapInfo result: #{result}")
+

data/sample/attachment/complexmime/drift.cdf

@@ -0,0 +1 @@
+file content of drift.cdf

data/sample/attachment/complexmime/plaatje.png

@@ -0,0 +1 @@
+file content of plaatje.png

data/sample/attachment/complexmime/server.rb

@@ -0,0 +1,69 @@
+# encoding: ASCII-8BIT
+require 'soap/rpc/standaloneServer'
+require 'soap/attachment'
+
+# Ruby test class for the EDD project to see if we can receive and
+# send attachments on the server side.
+
+class SwAService
+
+    def initialize
+        puts("EDD SOAP service (ruby) initialized.")
+    end
+    
+    def LocationInfo(bottomLeft, topRight, startTime, endTime)
+		puts("bottomLeft->wgs84Latitude : '#{bottomLeft.wgs84Latitude}'")
+		puts("bottomLeft->wgs84Longitude: '#{bottomLeft.wgs84Longitude}'")
+		puts("topRight->wgs84Latitude   : '#{topRight.wgs84Latitude}'")
+		puts("topRight->wgs84Longitude  : '#{topRight.wgs84Longitude}'")
+		puts("startTime  : '#{startTime}'")
+		puts("endTime    : '#{endTime}'")
+		
+		# COMPUTE NETCDF HERE!
+		cdffilename = 'drift.cdf'
+		
+		file = SOAP::Attachment.new(File.open(cdffilename))
+		file.contenttype = "application/x-netcdf"
+        return file
+    end
+	
+	def MapInfo(mapArea, mapTime, mapOptions, driftPrediction)
+		
+        puts("mapArea.topRight.wgs84Longitude : #{mapArea.topRight.wgs84Longitude}")
+        puts("mapArea.topRight.wgs84Latitude  : #{mapArea.topRight.wgs84Latitude}")
+        puts("mapArea.bottomLeft.wgs84Longitude  : #{mapArea.bottomLeft.wgs84Longitude}")
+        puts("mapArea.bottomLeft.wgs84Latitude : #{mapArea.bottomLeft.wgs84Latitude}")
+        puts("mapArea.width : #{mapArea.width}")
+        puts("mapArea.height : #{mapArea.height}")
+        puts("mapTime  : #{mapTime}")
+        puts("mapOptions.showCurrentData : #{mapOptions.showCurrentData}")
+        puts("mapOptions.showWaveData : #{mapOptions.showWaveData}")
+        puts("mapOptions.showWindData : #{mapOptions.showWindData}")
+		puts("Received file:")
+		puts(driftPrediction.to_s)
+
+		# COMPUTE PNG IMAGE HERE!
+		imagefilename = 'plaatje.png'
+
+		file = SOAP::Attachment.new(File.open(imagefilename))
+		file.contenttype = "image/png"
+		file.contentid = "out"
+		file
+	end
+end
+
+# setup server object
+server = SOAP::RPC::StandaloneServer.new('SwAServer',
+                                         'urn:EDD:Edm',
+                                         '0.0.0.0', 7000)
+
+# add attachment functionality
+server.add_servant(SwAService.new)
+
+# run until interrupted
+trap(:INT) do
+    server.shutdown
+end
+
+# go
+server.start

data/sample/attachment/swa/client.rb

@@ -0,0 +1,14 @@
+# encoding: ASCII-8BIT
+require 'soap/rpc/driver'
+require 'soap/attachment'
+
+server = 'http://localhost:7000/'
+driver = SOAP::RPC::Driver.new(server, 'http://www.acmetron.com/soap')
+driver.wiredump_dev = STDERR
+driver.add_method('get_file')
+driver.add_method('put_file', 'name', 'file')
+
+p driver.get_file
+file = File.open($0)
+attach = SOAP::Attachment.new(file)
+p driver.put_file($0, attach)

data/sample/attachment/swa/server.rb

@@ -0,0 +1,24 @@
+# encoding: ASCII-8BIT
+require 'soap/rpc/standaloneServer'
+require 'soap/attachment'
+
+class SwAService
+  def get_file
+    return {
+      'name' => $0,
+      'file' => SOAP::Attachment.new(File.open($0))
+    }
+  end
+
+  def put_file(name, file)
+    "File '#{name}' was received ok."
+  end
+end
+
+server = SOAP::RPC::StandaloneServer.new('SwAServer',
+  'http://www.acmetron.com/soap', '0.0.0.0', 7000)
+server.add_servant(SwAService.new)
+trap(:INT) do
+  server.shutdown
+end
+server.start

data/sample/basic/apacheClient.rb

@@ -0,0 +1,93 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+require 'soap/rpc/driver'
+require 'soap/XMLSchemaDatatypes1999'
+
+
+class SampleClient < Application
+
+  private
+
+  AppName = 'SampleClient'
+
+  NS1 = 'urn:i3solutions-delayed-quotes'
+  NS2 = 'urn:AddressFetcher'
+
+  def initialize(server, proxy)
+    super(AppName)
+    @server = server
+    @proxy = proxy
+    @drv1 = nil
+    @drv2 = nil
+  end
+
+  def run
+    # Driver initialize and method definition
+
+    @drv1 = SOAP::RPC::Driver.new(@server, NS1)
+    @drv1.addMethod('getQuote', 'symbol')
+
+    @drv2 = SOAP::RPC::Driver.new(@server, NS2)
+    @drv2.addMethod('getAddressFromName', 'nameToLookup')
+    @drv2.addMethod('addEntry', 'nameToRegister', 'address')
+
+    # Method invocation
+
+    puts @drv1.getQuote("IBM")
+
+    address = @drv2.getAddressFromName("John B. Good")
+    dumpAddress(address)
+
+    phoneNumber = PhoneNumber.new(987, '654', '3210')
+    address = Address.new(123, 'STREET', 'CITY', 'NY', 99999, phoneNumber)
+    result = @drv2.addEntry('NaHi', address)
+    puts 'NaHi has been added.'
+
+    address = @drv2.getAddressFromName("NaHi")
+    dumpAddress(address)
+
+    return 0
+  end
+
+  def dumpAddress(addr)
+    phone = addr.phoneNumber
+    puts <<EOS
+#{ addr.streetNum } #{ addr.streetName }
+#{ addr.city }, #{ addr.state } #{ addr.zip }
+(#{ phone.areaCode }) #{ phone.exchange }-#{ phone.number }
+EOS
+  end
+end
+
+
+class Address
+  @@typeName = 'address'
+  @@typeNamespace = 'urn:ibm-soap-address-demo'
+
+  attr_accessor :streetNum, :streetName, :city, :state, :zip, :phoneNumber
+  def initialize(streetNum = nil, streetName = nil, city = nil, state = nil, zip = nil, phoneNumber = nil)
+    @streetNum = streetNum
+    @streetName = streetName
+    @city = city
+    @state = state
+    @zip = zip
+    @phoneNumber = phoneNumber
+  end
+end
+
+class PhoneNumber
+  @@typeName = 'phone'
+  @@typeNamespace = 'urn:ibm-soap-address-demo'
+
+  attr_accessor :areaCode, :exchange, :number
+  def initialize(areaCode = nil, exchange = nil, number = nil)
+    @exchange = exchange
+    @areaCode = areaCode
+    @number = number
+  end
+end
+
+server = ARGV.shift or raise ArgumentError.new('Target URL was not given.')
+proxy = ARGV.shift || nil
+app = SampleClient.new(server, proxy).start

data/sample/basic/babelfish.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+text = ARGV.shift || 'Hello world.'
+lang = ARGV.shift || 'en_fr'
+
+require 'soap/rpc/driver'
+
+server = 'http://services.xmethods.net/perl/soaplite.cgi'
+InterfaceNS = 'urn:xmethodsBabelFish'
+wireDumpDev = nil	# STDERR
+
+drv = SOAP::RPC::Driver.new(server, InterfaceNS)
+drv.wiredump_dev = wireDumpDev
+drv.add_method_with_soapaction('BabelFish', InterfaceNS + "#BabelFish", 'translationmode', 'sourcedata')
+
+p drv.BabelFish(lang, text)

data/sample/basic/calc/calc.rb

@@ -0,0 +1,18 @@
+# encoding: ASCII-8BIT
+module CalcService
+  def self.add(lhs, rhs)
+    lhs + rhs
+  end
+
+  def self.sub(lhs, rhs)
+    lhs - rhs
+  end
+
+  def self.multi(lhs, rhs)
+    lhs * rhs
+  end
+
+  def self.div(lhs, rhs)
+    lhs / rhs
+  end
+end

data/sample/basic/calc/calc2.rb

@@ -0,0 +1,30 @@
+# encoding: ASCII-8BIT
+class CalcService2
+  def initialize(value = 0)
+    @value = value
+  end
+
+  def set(value)
+    @value = value
+  end
+
+  def get
+    @value
+  end
+
+  def +(rhs)
+    @value + rhs
+  end
+
+  def -(rhs)
+    @value - rhs
+  end
+
+  def *(rhs)
+    @value * rhs
+  end
+
+  def /(rhs)
+    @value / rhs
+  end
+end

data/sample/basic/calc/client.rb

@@ -0,0 +1,27 @@
+# encoding: ASCII-8BIT
+require 'soap/rpc/driver'
+
+server = ARGV.shift || 'http://localhost:7000/'
+# server = 'http://localhost:8808/server.cgi'
+
+calc = SOAP::RPC::Driver.new(server, 'http://tempuri.org/calcService')
+calc.wiredump_dev = STDERR if $DEBUG
+calc.add_method('add', 'lhs', 'rhs')
+calc.add_method('sub', 'lhs', 'rhs')
+calc.add_method('multi', 'lhs', 'rhs')
+calc.add_method('div', 'lhs', 'rhs')
+
+puts 'add: 1 + 2	# => 3'
+puts calc.add(1, 2)
+puts 'sub: 1.1 - 2.2	# => -1.1'
+puts calc.sub(1.1, 2.2)
+puts 'multi: 1.1 * 2.2	# => 2.42'
+puts calc.multi(1.1, 2.2)
+puts 'div: 5 / 2	# => 2'
+puts calc.div(5, 2)
+puts 'div: 5.0 / 2	# => 2.5'
+puts calc.div(5.0, 2)
+puts 'div: 1.1 / 0	# => Infinity'
+puts calc.div(1.1, 0)
+puts 'div: 1 / 0	# => ZeroDivisionError'
+puts calc.div(1, 0)

data/sample/basic/calc/client2.rb

@@ -0,0 +1,30 @@
+# encoding: ASCII-8BIT
+require 'soap/rpc/driver'
+
+server = ARGV.shift || 'http://localhost:7000/'
+# server = 'http://localhost:8808/server2.cgi'
+
+var = SOAP::RPC::Driver.new( server, 'http://tempuri.org/calcService' )
+var.add_method( 'set', 'newValue' )
+var.add_method( 'get' )
+var.add_method_as( '+', 'add', 'rhs' )
+var.add_method_as( '-', 'sub', 'rhs' )
+var.add_method_as( '*', 'multi', 'rhs' )
+var.add_method_as( '/', 'div', 'rhs' )
+
+puts 'var.set( 1 )'
+puts '# Bare in mind that another client set another value to this service.'
+puts '# This is only a sample for proof of concept.'
+var.set( 1 )
+puts 'var + 2	# => 1 + 2 = 3'
+puts var + 2
+puts 'var - 2.2	# => 1 - 2.2 = -1.2'
+puts var - 2.2
+puts 'var * 2.2	# => 1 * 2.2 = 2.2'
+puts var * 2.2
+puts 'var / 2	# => 1 / 2 = 0'
+puts var / 2
+puts 'var / 2.0	# => 1 / 2.0 = 0.5'
+puts var / 2.0
+puts 'var / 0	# => 1 / 0 => ZeroDivisionError'
+puts var / 0

data/sample/basic/calc/httpd.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+require 'webrick'
+require 'soap/property'
+
+docroot = "."
+port = 8808
+if opt = SOAP::Property.loadproperty("samplehttpd.conf")
+  docroot = opt["docroot"]
+  port = Integer(opt["port"])
+end
+
+s = WEBrick::HTTPServer.new(
+  :BindAddress => "0.0.0.0",
+  :Port => port,
+  :DocumentRoot => docroot,
+  :CGIPathEnv => ENV['PATH']
+)
+trap(:INT){ s.shutdown }
+s.start

data/sample/basic/calc/samplehttpd.conf

@@ -0,0 +1,2 @@
+docroot = .
+port = 8808

data/sample/basic/calc/server.cgi

@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+require 'soap/rpc/cgistub'
+
+class CalcServer < SOAP::RPC::CGIStub
+  def initialize(*arg)
+    super
+
+    require 'calc'
+    servant = CalcService
+    add_servant(servant, 'http://tempuri.org/calcService')
+  end
+end
+
+status = CalcServer.new('CalcServer', nil).start

data/sample/basic/calc/server.fcgi

@@ -0,0 +1,22 @@
+#!/usr/bin/env ruby
+
+require 'fcgi'
+
+require 'soap/rpc/cgistub'
+
+class CalcServer < SOAP::RPC::CGIStub
+  def initialize(*arg)
+    super
+
+    require 'calc'
+    servant = CalcService
+    add_servant(servant, 'http://tempuri.org/calcService')
+  end
+end
+
+app = CalcServer.new('CalcServer', nil)
+
+FCGI.each do |request|
+  app.set_fcgi_request(request)
+  app.start
+end

data/sample/basic/calc/server.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+require 'soap/rpc/standaloneServer'
+require 'calc'
+
+class CalcServer < SOAP::RPC::StandaloneServer
+  def initialize(*arg)
+    super
+
+    servant = CalcService
+    add_servant(servant, 'http://tempuri.org/calcService')
+  end
+end
+
+if $0 == __FILE__
+  server = CalcServer.new('CalcServer', nil, '0.0.0.0', 7000)
+  trap(:INT) do
+    server.shutdown
+  end
+  server.start
+end

data/sample/basic/calc/server2.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+require 'soap/rpc/standaloneServer'
+require 'calc2'
+
+class CalcServer2 < SOAP::RPC::StandaloneServer
+  def on_init
+    servant = CalcService2.new
+    add_method(servant, 'set', 'newValue')
+    add_method(servant, 'get')
+    add_method_as(servant, '+', 'add', 'lhs')
+    add_method_as(servant, '-', 'sub', 'lhs')
+    add_method_as(servant, '*', 'multi', 'lhs')
+    add_method_as(servant, '/', 'div', 'lhs')
+  end
+end
+
+if $0 == __FILE__
+  server = CalcServer2.new('CalcServer', 'http://tempuri.org/calcService', '0.0.0.0', 7000)
+  trap(:INT) do
+    server.shutdown
+  end
+  status = server.start
+end

data/sample/basic/exchange/client.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+require "soap/rpc/driver"
+
+ExchangeServiceNamespace = 'http://tempuri.org/exchangeService'
+
+server = ARGV.shift || "http://localhost:7000/"
+# server = "http://localhost:8808/server.cgi"
+
+logger = nil
+wiredump_dev = nil
+# logger = Logger.new(STDERR)
+# wiredump_dev = STDERR
+
+drv = SOAP::RPC::Driver.new(server, ExchangeServiceNamespace)
+drv.wiredump_dev = wiredump_dev
+drv.add_method("rate", "country1", "country2")
+
+p drv.rate("USA", "Japan")

data/sample/basic/exchange/exchange.rb

@@ -0,0 +1,18 @@
+# encoding: ASCII-8BIT
+require 'soap/rpc/driver'
+
+ExchangeServiceNamespace = 'http://tempuri.org/exchangeService'
+
+class Exchange
+  ForeignServer = "http://services.xmethods.net/soap"
+  Namespace = "urn:xmethods-CurrencyExchange"
+
+  def initialize
+    @drv = SOAP::RPC::Driver.new(ForeignServer, Namespace)
+    @drv.add_method("getRate", "country1", "country2")
+  end
+
+  def rate(country1, country2)
+    return @drv.getRate(country1, country2)
+  end
+end

data/sample/basic/exchange/httpd.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+require 'webrick'
+require 'soap/property'
+
+docroot = "."
+port = 8808
+if opt = SOAP::Property.loadproperty("samplehttpd.conf")
+  docroot = opt["docroot"]
+  port = Integer(opt["port"])
+end
+
+s = WEBrick::HTTPServer.new(
+  :BindAddress => "0.0.0.0",
+  :Port => port,
+  :DocumentRoot => docroot,
+  :CGIPathEnv => ENV['PATH']
+)
+trap(:INT){ s.shutdown }
+s.start

data/sample/basic/exchange/samplehttpd.conf

@@ -0,0 +1,2 @@
+docroot = .
+port = 8808

data/sample/basic/exchange/server.cgi

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+require 'soap/rpc/cgistub'
+require 'exchange'
+
+class ExchangeServer < SOAP::RPC::CGIStub
+  def initialize(*arg)
+    super
+    servant = Exchange.new
+    add_servant(servant)
+  end
+end
+
+status = ExchangeServer.new('SampleStructServer', ExchangeServiceNamespace).start

data/sample/basic/exchange/server.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+require 'soap/rpc/standaloneServer'
+require 'exchange'
+
+class ExchangeServer < SOAP::RPC::StandaloneServer
+  def initialize(*arg)
+    super
+    servant = Exchange.new
+    add_servant(servant)
+  end
+end
+
+if $0 == __FILE__
+  server = ExchangeServer.new('SampleStructServer', ExchangeServiceNamespace, '0.0.0.0', 7000)
+  trap(:INT) do
+    server.shutdown
+  end
+  status = server.start
+end

data/sample/basic/flickr.rb

@@ -0,0 +1,27 @@
+# encoding: ASCII-8BIT
+require 'soap/rpc/driver'
+
+api_key = ARGV.shift or raise
+
+flickr = SOAP::RPC::Driver.new('http://www.flickr.com/services/soap/')
+flickr.wiredump_dev = STDOUT if $DEBUG
+
+flickr.add_document_method('request', nil,
+  XSD::QName.new('urn:flickr', 'FlickrRequest'),
+  XSD::QName.new('urn:flickr', 'FlickrResponse'))
+
+soap12namespace = 'http://www.w3.org/2003/05/soap-envelope'
+flickr.options['soap.envelope.requestnamespace'] = soap12namespace
+flickr.options['soap.envelope.responsenamespace'] = soap12namespace
+
+response = flickr.request(
+  :api_key => api_key,
+  :method => 'flickr.test.echo',
+  :name => 'hello world')
+
+responsexml = "<dummy>#{response}</dummy>"
+
+require 'xsd/mapping'
+obj = XSD::Mapping.xml2obj(responsexml)
+p obj.method
+p obj.name

data/sample/basic/helloworld/client.rb

@@ -0,0 +1,7 @@
+# encoding: ASCII-8BIT
+require 'soap/rpc/driver'
+
+s = SOAP::RPC::Driver.new('http://localhost:2000/', 'urn:hws')
+s.add_method("hello_world", "from")
+
+p s.hello_world(self.to_s)

data/sample/basic/helloworld/server.rb

@@ -0,0 +1,21 @@
+# encoding: ASCII-8BIT
+require 'soap/rpc/standaloneServer'
+
+class HelloWorldServer < SOAP::RPC::StandaloneServer
+  def on_init
+    @log.level = Logger::Severity::DEBUG
+    add_method(self, 'hello_world', 'from')
+  end
+
+  def hello_world(from)
+    "Hello World, from #{ from }"
+  end
+end
+
+if $0 == __FILE__
+  server = HelloWorldServer.new('hws', 'urn:hws', '0.0.0.0', 2000)
+  trap(:INT) do 
+    server.shutdown
+  end
+  server.start
+end