This page is constructed from the source code of the class that produces the
XMethods table. The Refactoring Browser Parser is used to parse the methods from the SoapInteropXMethods class,
and a custom formatter outputs the source with the html tags.
Thank-you to XMethods for making the listing available, and to the service owners for providing these services.
Service: 1 eBay Price Watcher
id1
self
createClientOn: 'http://www.xmethods.net/sd/2001/EBayWatcherService.wsdl'.
exchange := self client send: 'getCurrentPrice'
with: '414173888'.
answer := exchange value.
self setPass: answer = -1.0.
^answer
Service: 2 Delayed Stock Quote
id2
self
createClientOn: 'http://services.xmethods.net/soap/urn:xmethods-delayed-quotes.wsdl'.
exchange := self client send: 'getQuote'
with: 'YHOO'.
answer := exchange value.
self setPass: (answer isKindOf: Float).
^answer
Service: 4 California Traffic Conditions
id4
self
createClientOn: 'http://www.xmethods.net/sd/2001/CATrafficService.wsdl'.
exchange := self client send: 'getTraffic'
with: '101'.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 5 Currency Exchange Rate
id5
self
createClientOn: 'http://www.xmethods.net/sd/2001/CurrencyExchangeService.wsdl'.
exchange := self client
send: 'getRate'
with: 'australia'
with: 'usa'.
answer := exchange value.
self setPass: (answer isKindOf: Float).
^answer
Service: 6 Domain Name Checker
id6
self
createClientOn: 'http://services.xmethods.net/soap/urn:xmethods-DomainChecker.wsdl'.
exchange := self client send: 'checkDomain'
with: 'dolphinharbor.org'.
answer := exchange value.
self setPass: answer = 'unavailable'.
^answer
Service: 7 Barnes and Noble Price Quote
id7
self
createClientOn: 'http://www.xmethods.net/sd/2001/BNQuoteService.wsdl'.
exchange := self client send: 'getPrice'
with: '0201737930'.
answer := exchange value.
self setPass: (answer isKindOf: Number).
^answer
Service: 8 Weather - Temperature
id8
self
createClientOn: 'http://www.xmethods.net/sd/2001/TemperatureService.wsdl'.
exchange := self client send: 'getTemp'
with: '94041'.
answer := exchange value.
self setPass: (answer isKindOf: Float).
^answer
Service: 14 BabelFish
id14
self
createClientOn: 'http://www.xmethods.net/sd/2001/BabelFishService.wsdl'.
exchange := self client
send: 'BabelFish'
with: 'en_it'
with: 'Go Smalltalk, Go Dolphin'.
answer := exchange value.
self setPass: answer trimBlanks
= 'Vanno Le Chiacchiere, Vanno Delfino'.
^answer
Service: 32 SOAP Web Search
id32
self
createClientOn: 'http://www.SoapClient.com/xml/SQLDataSoap.WSDL'.
exchange := self client
send: 'ProcessSRL'
with: 'WEB.SRI'
with: 'Yahoo'
with: 'Smalltalk'.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 34 SQLData's WHOIS
id34
self
createClientOn: 'http://www.SoapClient.com/xml/SQLDataSoap.WSDL'.
exchange := self client
send: 'ProcessSRL'
with: 'WHOIS.SRI'
with: 'whois'
with: 'dolphinharbor.org'.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 37 EDGAR Search
id37
self
createClientOn: 'http://www.SoapClient.com/xml/SQLDataSoap.wsdl'.
exchange := self client
send: 'ProcessSRL'
with: 'EDGAR.SRI'
with: 'EDGAR'
with: 'foo bar'.
answer := exchange value.
self setPass: (answer isNil or: [
answer isKindOf: String]).
^answer
Service: 45 Headline News
id45
self
createClientOn: 'http://www.SoapClient.com/xml/SQLDataSoap.WSDL'.
exchange := self client
send: 'ProcessSRL'
with: 'NEWS.SRI'
with: 'yahoo'
with: 'today'.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 60 Alan Bush Compositions
id60
self
createClientOn: 'http://www.alanbushtrust.org.uk/soap/compositions.wsdl'.
exchange := self client send: 'GetCategories'.
answer := exchange value.
self setPass: (answer isKindOf: Array).
^answer
Service: 80 Electricity Calculator
id80
self
createClientOn: 'http://www.xmlbus.com:9010/xmlbus/container/Electricity/ElectricityService/ElectricityPort'.
exchange := self client
send: 'computeWatts'
with: 10
with: 5.
answer := exchange value.
self setPass: (answer isKindOf: Number).
^answer
Service: 81 Inch <-> Millimeter Converter
id81
self
createClientOn: 'http://www.xmlbus.com:9010/xmlbus/container/Converter/ConverterService/ConverterPort'.
exchange := self client send: 'mmToInch'
with: 300.
answer := exchange value.
self setPass: (answer isKindOf: Number).
^answer
Service: 84 Agni Find MP3
id84
self
createClientOn: 'http://www.agnisoft.com/soap/mssoapmp3search.xml'.
exchange := self client
send: 'SearchMP3'
with: 'any'
with: 10.
answer := exchange value.
self setPass: (answer isKindOf: Number).
^answer
Service: 109 PolyCalc
id109
| c1 c2 c3 |
self
createClientOn: 'http://live.capescience.com/wsdl/PolyCalcApp.wsdl'.
c1 := (XeQStruct new)
at: #x put: 0.0;
at: #y put: 0.0;
yourself.
c2 := (XeQStruct new)
at: #x put: 0.0;
at: #y put: 2.0;
yourself.
c3 := (XeQStruct new)
at: #x put: 2.0;
at: #y put: 2.0;
yourself.
exchange := self client send: 'calculate'
with: (Array
with: c1
with: c2
with: c3).
answer := exchange value.
self setPass: answer = 2.0.
^answer
Service: 110 Discordian
id110
self
createClientOn: 'http://www.compkarori.com/wsdl/discordian.wsdl'.
exchange := self client
send: 'Discordian'
with: 1000
with: 10
with: 10.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 111 DNS Lookup Service
id111
self
createClientOn: 'http://www.shinkatech.com/interop/NSLookup/NSLookup.wsdl'.
exchange := self client send: 'translate'
with: 'dolphinharbor.org'.
answer := exchange value.
answer at: #IP.
self setPass: (answer at: #Hostname)
= 'dolphinharbor.org'.
^answer
Service: 128 ZipCodes
id128
self
createClientOn: 'http://services.pagedownweb.com/ZipCodes.asmx?WSDL'.
exchange := self client
send: 'ZipToState'
with: '98052'
with: 'WA'.
answer := exchange value.
exchange := self client
send: 'rtnZipDS'
with: '98052'
with: 'WA'.
answer := exchange value.
self setPass: ((answer isKindOf: XeNode)
and: [
answer qName = (XeQName xsd2001: 'schema')]).
^answer
Service: 129 AirportWeather
id129
self
createClientOn: 'http://live.capescience.com/wsdl/AirportWeather.wsdl'.
exchange := self client send: 'getSummary'
with: 'EGLL'.
answer := exchange value.
self setPass: (answer at: #location)
= 'London / Heathrow Airport, United Kingdom'.
^answer
Service: 130 CustomNewsFeedinXMLFormat
id130
self
createClientOn: 'http://www.xmlme.com/WSCustNews.asmx?WSDL'.
exchange := self client send: 'GetCustomNews'
with: 'today'.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 131 DotnetDailyFact
id131
self
createClientOn: 'http://www.xmlme.com/WSDailyNet.asmx?WSDL'.
exchange := self client send: 'GetDotnetDailyFact'
withArguments: #().
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 132 XMLDailyFact
id132
self
createClientOn: 'http://www.xmlme.com/WSDailyXml.asmx?WSDL'.
exchange := self client send: 'GetXmlDailyFact'
withArguments: #().
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 133 SportingGoodsFinder
id133
self
createClientOn: 'http://www.xmlme.com/WSSportingGoods.asmx?WSDL'.
exchange := self client send: 'FindSportingGoods'
with: 'ski'.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 134 VideoGamesFinder
id134
self
createClientOn: 'http://www.xmlme.com/WSVideoGames.asmx?WSDL'.
exchange := self client send: 'FindVideoGames'
with: 'wing'.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 135 ElectronicProductsFinder
id135
self
createClientOn: 'http://www.xmlme.com/WSElectronics.asmx?WSDL'.
exchange := self client send: 'FindElectronicProducts'
with: 'tv'.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 140 Romulan Numbers XLII
id140
self
createClientOn: 'http://www.ebob42.com/cgi-bin/Romulan.exe/wsdl/IRoman'.
exchange := self client send: 'IntToRoman'
with: 42.
answer := exchange value.
self setPass: answer = 'XLII'.
^answer
Service: 141 Number To Words (in Dutch)
id141
self
createClientOn: 'http://www.ebob42.com/cgi-bin/NumberToWordsInDutch.exe/wsdl/IDutch'.
exchange := self client send: 'NumToStr'
with: 1234.
answer := exchange value.
self setPass: answer = 'eenduizend tweehonderdvierendertig'.
^answer
Service: 147 Dr.Bob's Programming Clinic Headlines
id147
self
createClientOn: 'http://www.ebob42.com/cgi-bin/DrBobsClinic.exe/wsdl/IHeadline'.
exchange := self client send: 'SOAPNews'
with: 5.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 156 Yahoo User Ping
id156
self
createClientOn: 'http://www.allesta.net:51110/webservices/wsdl/YahooUserPingService.xml'.
exchange := self client send: 'isuseronline'
with: 'notauser'.
answer := exchange value.
self setPass: answer not.
^answer
Service: 159 Xara 3D graphics generator
id159
self
createClientOn: 'http://ws.xara.com/graphicrender/render3d.wsdl'.
exchange := self client send: 'GetFonts'.
answer := exchange value.
self setPass: (answer includes: 'Arial').
^answer
Service: 173 MXChecker
id173
self
createClientOn: 'http://beta2.eraserver.net/webservices/mxchecker/mxchecker.asmx?WSDL'.
exchange := self client
send: 'CheckEmail'
with: 0
with: 'swaring@ozemail.com.au'.
answer := exchange value.
self setPass: answer = 'OK'.
^answer
Service: 185 ZipCode Resolver
id185
self
createClientOn: 'http://webservices.eraserver.net/zipcoderesolver/zipcoderesolver.asmx?WSDL'.
exchange := self client send: 'FullZipCode'
withArguments: #('9999' '123 test' 'foo' 'good').
answer := exchange value.
self setPass: answer = '00000-0000'.
^answer
Service: 192 SalesRankNPrice
id192
self
createClientOn: 'http://www.PerfectXML.NET/WebServices/SalesRankNPrice/BookService.asmx?WSDL'.
exchange := self client send: 'GetAmazonPrice'
with: '0201737930'.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 197 WSFindMP3
id197
self
createClientOn: 'http://xmlrad.com/WSFindMP3Bin/WSFindMP3.dll/WSDL'.
exchange := self client
send: 'FindMP3'
with: 'Cartoon'
with: 10.
answer := exchange value.
self setPass: (answer isKindOf: Collection).
^answer
Service: 201 XEMBL
id201
self
createClientOn: 'http://www.ebi.ac.uk/xembl/XEMBL.wsdl'.
exchange := self client
send: 'getNucSeq'
with: 'Bsml'
with: 'AC000057'.
answer := exchange value.
self setPass: ((answer isKindOf: String) and: [
answer notEmpty]).
^answer
Service: 207 getStatistics
id207
self
createClientOn: 'http://213.23.125.181:8080/statistics.wsdl'.
exchange := self client send: 'isPrimeNumber'
with: 13.
self setPass: exchange value.
^answer
Service: 218 Equated Monthly Instalment (EMI) Calculator
id218
self
createClientOn: 'http://upload.eraserver.net/circle24/autoloan.asmx?wsdl'.
exchange := self client
send: 'Calculate'
with: 12
with: 5
with: 1000.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 220 SearchMusicTeachers
id220
"self halt."
| args |
self
createClientOn: 'http://www.PerfectXML.net/WebServices/MusicTeachers/MusicTeachers.asmx?wsdl'.
args := Array new: 6.
args
at: 1 put: '38603';
at: 2 put: '';
at: 3 put: '';
at: 4 put: '';
at: 5 put: 0;
at: 6 put: 0.
exchange := self client send: 'FindMusicTeachers'
withArguments: args.
answer := exchange value.
self setPass: true.
^answer
Service: 221 Weather Conditions
id221
self
createClientOn: 'http://www.vbws.com/services/weatherretriever.asmx?WSDL'.
exchange := self client send: 'GetWeather'
with: '38603'.
answer := exchange value.
self setPass: true.
^answer
Service: 223 Periodic table
id223
self
createClientOn: 'http://213.23.125.181:8080/chemistry.wsdl'.
exchange := self client send: 'getElementByNumber'
with: 7.
answer := exchange value.
self
setPass: ((answer at: #name)
= 'Nitrogen' and:
[
(answer at: #meltingPoint)
= 63.29]).
^answer
Service: 226 TakisActiveLib
id226
self
createClientOn: 'http://www.forthlink.gr/TakisLib/TakisActiveLib.WSDL'.
exchange := self client send: 'GetAutoHellasRecordSetinXml'.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 229 Prime Generator
id229
self
createClientOn: 'http://www.jusufdarmawan.com/wsprimegenerator.exe/wsdl/IPrimeGenerator'.
exchange := self client
send: 'primegenerator'
with: '1'
with: '10'.
answer := exchange value.
self setPass: answer = '2,3,5,7'.
^answer
Service: 236 Xara NavBar Generator
id236
self
createClientOn: 'http://ws.xara.com/navbar/navbar.wsdl'.
exchange := self client send: 'GetFonts'.
answer := exchange value.
self setPass: (answer isKindOf: Array).
^answer
Service: 242 SMS
id242
self
createClientOn: 'http://www.soapengine.com/lucin/soapenginex/smsx.asmx?wsdl'.
exchange := self client
send: 'GetServerTime'
with: 'test'
with: 'test'.
answer := exchange value.
self setPass: true.
^answer
Service: 251 Quran Verse
id251
self
createClientOn: 'http://aspnet.lamaan.com/webservices/QuranVerse.asmx?WSDL'.
exchange := self client
send: 'GetQuranVerseEnglish'
with: 10
with: 1.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 254 English , French , Arabic Dictionary
id254
self
createClientOn: 'http://upload.eraserver.net/MOUNALISA/adictionary/arabicdictionary.asmx?WSDL'.
exchange := self client send: 'GetEAMeaning'
with: 'dolphin'.
answer := exchange value.
self setPass: (answer atLocalName: #Trans) first
= 'dolphin'.
^answer
Service: 255 FoxCentral
id255
self
createClientOn: 'http://www.foxcentral.net/foxcentral.wsdl'.
exchange := self client send: 'GetProviders'.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 265 ZipToCityState
id265
self
createClientOn: 'http://HOSTING.MSUGS.CH/cheeso9/zips/ZipService.asmx?WSDL'.
exchange := self client send: 'ZipToCityAndState'
with: '12345'.
answer := exchange value.
self setPass: answer = #('SCHENECTADY NY').
^answer
Service: 268 Euro Conversion
id268
self
createClientOn: 'http://www.drbob42.co.uk/cgi-bin/Euro42/wsdl/IEuro'.
exchange := self client
send: 'FromEuro'
with: 'DEM'
with: 123.45.
answer := exchange value.
self setPass: (answer isKindOf: Float).
^answer
Service: 1001 ChristmasTree
id1001
self
createClientOn: 'http://213.23.125.181:8080/christmas.wsdl'.
exchange := self client
send: 'ChristmasTree'
with: 223.4
with: 112.56
with: 12.5.
answer := exchange value.
self setPass: answer = 223.
^answer
Service: 1006 RichCardValidator
id1006
self
createClientOn: 'http://www.richsolutions.com/RichPayments/RichCardValidator.asmx?WSDL'.
exchange := self client send: 'GetCardType'
with: '1234123412341234'.
answer := exchange value.
self setPass: answer = 'Unknown'.
^answer
Service: 1007 Japanese fortune
id1007
"self halt."
self
createClientOn: 'http://www.webappcabaret.com/sk/pub/sinosoap.wsdl'.
exchange := self client send: 'jfortune'
with: 'hello'.
answer := exchange value.
self setPass: (answer isKindOf: String).
"?"
^answer
Service: 1016 Synonym
id1016
self
createClientOn: 'http://www.mybubble.com:8080/mybubbleEntServer/MBSoapServices.wsdl'.
exchange := self client
send: 'getServiceResponsePublic'
with: 'Synonym'
with: 'permeate'.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 7328 Dictionary Meaning
id7328
self
createClientOn: 'http://www.mybubble.com:8080/mybubbleEntServer/MBSoapServices.wsdl'.
exchange := self client
send: 'getServiceResponsePublic'
with: 'Meaning'
with: 'permeate'.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 7346 Techmine's latest publications
id7346
self
createClientOn: 'http://www.techmetrix.net:8080/wsdl/techservice.wsdl'.
exchange := self client
send: 'getLatestArticles'
with: 'US'
with: 3.
answer := exchange value.
self setPass: (answer isKindOf: Array).
^answer
Service: 7396 GIServer Location Services
id7396
| geoPoint |
self
createClientOn: 'http://inovagis.dcea.fct.unl.pt/services/GIServerWS.exe/wsdl/IGIServer'.
(geoPoint := XeQStruct new)
at: #X put: -7;
at: #Y put: 38;
at: #SRS put: 'EPSG:4326'.
exchange := self client
send: 'ConvertCoordEx'
with: geoPoint
with: 'SHGM'.
answer := exchange value.
self
setPass: ((answer at: #SRS) = 'SHGM'
and: [
(answer at: #X) isKindOf: Float]).
^answer
Service: 7508 Temperature Conversion Service
id7508
self
createClientOn: 'http://developerdays.com/cgi-bin/tempconverter.exe/wsdl/ITempConverter'.
exchange := self client send: 'FtoC'
with: 100.
answer := exchange value.
self setPass: answer = 37.
^answer
Service: 7534 Location Information
id7534
self
createClientOn: 'http://www.alethea.net/webservices/ZipCode.asmx?WSDL'.
exchange := self client
send: 'CityStateToZipCode'
with: 'Denver'
with: 'Colorado'.
answer := exchange value.
self setPass: (answer isKindOf: Array).
^answer
Service: 9348 Daily Dilbert
id9348
self
createClientOn: 'http://www.esynaps.com/WebServices/DailyDiblert.asmx?WSDL'.
exchange := self client send: 'DailyDilbertImage'
withArguments: #().
answer := exchange value.
self setPass: ((answer isKindOf: ByteArray) and: [
answer notEmpty]).
^answer
Service: 9349 Who Is
id9349
self
createClientOn: 'http://www.esynaps.com/WebServices/WhoIsService.asmx?WSDL'.
exchange := self client send: 'WhoIs'
with: 'www.dolphinharbor.org'.
answer := exchange value.
self setPass: answer notEmpty.
^answer
Service: 13437 PlaceFinder
id13437
self
createClientOn: 'http://www.geographynetwork.com/services/v1/PlaceFinder.wsdl'.
exchange := self client send: 'findPlace'
with: 'Sydney'.
answer := exchange value.
self setPass: ((answer at: #candidates) isKindOf: Array).
^answer
Service: 15487 Stock Quotes
id15487
self
createClientOn: 'http://www.mybubble.com:8080/mybubbleEntServer/MBSoapServices.wsdl'.
exchange := self client
send: 'getServiceResponsePublic'
with: 'StockQuote'
with: 'IBM'.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 15492 Company Profile
id15492
self
createClientOn: 'http://www.mybubble.com:8080/mybubbleEntServer/MBSoapServices.wsdl'.
exchange := self client
send: 'getServiceResponsePublic'
with: 'StockProfile'
with: 'IBM'.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 19611 English to Pig Latin
id19611
self
createClientOn: 'http://www.aspxpressway.com/maincontent/webservices/piglatin.asmx?wsdl'.
exchange := self client send: 'toPigLatin'
with: 'Dolphin Smalltalk'.
answer := exchange value.
self setPass: answer trimBlanks = 'Olphinday Alltalksmay'.
^answer
Service: 19675 GetLocalTime
id19675
self
createClientOn: 'http://services.develop.co.za/GetLocalTime.asmx?WSDL'.
exchange := self client send: 'GetTime'
withArguments: #().
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 25703 XMethods Query Service
id25703
self
createClientOn: 'http://www.xmethods.net/wsdl/query.wsdl'.
exchange := self client send: 'getAllServiceSummaries'.
answer := exchange value.
self setPass: (answer isKindOf: Array).
^answer
Service: 34923 Local Time
id34923
self
createClientOn: 'http://www.alethea.net/webservices/LocalTime.asmx?WSDL'.
exchange := self client send: 'LocalTimeByZipCode'
with: '38603'.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 34945 Html2Xml
id34945
self
createClientOn: 'http://www.dev1.eraserver.net/REFLECTIONIT/Html2xml.asmx?WSDL'.
exchange := self client send: 'HtmlString2XmlString'
with: 'hi
'.
answer := exchange value.
self setPass: ('*hi
*' match: answer).
^answer
Service: 42115 eSynapsSearch
id42115
self
createClientOn: 'http://www.esynaps.com/WebServices/eSynapsSearch.asmx?WSDL'.
exchange := self client
send: 'SearchESynaps'
with: 'SOAP'
with: 10.
answer := exchange value.
self setPass: (answer isKindOf: Array).
^answer
Service: 47216 Unisys Weather Web Service
id47216
| pass |
self
createClientOn: 'http://hosting001.vs.k2unisys.net/Weather/PDCWebService/WeatherServices.asmx?WSDL'.
exchange := self client send: 'GetWeather'
with: '38603'.
answer := exchange value.
pass := true.
pass := pass & ((answer atLocalName: 'ZipCode')
= '38603').
pass := pass
& ((answer atLocalName: 'DayForecast') isKindOf: Array).
pass := pass & (answer atLocalName: 'DayForecast') notEmpty.
self setPass: pass.
^answer
Service: 47238 Miss Proxy "the programmer"
id47238
self
createClientOn: 'http://www.esynaps.com/WebServices/MsProxy.asmx?WSDL'.
exchange := self client send: 'MsProxySays'.
answer := exchange value.
self setPass: (answer isKindOf: ByteArray).
^answer
Service: 48231 Captain Haddocks Curser
id48231
self
createClientOn: 'http://www.tankebolaget.se/scripts/Haddock.exe/wsdl/IHaddock'.
exchange := self client send: 'GetCurseLanguages'.
[
answer := exchange value] on: XeStrictError do: [:e |
e resume].
exchange := self client send: 'Curse' with: answer first first.
answer := exchange value.
self setPass: (answer isKindOf: String).
^answer
Service: 48232 Modulus Checker
id48232
self
createClientOn: 'http://www.tankebolaget.se/scripts/TBWS.exe/wsdl/IModulusCheck'.
exchange := self client send: 'CheckModulus'
with: '1234'.
answer := exchange value.
self setPass: answer not.
^answer