home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / demos / TclSOAP / SOAP-tests.tcl < prev    next >
Encoding:
Text File  |  2001-10-22  |  9.1 KB  |  265 lines
  1. # SOAP-tests.tcl - Copyright (C) 2001 Pat Thoyts <Pat.Thoyts@bigfoot.com>
  2. #
  3. # Create some remote SOAP access methods to demo servers.
  4. #
  5. # If you live behind a firewall and have an authenticating proxy web server
  6. # try executing SOAP::proxyconfig and filling in the fields. This sets
  7. # up the SOAP package to send the correct headers for the proxy to 
  8. # forward the packets (provided it is using the `Basic' encoding scheme).
  9. #
  10. # The SOAP::Lite project has some nice examples of object access that
  11. # we should pursue
  12. # 
  13. # -------------------------------------------------------------------------
  14. # This software is distributed in the hope that it will be useful, but
  15. # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  16. # or FITNESS FOR A PARTICULAR PURPOSE.  See the accompanying file `LICENSE'
  17. # for more details.
  18. # -------------------------------------------------------------------------
  19. #
  20. # @(#)$Id: SOAP-tests.tcl,v 1.13 2001/08/01 23:47:06 patthoyts Exp $
  21.  
  22. package require SOAP
  23.  
  24. # -------------------------------------------------------------------------
  25. # Validators
  26. #
  27. # Microsoft provide a .NET client validator
  28. SOAP::create validator1 \
  29.         -name "validate" \
  30.         -uri "urn:zsplat-Validator" \
  31.         -proxy "http://www.soaptoolkit.com/soapvalidator/listener.asp" \
  32.         -params { msg string num integer }
  33.  
  34. SOAP::create validator2 \
  35.         -name "validate" \
  36.         -uri "urn:zsplat-Validator" \
  37.         -action "\"\"" \
  38.         -proxy "http://www.soaptoolkit.com/soapvalidator/listener.asp" \
  39.         -params { msg string num integer }
  40.  
  41. SOAP::create validator3 \
  42.         -name "validate" \
  43.         -uri "urn:zsplat-Validator" \
  44.         -action "urn:tclsoap-Test" \
  45.         -proxy "http://www.soaptoolkit.com/soapvalidator/listener.asp" \
  46.         -params {myStruct struct}
  47.  
  48. # -------------------------------------------------------------------------
  49. #
  50. # XMethods demos (www.xmethods.net)
  51. #
  52. SOAP::create getTemp \
  53.         -uri "urn:xmethods-Temperature" \
  54.         -proxy "http://services.xmethods.net/soap/servlet/rpcrouter" \
  55.         -params { "zipcode" "string" }
  56.  
  57. SOAP::create pingHost \
  58.         -proxy "http://services.xmethods.net:80/perl/soaplite.cgi" \
  59.         -uri "urn:xmethodsSoapPing" \
  60.         -params { "hostname" "string" }
  61.  
  62. SOAP::create getTraffic \
  63.         -proxy "http://services.xmethods.net:80/soap/servlet/rpcrouter" \
  64.         -uri "urn:xmethods-CATraffic" \
  65.         -params { "hwaynum" "string" }
  66.  
  67. SOAP::create checkDomain \
  68.         -uri "urn:xmethods-DomainChecker" \
  69.         -proxy "http://services.xmethods.net:9090/soap" \
  70.         -params { "domainname" "string" }
  71.  
  72. # -------------------------------------------------------------------------
  73. #
  74. # SOAP::Lite Perl demos (www.soaplite.com)
  75. #
  76. SOAP::create hi \
  77.         -uri "http://www.soaplite.com/Demo" \
  78.         -proxy "http://services.soaplite.com/hibye.cgi" \
  79.         -params {}
  80.  
  81. SOAP::create hello \
  82.         -name hi \
  83.         -uri "http://www.soaplite.com/Demo" \
  84.         -proxy "http://services.soaplite.com/hibye.cgi" \
  85.         -params {}
  86.  
  87. SOAP::create languages \
  88.         -uri "http://www.soaplite.com/Demo" \
  89.         -proxy "http://services.soaplite.com/hibye.cgi" \
  90.         -params {}
  91.  
  92. SOAP::create f2c \
  93.         -uri "http://www.soaplite.com/Temperatures" \
  94.         -proxy "http://services.soaplite.com/temper.cgi" \
  95.         -params { "temp" "float"}
  96.  
  97. SOAP::create c2f \
  98.         -uri "http://www.soaplite.com/Temperatures" \
  99.         -proxy "http://services.soaplite.com/temper.cgi" \
  100.         -params { "temp" "float"}
  101.  
  102. # Call with the wrong method name evokes a SOAP Fault packet.
  103. SOAP::create c2f_broke \
  104.         -uri "http://www.soaplite.com/Temperatures" \
  105.         -proxy "http://services.soaplite.com/temper.cgi" \
  106.         -params { "temp" "float"}\
  107.         -name c2f_invalid
  108.  
  109. # -------------------------------------------------------------------------
  110. #
  111. # Lucin
  112. #
  113. SOAP::create getCard \
  114.         -uri "GetACard" \
  115.         -name "GetACard" \
  116.         -proxy "http://sal006.salnetwork.com:82/bin/games.cgi" \
  117.         -params {}
  118.  
  119. SOAP::create getHand \
  120.         -uri "GetAHand" \
  121.         -name "GetAHand" \
  122.         -proxy "http://sal006.salnetwork.com:82/bin/games.cgi" \
  123.         -params {}
  124.  
  125. # -------------------------------------------------------------------------
  126. #
  127. # Other demos
  128. #
  129. SOAP::create NextGUID \
  130.         -uri "http://www.itfinity.net/soap/guid/guid.xsd" \
  131.         -proxy "http://www.itfinity.net/soap/guid/default.asp" \
  132.         -params {}
  133.  
  134. SOAP::create whois \
  135.         -uri "http://www.pocketsoap.com/whois" \
  136.         -proxy "http://www.razorsoft.net/ssss4c/whois.asp" \
  137.         -params { "name" "string" }
  138.  
  139. SOAP::create census \
  140.         -uri "http://tempuri.org/" \
  141.         -proxy "http://terranet.research.microsoft.com/CensusService.asmx" \
  142.         -params { "pu" "string" "name" "string" \
  143.                   "ParentName" "string" "year" "integer" } \
  144.         -action "http://tempuri.org/GetPoliticalUnitFactsByName" \
  145.         -name GetPoliticalUnitFactsByName
  146.  
  147.  
  148. # Babelfish translator http://www.xmltoday.com/examples/soap/translate.psp
  149.  
  150. SOAP::create translate \
  151.         -action urn:vgx-translate \
  152.         -name getTranslation \
  153.         -proxy http://www.velocigen.com:82/vx_engine/soap-trigger.pperl \
  154.         -uri urn:vgx-translate \
  155.         -params {"text" "string" "language" "string"}
  156.  
  157. # translate {Good morning} en_[de|fr|it|es|pt]
  158. # translate {Guten tag} de_fr
  159.  
  160. SOAP::create news \
  161.         -name ProcessSRL \
  162.         -proxy http://www.soapclient.com/xml/SQLDataSoap.wsdl \
  163.         -params {SRLFile string RequestName string} \
  164.         -uri http://www.soapclient.com/xml/SQLDataSoap.xsd \
  165.         -action "/SQLDataSRL"
  166.  
  167. # Never replies with any data.
  168. SOAP::create mp3 \
  169.         -name SearchMP3 \
  170.         -action urn:SoapFindMP3Intf-ISoapFindMP3#SearchMP3 \
  171.         -uri urn:SoapFindMP3Intf-ISoapFindMP3 \
  172.         -proxy http://www.agnisoft.com/cgi-bin/soapmp3search.exe/soap/ISoapFindMP3 \
  173.         -params {SearchString string NumResults int}
  174.  
  175. # -------------------------------------------------------------------------
  176.  
  177. # Fortune server has 3 methods.
  178. namespace eval Fortune {
  179.     variable uri "urn:lemurlabs-Fortune"
  180.     variable proxy "http://www.lemurlabs.com:80/rpcrouter"
  181.  
  182.     proc unxml {methodVarName xml} {
  183.         regsub -all {<} $xml {<} xml
  184.         regsub -all {>} $xml {>} xml
  185.         regsub -all {&} $xml {&} xml
  186.         return $xml
  187.     }
  188.  
  189.     SOAP::create getAnyFortune -uri $uri -proxy $proxy -postProc unxml
  190.     SOAP::create getDictionaryNameList -uri $uri -proxy $proxy
  191.     SOAP::create getFortuneByDictionary -uri $uri -proxy $proxy \
  192.             -params { "dictionary" "string" } -postProc unxml
  193.     namespace export getAnyFortune getDictionaryNameList \
  194.             getFortuneByDictionary
  195. }
  196.  
  197. # -------------------------------------------------------------------------
  198.  
  199. namespace eval XFS {
  200.     variable uri "urn:xmethodsXFS"
  201.     variable proxy "http://services.xmethods.net:80/soap/servlet/rpcrouter"
  202.     SOAP::create readFile -uri $uri -proxy $proxy -params \
  203.             { "userid" "string" "filename" "string" "password" "string" }
  204.     SOAP::create writeFile -uri $uri -proxy $proxy -params \
  205.             { "userid" "string" \
  206.             "filedata" "string" \
  207.             "filename" "string" \
  208.             "password" "string" }
  209.     SOAP::create removeFile -uri $uri -proxy $proxy -params \
  210.             { "userid" "string" "filename" "string" "password" "string" }
  211.     SOAP::create listFiles -uri $uri -proxy $proxy -params \
  212.             { "userid" "string" "password" "string" }
  213.     namespace export readFile removeFile writeFile listFiles
  214. }
  215.  
  216. namespace eval Chat {
  217.     variable uri "http://tempuri.org/"
  218.     variable proxy "http://aspx.securewebs.com/prasadv/prasadchat.asmx"
  219.     SOAP::create RegisterMember -uri $uri -proxy $proxy \
  220.             -action "${uri}RegisterMember" \
  221.             -params { "NickName" "string" }
  222.     SOAP::create XchangeMsgs -uri $uri -proxy $proxy \
  223.             -action "${uri}XchangeMsgs" \
  224.             -params { "NickName" "string" "Msg" "string" }
  225.     SOAP::create GetMsgs -uri $uri -proxy $proxy \
  226.             -action "${uri}GetMsgs" \
  227.             -params { "NickName" "string" }
  228.     namespace export RegisterMember XchangeMsgs GetMsgs
  229. }
  230.  
  231. # -------------------------------------------------------------------------
  232.  
  233. namespace eval uddi {
  234.     variable uri "urn:uddi-org:api"
  235.     variable proxy "http://www-3.ibm.com/services/uddi/testregistry/inquiryapi"
  236.  
  237.     SOAP::create find_business -uri $uri -proxy $proxy -action {""} \
  238.             -params {name string}
  239.     
  240.     # takes one or more service key elements. (Why not an array of them?)
  241.     SOAP::create get_serviceDetail -uri $uri -proxy $proxy -action {""} \
  242.             -params {serviceKey string}
  243.  
  244.     # one or more key elements again.
  245.     SOAP::create get_bindingDetail -uri $uri -proxy $proxy -action {""} \
  246.             -params {bindingKey string}
  247.  
  248.  
  249.     proc showBI {who} {
  250.         set bilist [find_business $who]
  251.         foreach {label biData} $bilist {
  252.             array set businessInfo $biData
  253.             puts "$businessInfo(name): $businessInfo(description)"
  254.         }
  255.     }
  256.  
  257.     namespace export find_business get_serviceDetail get_bindingDetail
  258. }
  259.  
  260. # -------------------------------------------------------------------------
  261.  
  262.  
  263. # Local variables:
  264. #   indent-tabs-mode: nil
  265. # End: