soap5r 2.0.0

data/sample/showcase/soap/raa2.4/sample.rb

@@ -0,0 +1,116 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+# This is a sample client based on raaServiceClient.rb.
+# You can generate raaServiceClient.rb and related files with
+# wsdl2ruby.rb --wsdl http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.4/ --type client
+
+require 'pp'
+require 'raaDriver.rb'
+
+raa = RaaServicePortType.new
+# raa.wiredump_dev = STDERR
+
+def sec(msg)
+  puts
+  puts "--------"
+  puts "-- " + msg
+  puts
+end
+
+def subsec(msg)
+  puts "-- " + msg
+end
+
+sec("retrieve a gem (RAA Information) which has specified name")
+name = 'soap4r'
+pp raa.gem(name)
+
+sec("retrieve dependents of the project")
+name = 'http-access2'; version = nil
+pp raa.dependents(name, version)
+
+sec("number of registered gems")
+puts raa.size
+
+sec("retrieve all registered gem names")
+p raa.names
+
+sec("retrieve gems of specified category")
+major = 'Library'; minor = 'XML'
+p raa.list_by_category(major, minor)
+
+sec("retrieve category tree")
+pp raa.tree_by_category
+
+sec("retrieve gems which is updated recently")
+idx = 0
+p raa.list_recent_updated(idx)
+subsec("next 10 gems")
+idx += 1
+p raa.list_recent_updated(idx)
+subsec("next 10 gems")
+idx += 1
+p raa.list_recent_updated(idx)
+
+sec("retrieve gems which is created recently")
+p raa.list_recent_created(idx)
+
+sec("retrieve gems which is updated in 7 days")
+date = Time.now - 7 * 24 * 60 * 60; idx = 0
+p raa.list_updated_since(date, idx)
+
+sec("retrieve gems which is created in 7 days")
+p raa.list_created_since(date, idx)
+
+sec("retrieve gems of specified owner")
+owner_id = 8    # NaHi
+p raa.list_by_owner(owner_id)
+
+sec("search gems with keyword")
+substring = 'soap'
+pp raa.search(substring)
+
+# There are several search interface to search a field explicitly.
+# puts raa.search_name(substring, idx)
+# puts raa.search_short_description(substring, idx)
+# puts raa.search_owner(substring, idx)
+# puts raa.search_version(substring, idx)
+# puts raa.search_status(substring, idx)
+# puts raa.search_description(substring, idx)
+
+sec("retrieve owner info")
+owner_id = 8
+pp raa.owner(owner_id)
+
+sec("retrieve owners")
+idx = 0
+p raa.list_owner(idx)
+
+sec("update 'sampleproject'")
+name = 'sampleproject'
+pass = 'sampleproject'
+gem = raa.gem(name)
+p gem.project.version
+gem.project.version.succ!
+gem.updated = Time.now
+raa.update(name, pass, gem)
+p raa.gem(name).project.version
+
+sec("update pass phrase")
+raa.update_pass(name, 'sampleproject', 'foo')
+subsec("update check")
+gem = raa.gem(name)
+gem.project.description = 'Current pass phrase is "foo"'
+gem.updated = Time.now
+raa.update(name, 'foo', gem)
+#
+subsec("recover pass phrase")
+raa.update_pass(name, 'foo', 'sampleproject')
+subsec("update check")
+gem = raa.gem(name)
+gem.project.description = 'Current pass phrase is "sampleproject"'
+gem.updated = Time.now
+raa.update(name, 'sampleproject', gem)
+
+sec("done")

data/sample/showcase/soap/rwiki/rwikiClient.rb

@@ -0,0 +1,30 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+require 'soap/rpc/driver'
+
+server = 'http://www.jin.gr.jp/~nahi/yarpc/soapServer.cgi'
+NS = 'http://www.ruby-lang.org/xmlns/soap/interface/RWiki/0.0.1'
+
+drv = SOAP::RPC::Driver.new(server, NS)
+# drv.wiredump_dev = STDERR
+drv.add_method('find', 'keyword')
+drv.add_method('src', 'name')
+drv.add_method('view', 'name', 'env')
+drv.add_method('setSrcAndView', 'name', 'src', 'env')
+
+from = "nahi"
+to = "hina"
+
+env = { 'base' => 'mailto:nahi@keynauts.com' }
+
+drv.find(from).each do | name |
+  p name
+  src = drv.src(name)
+  src.gsub!(/#{ from }/i, to)
+#  drv.setSrcAndView(name, src, env)
+end
+
+drv.find(from).each do | name |
+  puts drv.view(name, env)
+end

data/sample/showcase/soap/rwiki/rwikiServer.cgi

@@ -0,0 +1,45 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+$KCODE = 'EUC'
+$RWIKI_DIR = 'rwiki'
+$RWIKI_URI = 'druby://localhost:8470'
+
+$:.unshift($RWIKI_DIR)
+$:.unshift(File::join($RWIKI_DIR, 'lib'))
+
+require 'cgi'
+require 'drb/drb'
+require 'rw-lib'
+require 'soap/rpc/cgistub'
+
+NS = 'http://www.ruby-lang.org/xmlns/soap/interface/RWiki/0.0.1'
+
+class RWikiSOAPApp < SOAP::RPC::CGIStub
+  def methodDef
+    add_method(self, 'find')
+    add_method(self, 'view')
+    add_method(self, 'src')
+    add_method(self, 'setSrcAndView')
+  end
+  
+  def find(keyword)
+    $rwiki.find(keyword)
+  end
+
+  def src(name)
+    $rwiki.src(name)
+  end
+
+  def view(name, env)
+    $rwiki.view(name, env)
+  end
+
+  def setSrcAndView(name, src, env)
+    $rwiki.set_src_and_view(name, src, env)
+  end
+end
+
+DRb.start_service()
+$rwiki = DRbObject.new(nil, $RWIKI_URI)
+RWikiSOAPApp.new("InteropApp", NS).start

data/sample/showcase/soap/soapbox/ContactsDataSet.xml

@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="utf-8"?>
+<xs:schema xmlns:mstns="http://www.winfessor.com/SoapBoxWebService/ContactsDataSet.xsd" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns="http://www.winfessor.com/SoapBoxWebService/ContactsDataSet.xsd" attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="http://www.winfessor.com/SoapBoxWebService/ContactsDataSet.xsd" id="ContactsDataSet" xmlns:xs="http://www.w3.org/2001/XMLSchema">
+  <xs:element msdata:IsDataSet="true" name="ContactsDataSet">
+    <xs:complexType>
+      <xs:choice maxOccurs="unbounded">
+        <xs:element name="group">
+          <xs:complexType>
+            <xs:sequence>
+              <xs:element minOccurs="0" maxOccurs="unbounded" name="contact">
+                <xs:complexType>
+                  <xs:sequence>
+                    <xs:element minOccurs="0" maxOccurs="unbounded" name="contactpoint">
+                      <xs:complexType>
+                        <xs:attribute form="unqualified" name="barejid" type="xs:string" />
+                        <xs:attribute default="normal" form="unqualified" name="show" type="xs:string" />
+                        <xs:attribute form="unqualified" name="priority" type="xs:int" />
+                        <xs:attribute form="unqualified" name="status" type="xs:string" />
+                        <xs:attribute form="unqualified" name="resource" type="xs:string" />
+                        <xs:attribute form="unqualified" name="name" type="xs:string" />
+                      </xs:complexType>
+                    </xs:element>
+                  </xs:sequence>
+                  <xs:attribute form="unqualified" name="ask" type="xs:string" />
+                  <xs:attribute form="unqualified" name="subscription" type="xs:string" />
+                  <xs:attribute form="unqualified" name="jid" type="xs:string" />
+                  <xs:attribute form="unqualified" name="available" type="xs:boolean" />
+                  <xs:attribute form="unqualified" name="name" type="xs:string" />
+                </xs:complexType>
+              </xs:element>
+            </xs:sequence>
+            <xs:attribute default="Unspecified" form="unqualified" name="name" type="xs:string" />
+          </xs:complexType>
+        </xs:element>
+      </xs:choice>
+    </xs:complexType>
+  </xs:element>
+</xs:schema>

data/sample/showcase/soap/soapbox/ExceptionDataSet.xml

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="utf-8"?>
+<xs:schema xmlns:mstns="http://www.winfessor.com/SoapBoxWebService/ExceptionDataSet.xsd" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns="http://www.winfessor.com/SoapBoxWebService/ExceptionDataSet.xsd" attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="http://www.winfessor.com/SoapBoxWebService/ExceptionDataSet.xsd" id="ExceptionDataSet" xmlns:xs="http://www.w3.org/2001/XMLSchema">
+  <xs:element msdata:IsDataSet="true" name="ExceptionDataSet">
+    <xs:complexType>
+      <xs:choice maxOccurs="unbounded">
+        <xs:element name="exception">
+          <xs:complexType>
+            <xs:sequence>
+              <xs:element msdata:Ordinal="3" name="message" type="xs:string" />
+              <xs:element msdata:Ordinal="4" name="type" type="xs:string" />
+              <xs:element msdata:Ordinal="5" name="innerex" type="xs:string" />
+              <xs:element msdata:Ordinal="6" name="stacktrace" type="xs:string" />
+              <xs:element msdata:Ordinal="7" name="data" type="xs:string" />
+            </xs:sequence>
+            <xs:attribute form="unqualified" name="source" type="xs:string" />
+            <xs:attribute form="unqualified" name="targetsite" type="xs:string" />
+            <xs:attribute form="unqualified" name="helplink" type="xs:string" />
+          </xs:complexType>
+        </xs:element>
+      </xs:choice>
+    </xs:complexType>
+  </xs:element>
+</xs:schema>

data/sample/showcase/soap/soapbox/MessageDataSet.xml

@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="utf-8"?>
+<xs:schema xmlns:mstns="http://www.winfessor.com/SoapBoxWebService/MessageDataSet.xsd" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns="http://www.winfessor.com/SoapBoxWebService/MessageDataSet.xsd" attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="http://www.winfessor.com/SoapBoxWebService/MessageDataSet.xsd" id="MessageDataSet" xmlns:xs="http://www.w3.org/2001/XMLSchema">
+  <xs:element msdata:IsDataSet="true" name="MessageDataSet">
+    <xs:complexType>
+      <xs:choice maxOccurs="unbounded" />
+    </xs:complexType>
+  </xs:element>
+</xs:schema>