|
Revision 1843, 452 bytes
(checked in by nahi, 1 year ago)
|
|
- Property svn:eol-style set to
native
- Property svn:keywords set to
author date id revision
|
| Line | |
|---|
| 1 |
#!/usr/bin/env ruby |
|---|
| 2 |
|
|---|
| 3 |
text = ARGV.shift || 'Hello world.' |
|---|
| 4 |
lang = ARGV.shift || 'en_fr' |
|---|
| 5 |
|
|---|
| 6 |
require 'soap/rpc/driver' |
|---|
| 7 |
|
|---|
| 8 |
server = 'http://services.xmethods.net/perl/soaplite.cgi' |
|---|
| 9 |
InterfaceNS = 'urn:xmethodsBabelFish' |
|---|
| 10 |
wireDumpDev = nil # STDERR |
|---|
| 11 |
|
|---|
| 12 |
drv = SOAP::RPC::Driver.new(server, InterfaceNS) |
|---|
| 13 |
drv.wiredump_dev = wireDumpDev |
|---|
| 14 |
drv.add_method_with_soapaction('BabelFish', InterfaceNS + "#BabelFish", 'translationmode', 'sourcedata') |
|---|
| 15 |
|
|---|
| 16 |
p drv.BabelFish(lang, text) |
|---|
