soap4r-spox 1.6.0

data/sample/showcase/soap/hippo5tq/hippo5tq.rb

@@ -0,0 +1,41 @@
+#!/usr/bin/env ruby
+
+require 'soap/driver'
+
+#Server = 'http://www.hippo2000.net/cgi-bin/soap5tq2.cgi'
+Server = 'http://www.hippo2000.net/cgi-bin/soap5tq.cgi'
+NS = 'urn:Soap5tq'
+
+proxy = ARGV.shift || nil
+
+def getWireDumpLogFile
+  logFilename = File.basename( $0 ) + '.log'
+  f = File.open( logFilename, 'w' )
+  f << "File: #{ logFilename } - Wiredumps for SOAP4R client / #{ $serverName } server.\n"
+  f << "Date: #{ Time.now }\n\n"
+end
+
+
+drv = SOAP::Driver.new( nil, 'hippo5tq', NS, Server, proxy )
+drv.setWireDumpDev( getWireDumpLogFile )
+
+drv.addMethod( 'Init', 'UsrName', 'Passwd' )
+  # => [ sSession, sErr ]
+drv.addMethod( 'End', 'sSsID' )
+  # => void
+
+drv.addMethod( 'GetQuizAll', 'sSsId' )
+  # => [ sQuiz0, sOpt00, sOpt01, sOpt02, sOpt03, sOpt04,
+  #      ...
+  #      sQuiz9, sOpt90, sOpt91, sOpt92, sOpt93, sOpt94 ]
+drv.addMethod( 'RepQuizAll', 'sSsID', 'iRes' )
+  # => [ iResult, iPoint ]
+
+drv.addMethod( 'GetQuiz', 'sSsID' )
+  # => [ sQuiz, sOpt0, sOpt1, sOpt2, sOpt3, sOpt4 ]
+drv.addMethod( 'ReqQuiz', 'sSsID', 'iRes' )
+  # => [ iResult, iPoint ]
+
+sessionId, errInfo =  drv.Init( 'SOAP4R', '' )
+
+p drv.GetQuizAll( sessionId )

data/sample/showcase/soap/hippo5tq/hippo5tq2.rb

@@ -0,0 +1,99 @@
+#!/usr/bin/env ruby
+
+$KCODE = 'SJIS'
+
+proxy = ARGV.shift || nil
+
+require 'soap/driver'
+
+# XML Schema Datatypes��1999�ł��w��i�͂�Ȃ��Ȃ��Ă���j
+require 'soap/XMLSchemaDatatypes1999'
+
+# Wiredump�̏o�͐�
+def getWireDumpLogFile
+  logFilename = File.basename( $0 ) + '.log'
+  f = File.open( logFilename, 'w' )
+  f << "File: #{ logFilename } - Wiredumps for SOAP4R client / #{ $serverName } server.\n"
+  f << "Date: #{ Time.now }\n\n"
+end
+
+# �T�[�r�X���̓o�^�i�{���Ȃ�WSDL��������ׂ��Ƃ���j
+Server = 'http://www.hippo2000.net/cgi-bin/soap5tq2.cgi'
+NS = 'urn:Soap5tq2'
+
+drv = SOAP::Driver.new( nil, 'hippo5tq', NS, Server, proxy )
+drv.setWireDumpDev( getWireDumpLogFile )
+
+drv.addMethod( 'Init', 'UsrName', 'Passwd' )
+  # => [ sSession, sErr ]
+drv.addMethod( 'End', 'sSsID' )
+  # => void
+drv.addMethod( 'GetQuizAll', 'sSsId' )
+  # => [ sQuiz0, sOpt00, sOpt01, sOpt02, sOpt03, sOpt04,
+  #      ...
+  #      sQuiz9, sOpt90, sOpt91, sOpt92, sOpt93, sOpt94 ]
+drv.addMethod( 'RepQuizAll', 'sSsID', 'iRes' )
+  # => [ iResult, iPoint ]
+drv.addMethod( 'GetQuiz', 'sSsID' )
+  # => [ sQuiz, sOpt0, sOpt1, sOpt2, sOpt3, sOpt4 ]
+drv.addMethod( 'ReqQuiz', 'sSsID', 'iRes' )
+  # => [ iResult, iPoint ]
+
+
+# �N�C�Y�T�[�r�X�ւ̃��O�C��
+sessionId, errInfo =  drv.Init( 'SOAP4R', '' )
+
+totalPoint = 0
+
+# ���f���B�B�B
+trap( "INT" ) do | sig |
+  puts "���f����܂���"
+  drv.End( sessionId )
+  exit( -1 )
+end
+
+# �ŏ��Ɉꊇ���ăN�C�Y���擾���Ă��܂�
+quizAll = drv.GetQuizAll( sessionId )
+
+# ���׍H���\�b�h���d����
+def quizAll.next
+  quiz, opt1, opt2, opt3, opt4, opt5 = self.slice!( 0..5 )
+  return quiz, opt1, opt2, opt3, opt4, opt5
+end
+
+def quizAll.eof?
+  ( self.length < 6 )
+end
+
+# �N�C�Y�J�n
+
+# �N�C�Y�̎c���Ă�ԁB�B�B
+while !quizAll.eof?
+  quiz, *opt = quizAll.next
+
+  # �o��
+  puts '-' * 78
+  puts quiz
+  1.upto( opt.length ) do | i |
+    puts "#{ i }: #{ opt[ i-1 ] }"
+  end
+
+  # ��
+  ans = gets.chomp.to_i
+
+  # �񓚂��ƍ�����
+  result, point = drv.RepQuizAll( sessionId, ans - 1 )
+
+  # ���茋�ʂ�?
+  unless result.zero?
+    puts "���� ���_: #{ point }"
+    totalPoint += point
+  else
+    puts "�n�Y��"
+  end
+end
+
+puts "Total: #{ totalPoint }"
+
+# ���O�I�t
+drv.End( sessionId )

data/sample/showcase/soap/hippo5tq/hippoClient.rb

@@ -0,0 +1,106 @@
+#!/usr/bin/env ruby
+
+require 'soap/driver'
+
+server = ARGV.shift or raise ArgumentError.new( 'Target URL was not given.' )
+proxy = ARGV.shift || nil
+
+require 'soap/XMLSchemaDatatypes1999'
+
+def getWireDumpLogFile
+  logFilename = File.basename( $0 ) + '.log'
+  f = File.open( logFilename, 'w' )
+  f << "File: #{ logFilename } - Wiredumps for SOAP4R client / #{ $serverName } server.\n"
+  f << "Date: #{ Time.now }\n\n"
+end
+
+
+=begin
+# http://www.hippo2000.net/cgi-bin/soap.cgi
+
+NS = 'urn:Geometry2'
+
+drv = SOAP::Driver.new( Log.new( STDERR ), 'hippoApp', NS, server, proxy )
+drv.setWireDumpDev( getWireDumpLogFile )
+drv.addMethod( 'calcArea', 'x1', 'y1', 'x2', 'y2' )
+
+puts drv.calcArea( 5, 1000, 10, 20 )
+=end
+
+=begin
+# http://www.hippo2000.net/cgi-bin/soap.pl?class=Geometry
+
+NS = 'urn:ServerDemo'
+
+class Point
+  @@namespace = NS
+  def initialize( x, y )
+    @x = x
+    @y = y
+  end
+end
+
+origin = Point.new( 10, 10 )
+corner = Point.new( 110, 110 )
+
+drv = SOAP::Driver.new( Log.new( STDERR ), 'hippoApp', NS, server, proxy )
+drv.setWireDumpDev( getWireDumpLogFile )
+drv.addMethod( 'calculateArea', 'origin', 'corner' )
+
+puts drv.calculateArea( origin, corner )
+=end
+
+=begin
+# http://www.hippo2000.net/cgi-bin/soapEx.cgi
+
+NS = 'urn:SoapEx'
+
+drv = SOAP::Driver.new( Log.new( STDERR ), 'hippoApp', NS, server, proxy )
+drv.setWireDumpDev( getWireDumpLogFile )
+drv.addMethod( 'calcArea', 'x1', 'y1', 'x2', 'y2' )
+
+# calcArea sample
+p drv.calcArea( 5, 10, 10, 15 )
+=end
+
+
+=begin
+# http://www.hippo2000.net/cgi-bin/soapEx.cgi
+
+NS = 'urn:SoapEx'
+
+drv = SOAP::Driver.new( Log.new( STDERR ), 'hippoApp', NS, server, proxy )
+drv.setWireDumpDev( getWireDumpLogFile )
+drv.addMethod( 'parseChasen', 'target' )
+drv.addMethod( 'parseChasenArry', 'target' )
+
+require 'uconv'
+
+# ChaSen Sample 1
+def putLine( index, kanaName, pos )
+  line = "#{ index }\t\t#{ kanaName }\t\t#{ pos }"
+  puts Uconv.u8toeuc( line )
+end
+
+targetString = Uconv.euctou8( 'SOAP��Ȥ��ȳڤ����Ǥ���?' )
+
+result = drv.parseChasen( targetString )
+
+index = Uconv.euctou8( '����' )
+kanaName = Uconv.euctou8( '�ɤ�' )
+pos = Uconv.euctou8( '�ʻ�' )
+
+putLine( index, kanaName, pos )
+
+result.each do | ele |
+  putLine( ele[ index ], ele[ kanaName ], ele[ pos ] )
+end
+
+
+# ChaSen Sample 2
+targetString = Uconv.euctou8( '�ڤ������ѤǤ���?' )
+
+drv.parseChasenArry( targetString ).each do | ele |
+  puts Uconv.u8toeuc( ele )
+end
+=end

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

@@ -0,0 +1,17 @@
+module IICD
+  # All methods in a single namespace?!
+  InterfaceNS = 'http://www.iwebmethod.net'
+
+  Methods = [
+    ['SearchWord', 'query', 'partial'],
+    ['GetItemById', 'id'],
+    ['EnumWords'],
+    ['FullTextSearch', 'query'],
+  ]
+
+  def IICD.add_method(drv)
+    Methods.each do |method, *param|
+      drv.add_method_with_soapaction(method, InterfaceNS + "/#{ method }", *param )
+    end
+  end
+end

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

@@ -0,0 +1,46 @@
+#!/usr/bin/env ruby
+
+$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,44 @@
+#!/usr/bin/env ruby
+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,9 @@
+require 'xsd/qname'
+
+class StockQuoteServicePortType
+
+   def getQuote(ticker)
+      return 100 + rand * 50.0
+   end
+
+end