soap4r-ruby1.9 1.0.0

data/sample/payload/ssl/sslclient.rb

@@ -0,0 +1,12 @@
+require 'httpclient'
+require 'soap/rpc/driver'
+
+# setup driver
+url = "https://localhost:17443/"
+client = SOAP::RPC::Driver.new(url, 'urn:sslhelloworld')
+client.add_method("hello_world", "from")
+# load SSL properties
+client.loadproperty('files/sslclient.properties')
+
+# SOAP over SSL
+p client.hello_world(__FILE__)

data/sample/payload/ssl/sslclient_require_noserverauth.rb

@@ -0,0 +1,12 @@
+require 'httpclient'
+require 'soap/rpc/driver'
+
+# setup driver
+url = "https://localhost:17443/"
+client = SOAP::RPC::Driver.new(url, 'urn:sslhelloworld')
+client.add_method("hello_world", "from")
+# load SSL properties
+client.loadproperty('files/sslclient_require_noserverauth.properties')
+
+# SOAP over SSL
+p client.hello_world(__FILE__)

data/sample/payload/ssl/sslclient_with_clientauth.rb

@@ -0,0 +1,12 @@
+require 'httpclient'
+require 'soap/rpc/driver'
+
+# setup driver
+url = ARGV.shift || "https://localhost:17443/"
+client = SOAP::RPC::Driver.new(url, 'urn:sslhelloworld')
+client.add_method("hello_world", "from")
+# load SSL properties
+client.loadproperty('files/sslclient_with_clientauth.properties')
+
+# SOAP over SSL
+p client.hello_world(__FILE__)

data/sample/payload/ssl/sslserver.rb

@@ -0,0 +1,49 @@
+require 'soap/rpc/httpserver'
+require 'webrick/https'
+require 'logger'
+
+class HelloWorldServer < SOAP::RPC::HTTPServer
+private
+
+  def on_init
+    @default_namespace = 'urn:sslhelloworld'
+    add_method(self, 'hello_world', 'from')
+  end
+
+  def hello_world(from)
+    "Hello World, from #{ from }"
+  end
+end
+
+
+if $0 == __FILE__
+  DIR = File.dirname(File.expand_path(__FILE__))
+
+  def cert(filename)
+    OpenSSL::X509::Certificate.new(File.open(File.join(DIR, filename)) { |f|
+      f.read
+    })
+  end
+
+  def key(filename)
+    OpenSSL::PKey::RSA.new(File.open(File.join(DIR, filename)) { |f|
+      f.read
+    })
+  end
+
+  $server = HelloWorldServer.new(
+    :BindAddress => "0.0.0.0",
+    :Port => 17443,
+    :AccessLog => [],
+    :SSLEnable => true,
+    :SSLCACertificateFile => File.join(DIR, 'files/ca.cert'),
+    :SSLCertificate => cert('files/server.cert'),
+    :SSLPrivateKey => key('files/server.key'),
+    :SSLVerifyClient => nil,
+    :SSLCertName => nil
+  )
+  trap(:INT) do
+    $server.shutdown
+  end
+  $server.start
+end

data/sample/payload/ssl/sslserver_noauth.rb

@@ -0,0 +1,45 @@
+require 'soap/rpc/httpserver'
+require 'webrick/https'
+require 'logger'
+
+class HelloWorldServer < SOAP::RPC::HTTPServer
+private
+
+  def on_init
+    @default_namespace = 'urn:sslhelloworld'
+    add_method(self, 'hello_world', 'from')
+  end
+
+  def hello_world(from)
+    "Hello World, from #{ from }"
+  end
+end
+
+
+if $0 == __FILE__
+  DIR = File.dirname(File.expand_path(__FILE__))
+
+  def cert(filename)
+    OpenSSL::X509::Certificate.new(File.open(File.join(DIR, filename)) { |f|
+      f.read
+    })
+  end
+
+  def key(filename)
+    OpenSSL::PKey::RSA.new(File.open(File.join(DIR, filename)) { |f|
+      f.read
+    })
+  end
+
+  $server = HelloWorldServer.new(
+    :BindAddress => "0.0.0.0",
+    :Port => 17443,
+    :AccessLog => [],
+    :SSLEnable => true,
+    :SSLCertName => [['OU', 'example'], ['CN', 'localhost']]    # creates dummy certificate
+  )
+  trap(:INT) do
+    $server.shutdown
+  end
+  $server.start
+end

data/sample/payload/ssl/sslserver_require_clientauth.rb

@@ -0,0 +1,50 @@
+require 'soap/rpc/httpserver'
+require 'webrick/https'
+require 'logger'
+
+class HelloWorldServer < SOAP::RPC::HTTPServer
+private
+
+  def on_init
+    @default_namespace = 'urn:sslhelloworld'
+    add_method(self, 'hello_world', 'from')
+  end
+
+  def hello_world(from)
+    "Hello World, from #{ from }"
+  end
+end
+
+
+if $0 == __FILE__
+  DIR = File.dirname(File.expand_path(__FILE__))
+
+  def cert(filename)
+    OpenSSL::X509::Certificate.new(File.open(File.join(DIR, filename)) { |f|
+      f.read
+    })
+  end
+
+  def key(filename)
+    OpenSSL::PKey::RSA.new(File.open(File.join(DIR, filename)) { |f|
+      f.read
+    })
+  end
+
+  $server = HelloWorldServer.new(
+    :BindAddress => "0.0.0.0",
+    :Port => 17443,
+    :AccessLog => [],
+    :SSLEnable => true,
+    :SSLCACertificateFile => File.join(DIR, 'files/ca.cert'),
+    :SSLCertificate => cert('files/server.cert'),
+    :SSLPrivateKey => key('files/server.key'),
+    :SSLVerifyClient =>
+      OpenSSL::SSL::VERIFY_FAIL_IF_NO_PEER_CERT|OpenSSL::SSL::VERIFY_PEER,
+    :SSLClientCA => cert('files/ca.cert')
+  )
+  trap(:INT) do
+    $server.shutdown
+  end
+  $server.start
+end

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