1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
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
|
