soap5r 2.0.0

data/sample/showcase/soap/icd/icd.rb

@@ -0,0 +1,47 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+$KCODE = 'SJIS'
+
+require 'soap/rpc/driver'
+require 'IICD'; include IICD
+
+server = 'http://www.iwebmethod.net/icd1.0/icd.asmx'
+wiredump_dev = nil # STDERR
+
+icd = SOAP::RPC::Driver.new(server, IICD::InterfaceNS)
+icd.wiredump_dev = wiredump_dev
+icd.default_encodingstyle = SOAP::EncodingStyle::ASPDotNetHandler::Namespace
+IICD::add_method(icd)
+
+puts "�L�[���[�h: 'microsoft'�Ō��o������"
+result = icd.SearchWord('microsoft', true)
+
+id = nil
+result.WORD.each do |word|
+  puts "Title: " << word.title
+  puts "Id: " << word.id
+  puts "English: " << word.english
+  puts "Japanese: " << word.japanese
+  puts "----"
+  id = word.id
+end
+
+item = icd.GetItemById(id)
+puts
+puts
+puts "Title: " << item.word.title
+puts "�Ӗ�: " << item.meaning
+
+#p icd.EnumWords
+
+puts
+puts
+puts "�L�[���[�h: 'IBM'�őS������"
+icd.FullTextSearch("IBM").WORD.each do |word|
+  puts "Title: " << word.title
+  puts "Id: " << word.id
+  puts "English: " << word.english
+  puts "Japanese: " << word.japanese
+  puts "----"
+end

data/sample/showcase/soap/mssoap/README.txt

@@ -0,0 +1,62 @@
+these samples are from an 'anonymous contributor from Wall St'.  Thanks!
+
+= MANIFEST =
+
+stockQuoteService.wsdl ..... A getQuote sample service definition.
+
+stockQuoteService.rb ....... getQuote sample service which returns random value
+stockQuoteService.cgi ...... CGI interface of stockQuoteService
+
+stockQuoteServicePortTypeDriver.rb ... soap4r client stub for the service
+stockQuoteServiceClient.rb ........... soap4r client which uses the stub
+client.vba ........................... A VBA sample to access the service
+stockQuoteServiceClient.xls .......... An excel client contains the VBA sample
+
+
+= How to run =
+
+1. server setup
+
+  1. setup CGI enabled Web server such as apache httpd.
+
+  2. copy following 3 files to cgi-bin directory at the server.
+
+      stockQuoteService.wsdl
+      stockQuoteService.rb
+      stockQuoteService.cgi
+
+  3. configure the URL at the bottom of stockQuoteService.wsdl to point the URL
+    of the CGI interface.
+
+      ex. http://localhost/cgi-bin/stockQuoteService.cgi
+        -> http://localhost/~myname/testcgi/stockQuoteService.cgi
+
+  4. change "#!/usr/bin/env ruby" at the head of the CGI interface to point a
+    ruby interpreter you have.
+
+      ex. #!/usr/bin/env ruby
+        -> #!/usr/local/bin/ruby
+
+2. client usage
+
+  1. soap4r sample
+
+    run stockQuoteServiceClient.rb with WSDL location.
+
+      ex. $ ruby stockQuoteServiceClient.rb http://localhost/~myname/testcgi/stockQuoteService.cgi
+
+  2. VBA sample
+
+    open stockQuoteServiceClient.xls with Excel.  You need to configure the
+    accessing URL in VBA macro.
+
+
+= FYI =
+
+These files are generated wsdl2ruby.rb then are modified.
+  stockQuoteService.rb
+  stockQuoteService.cgi
+  stockQuoteServicePortTypeDriver.rb
+  stockQuoteServiceClient.rb
+
+$ wsdl2ruby.rb --wsdl stockQuoteService.wsdl --type client --cgi_stub --servant_skelton

data/sample/showcase/soap/mssoap/client.vba

@@ -0,0 +1,19 @@
+Public Function testStockQuoteService(ticker As String) As Variant
+    On Error GoTo ErrorHandler
+    
+    Dim soapClient
+    Set soapClient = CreateObject("MSSoap.SoapClient")
+
+    soapClient.mssoapinit("http://localhost/cgi-bin/stockQuoteService.cgi?wsdl")
+        
+    r = soapClient.getQuote(ticker)
+    testStockQuoteService = r
+    
+Exit Function
+
+ErrorHandler:
+MsgBox Err.Description + vbCrLf + soapClient.faultactor + vbCrLf +
+soapClient.faultcode + vbCrLf + soapClient.faultstring + vbCrLf +
+soapClient.detail
+
+End Function

data/sample/showcase/soap/mssoap/stockQuoteService.cgi

@@ -0,0 +1,45 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+require 'soap/rpc/cgistub'
+require 'soap/mapping/registry'
+require 'stockQuoteService.rb'
+
+class StockQuoteServicePortType
+  MappingRegistry = ::SOAP::Mapping::Registry.new
+
+  Methods = [
+    [ XSD::QName.new("urn:xmltoday-delayed-quotes", "getQuote"),
+      "",
+      "getQuote",
+      [ [:in, "arg0", ["::SOAP::SOAPString"]],
+        [:retval, "getQuoteResult", ["::SOAP::SOAPFloat"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded }
+    ]
+  ]
+end
+
+class StockQuoteServicePortTypeApp < ::SOAP::RPC::CGIStub
+  def initialize(*arg)
+    super(*arg)
+    servant = StockQuoteServicePortType.new
+    StockQuoteServicePortType::Methods.each do |definitions|
+      opt = definitions.last
+      if opt[:request_style] == :document
+        @router.add_document_operation(servant, *definitions)
+      else
+        @router.add_rpc_operation(servant, *definitions)
+      end
+    end
+    self.mapping_registry = StockQuoteServicePortType::MappingRegistry
+    self.level = Logger::Severity::ERROR
+  end
+end
+
+
+if ENV['QUERY_STRING'] == 'wsdl'
+   puts "Content-Type: text/html\r\n\r\n"
+   puts IO.readlines('~/web/cgi-bin/stockQuoteService.wsdl')
+else
+   StockQuoteServicePortTypeApp.new('app', nil).start
+end

data/sample/showcase/soap/mssoap/stockQuoteService.rb

@@ -0,0 +1,10 @@
+# encoding: ASCII-8BIT
+require 'xsd/qname'
+
+class StockQuoteServicePortType
+
+   def getQuote(ticker)
+      return 100 + rand * 50.0
+   end
+
+end

data/sample/showcase/soap/mssoap/stockQuoteService.wsdl

@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<wsdl:definitions name = "stockQuote"
+targetNamespace="urn:xmltoday-delayed-quotes"
+                  xmlns="http://schemas.xmlsoap.org/wsdl/"
+                  xmlns:impl="urn:xmltoday-delayed-quotes-impl"
+                  xmlns:intf="urn:xmltoday-delayed-quotes"
+                  xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+                  xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
+                  xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
+                  xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+   <wsdl:message name="getQuoteResponse">
+      <wsdl:part name="getQuoteResult" type="xsd:float"/>
+   </wsdl:message>
+   <wsdl:message name="getQuoteRequest">
+      <wsdl:part name="arg0" type="xsd:string"/>
+   </wsdl:message>
+   <wsdl:portType name="stockQuoteServicePortType">
+      <wsdl:operation name="getQuote">
+         <wsdl:input message="intf:getQuoteRequest"/>
+         <wsdl:output message="intf:getQuoteResponse"/>
+      </wsdl:operation>
+   </wsdl:portType>
+   <wsdl:binding name="stockQuoteServiceSoapBinding"
+                 type="intf:stockQuoteServicePortType">
+      <soap:binding style="rpc"
+                    transport="http://schemas.xmlsoap.org/soap/http"/>
+      <wsdl:operation name="getQuote">
+         <soap:operation soapAction="" style="rpc"/>
+         <wsdl:input>
+            <soap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+                       namespace="urn:xmltoday-delayed-quotes"
+                       use="encoded"/>
+         </wsdl:input>
+         <wsdl:output>
+            <soap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+                       namespace="urn:xmltoday-delayed-quotes"
+                       use="encoded"/>
+         </wsdl:output>
+      </wsdl:operation>
+   </wsdl:binding>
+   <wsdl:service name="stockQuoteService">
+      <wsdl:port binding="intf:stockQuoteServiceSoapBinding"
+                 name="stockQuoteServicePort">
+         <soap:address location="http://localhost/cgi-bin/stockQuoteService.cgi"/>
+      </wsdl:port>
+   </wsdl:service>
+</wsdl:definitions>

data/sample/showcase/soap/mssoap/stockQuoteServiceClient.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+require 'stockQuoteServicePortTypeDriver.rb'
+require 'net/http'
+require 'uri'
+require 'yaml'
+
+endpoint_url = ARGV.shift || 'http://localhost/cgi-bin/stockQuoteService.cgi'
+
+Net::HTTP.get_print URI.parse("#{endpoint_url}?wsdl")
+
+obj = StockQuoteServicePortType.new(endpoint_url)
+
+# run ruby with -d to see SOAP wiredumps.
+obj.wiredump_dev = STDERR if $DEBUG
+
+# SYNOPSIS
+#   getQuote(arg0)
+#
+# ARGS
+#   arg0            String - {http://www.w3.org/2001/XMLSchema}string
+#
+# RETURNS
+#   getQuoteResult  Float - {http://www.w3.org/2001/XMLSchema}float
+#
+arg0 = 'LEH'
+puts obj.getQuote(arg0)

data/sample/showcase/soap/mssoap/stockQuoteServicePortTypeDriver.rb

@@ -0,0 +1,47 @@
+# encoding: ASCII-8BIT
+require 'stockQuote.rb'
+
+require 'soap/rpc/driver'
+
+class StockQuoteServicePortType < ::SOAP::RPC::Driver
+  DefaultEndpointUrl = "http://localhost/cgi-bin/stockQuoteService.cgi"
+  MappingRegistry = ::SOAP::Mapping::Registry.new
+
+  Methods = [
+    [ XSD::QName.new("urn:xmltoday-delayed-quotes", "getQuote"),
+      "",
+      "getQuote",
+      [ [:in, "arg0", ["::SOAP::SOAPString"]],
+        [:retval, "getQuoteResult", ["::SOAP::SOAPFloat"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded }
+    ]
+  ]
+
+  def initialize(endpoint_url = nil)
+    endpoint_url ||= DefaultEndpointUrl
+    super(endpoint_url, nil)
+    self.mapping_registry = MappingRegistry
+    init_methods
+  end
+
+private
+
+  def init_methods
+    Methods.each do |definitions|
+      opt = definitions.last
+      if opt[:request_style] == :document
+        add_document_operation(*definitions)
+      else
+        add_rpc_operation(*definitions)
+        qname = definitions[0]
+        name = definitions[2]
+        if qname.name != name and qname.name.capitalize == name.capitalize
+          ::SOAP::Mapping.define_singleton_method(self, qname.name) do |*arg|
+            __send__(name, *arg)
+          end
+        end
+      end
+    end
+  end
+end

data/sample/showcase/soap/netDicV06/INetDicV06.rb

@@ -0,0 +1,37 @@
+# encoding: ASCII-8BIT
+module INetDicV06
+  InterfaceNS = 'http://btonic.est.co.jp/NetDic/NetDicV06'
+
+  Methods = [
+    ['GetDicList',
+      [:out, 'DicInfoList'], [:out, 'ErrorMessage'],
+      [:retval, 'GetDicListResult']],
+    ['SearchDicItem',
+      [:in, 'DicID'], [:in, 'QueryString'], [:in, 'ScopeOption'],
+      [:in, 'MatchOption'], [:in, 'FormatOption'], [:in, 'ResourceOption'],
+      [:in, 'CharsetOption'], [:in, 'ReqItemIndex'],
+      [:in, 'ReqItemTitleCount'], [:in, 'ReqItemContentCount']],
+    ['GetDicItem',
+      [:in, 'DicID'], [:in, 'ItemID'], [:in, 'FormatOption'],
+      [:in, 'ResourceOption'], [:in, 'CharsetOption']],
+  ]
+
+  def INetDicV06.add_method( drv )
+    Methods.each do |method, *param|
+      drv.add_method_with_soapaction(method, InterfaceNS + "/#{ method }", param)
+    end
+  end
+
+  class DicInfo
+    attr_accessor :DicID
+    attr_accessor :FullName
+    attr_accessor :ShortName
+    attr_accessor :Publisher
+    attr_accessor :Abbrev
+    attr_accessor :LogoURL
+    attr_accessor :StartItemID
+    attr_accessor :SearchOptionList
+    attr_accessor :DefSearchOptionIndex
+  end
+end
+

data/sample/showcase/soap/netDicV06/netDicV06.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+$KCODE = 'SJIS'
+
+require 'soap/rpc/driver'
+require 'INetDicV06'; include INetDicV06
+
+server = 'http://btonic.est.co.jp/NetDic/NetDicv06.asmx'
+wiredump_dev = STDERR       # STDERR
+
+dic = SOAP::RPC::Driver.new(server, INetDicV06::InterfaceNS)
+dic.wiredump_dev = wiredump_dev
+dic.default_encodingstyle = ::SOAP::EncodingStyle::ASPDotNetHandler::Namespace
+INetDicV06::add_method(dic)
+
+p dic.GetDicList()

data/sample/showcase/soap/raa/SOAP__Lite.pl

@@ -0,0 +1,15 @@
+# RAA SOAP interface client sample; Perl version.
+# 2001-03-28T21:00 Kawai,Takanori [GCD00051@nifty.ne.jp]
+# 
+# You need to download and install SOAP::Lite for Perl: http://www.geocities.com/paulclinger/soap.html
+
+use strict;
+use Data::Dumper;
+use SOAP::Lite
+  uri => 'http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.1',
+  proxy => 'http://raa.ruby-lang.org/soap/1.0/',
+;
+my $oSom = SOAP::Lite->new->getAllListings();
+my $raRes = $oSom->result;
+$raRes =  $oSom->fault unless($raRes);
+print Dumper($raRes);

data/sample/showcase/soap/raa/pocketSOAP.js

@@ -0,0 +1,33 @@
+/*
+# RAA SOAP interface client sample JScript version for Win32 box
+# Original by fumiakiy [fumiakiy@ant.co.jp]
+# 
+# You need to download and install pocketSOAP/0.91 or later
+# from http://www.pocketsoap.com/
+*/
+
+var uri = "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.1";
+var endPoint = "http://raa.ruby-lang.org/soap/1.0/";
+var proxySvr = "myProxyServer";
+var proxyPort = 8080;
+
+var e = WScript.CreateObject("PocketSOAP.Envelope");
+
+var methodName = "getAllListings";
+e.methodName = methodName;
+e.URI = uri + "#" + methodName;
+var x = e.serialize();
+
+var t = WScript.CreateObject("PocketSOAP.HTTPTransport");
+t.SetProxy(proxySvr, proxyPort);
+t.Send(endPoint, x);
+var r = t.Receive();
+
+e.Parse(r);
+
+var ret = "";
+var arrRes = new VBArray(e.Parameters.ItemByName("return").Value);
+for (var idx = arrRes.lbound(1); idx < arrRes.ubound(1); idx++) {
+  ret += idx + " = " + arrRes.getItem(idx) + String.fromCharCode(13, 10);
+}
+WScript.Echo(ret);