silab.tcl

Linux下的MSN聊天程序源码

# silab.tcl - Copyright (C) 2001 Pat Thoyts <[e-mail]>
#
# Run the SOAP Interoperability Test Suite Round 2: Base tests.
# Generates a html page of the results.
#
# $Id: silab.tcl 6394 2006-04-14 17:36:29Z tjikkun $

package require soapinterop::base
package require soapinterop::B
package require soapinterop::C

set logdir   {../doc/silab}
set logcount 0
set logfile  {}

#      toolkit          endpoint  action   namespace
# {{Apache 2.1}      http://nagoya.apache.org:5089/soap/servlet/rpcrouter  urn:soapinterop http://soapinterop.org/}
# {{SOAP.py}         http://208.177.157.221:9595/xmethodsInterop           urn:soapinterop http://soapinterop.org/}
set round1 {
    {{TclSOAP 1.6}     http://tclsoap.sourceforge.net/cgi-bin/rpc            urn:soapinterop http://soapinterop.org/}
    {{SOAP::Lite}      http://services.soaplite.com/interop.cgi              urn:soapinterop http://soapinterop.org/}
    {{4s4c}            http://soap.4s4c.com/interop/soap.asp                 urn:soapinterop http://soapinterop.org/}
    {{Frontier 7.0}    http://www.soapware.org/xmethodsInterop              /xmethodsInterop http://soapinterop.org/}
    {{ActiveState}     http://soaptest.activestate.com:8080/PerlEx/soap.plex urn:soapinterop http://soapinterop.org/}
    {{Dolphin Harbor}  http://www.dolphinharbor.org/services/interop         urn:soapinterop http://soapinterop.org/}
    {{EasySoap++}      http://www.xmethods.net/c/easysoap.cgi                urn:soapinterop http://soapinterop.org/}
    {{eSoapServer}     http://www.connecttel.com/cgi-bin/esoapserver.cgi     urn:soapinterop http://soapinterop.org/}
}

# round 2 http://www.whitemesa.com/interop.htm
#{{eSOAP}            http://212.177.97.8:8080/rpcrouter http://soapinterop.org/ http://soapinterop.org/}
#{{SOAP RMI}         http://www.extreme.indiana.edu:1568  http://soapinterop.org/ http://soapinterop.org/}
#{{kSOAP 0.8}        http://kissen.cs.uni-dortmind.de:8008               http://soapinterop.org/ http://soapinterop.org/}
set round2base {
    {{TclSOAP 1.6}      http://tclsoap.sourceforge.net/cgi-bin/rpc          http://soapinterop.org/ http://soapinterop.org/}
    {{SOAP::Lite}       http://services.soaplite.com/interop.cgi            http://soapinterop.org/ http://soapinterop.org/}
    {{ASP.NET}          http://www.mssoapinterop.org/asmx/simple.asmx       http://soapinterop.org/ http://soapinterop.org/}
    {{MS .NET Remoting} http://www.mssoapinterop.org/remoting/ServiceA.soap http://soapinterop.org/ http://soapinterop.org/}
    {{Spray}            http://www.dolphinharbor.org/services/interop       http://soapinterop.org/ http://soapinterop.org/}
    {{SQLData SOAP}     http://soapclient.com/interop/sqldatainterop.wsdl   http://soapinterop.org/ http://soapinterop.org/}
    {{SOAP4R}           http://www.jin.gr.jp/~nahi/Ruby/SOAP4R/SOAPBuildersInterop/ http://soapinterop.org/ http://soapinterop.org/}
    {{EasySoap++}       http://easysoap.sourceforge.net/cgi-bin/interopserver       http://soapinterop.org/ http://soapinterop.org/}
    {{SOAPx4 (PHP) .5}  http://dietrich.ganx4.com/soapx4/soap.php           http://soapinterop.org/ http://soapinterop.org/}
    {{White Mesa SOAP}  http://www.whitemesa.net/interop/std                http://soapinterop.org/ http://soapinterop.org/ {-encoding SOAP1.2}}
    {{SIM}              http://soapinterop.simdb.com/round2                 http://soapinterop.org/ http://soapinterop.org/}
    {{Spray 2001}      http://www.dolphinharbor.org/services/interop2001    http://soapinterop.org/ http://soapinterop.org/ {-encoding SOAP1.2}}
    {{4s4c}             http://soap.4s4c.com/ilab/soap.asp                  http://soapinterop.org/ http://soapinterop.org/}
    {{Apache Axis}      http://nagoya.apache.org:5049/axis/servlet/AxisServlet  http://soapinterop.org/ http://soapinterop.org/}
    {{Apache SOAP}      http://nagoya.apache.org:5049/soap/servlet/rpcrouter    http://soapinterop.org/ http://soapinterop.org/}
}

set round2B {
    {{TclSOAP 1.6}      http://tclsoap.sourceforge.net/cgi-bin/rpc          http://soapinterop.org/ http://soapinterop.org/}
    {{SOAP::Lite}      http://services.soaplite.com/interop.cgi             http://soapinterop.org/ http://soapinterop.org/}
    {{SOAP4R}          http://www.jin.gr.jp/~nahi/Ruby/SOAP4R/SOAPBuildersInterop/ http://soapinterop.org/ http://soapinterop.org/}
    {{SIM}             http://soapinterop.simdb.com/round2B                 http://soapinterop.org/ http://soapinterop.org/}
    {{Spray 2001}      http://www.dolphinharbor.org/services/interopB2001   http://soapinterop.org/ http://soapinterop.org/ {-encoding SOAP1.2}}
    {{EasySoap++}       http://easysoap.sourceforge.net/cgi-bin/interopserver  http://soapinterop.org/ http://soapinterop.org/}
    {{White Mesa SOAP}  http://www.whitemesa.net/interop/std/groupB         http://soapinterop.org/ http://soapinterop.org/ {-encoding SOAP1.2}}
    {{MS .NET Remoting} http://www.mssoapinterop.org/remoting/ServiceB.soap http://soapinterop.org/ http://soapinterop.org/ {-encoding SOAP1.2}}
    {{MS SOAP Toolkit} http://www.mssoapinterop.org/stk/InteropB.wsdl       http://soapinterop.org/ http://soapinterop.org/ {-encoding SOAP1.2}}
    {{ASP.NET}          http://www.mssoapinterop.org/asmx/simpleB.asmx      http://soapinterop.org/ http://soapinterop.org/ {-encoding SOAP1.2}}
    {{4s4c}            http://soap.4s4c.com/ilab/soap.asp                   http://soapinterop.org/ http://soapinterop.org/}
}

set round2C {
    {{TclSOAP 1.6}      http://tclsoap.sourceforge.net/cgi-bin/rpc          http://soapinterop.org/ http://soapinterop.org/}
    {{SOAP::Lite}       http://services.soaplite.com/interopC.cgi              http://soapinterop.org/ http://soapinterop.org/}
    {{White Mesa SOAP}  http://www.whitemesa.net/interop/std/echohdr           http://soapinterop.org/ http://soapinterop.org/ {-encoding SOAP1.2}}
    {{EasySoap++}       http://easysoap.sourceforge.net/cgi-bin/interopserver  http://soapinterop.org/ http://soapinterop.org/}
    {{MS SOAP Toolkit}  http://mssoapinterop.org/stk/InteropC.wsdl             http://soapinterop.org/ http://soapinterop.org/ {-encoding SOAP1.2}}
    {{Spray 2001}      http://www.dolphinharbor.org/services/interopC          http://soapinterop.org/ http://soapinterop.org/ {-encoding SOAP1.2}}
    {{ASP.NET}          http://www.mssoapinterop.org/asmx/header.asmx          http://soapinterop.org/ http://soapinterop.org/ {-encoding SOAP1.2}}
}

# -------------------------------------------------------------------------

proc silab:round1 {} {
    set title {SILAB Round 1 Tests called from TclSOAP}
    set info {
	This page is generated by a Tcl script that uses the TclSOAP client code
	against a list of SOAP servers implementing the SOAP Interoperability Lab
	Round 1 service. The results are printed as OK or the error is
	shown. The raw XML for the reqyest and the reply is available via links in
	each table. If there is no XML then the error occurred in the TclSOAP client
	code or the server is down.}
    set filename "round1.html"
    silab:execute $filename $title $info $::round1 proposalA
}

proc silab:round2 {} {
    set title {SILAB Round 2 Base Tests called via TclSOAP}
    set info {
	This page is generated by a Tcl script that uses the TclSOAP client code
	against a list of SOAP servers implementing the SOAP Interoperability Lab
	Round 2 proposal A service. The results are printed as OK or the error is
	shown. The raw XML for the request and the reply is available via links in
	each table. If there is no XML then the error occurred in the TclSOAP client
	code or the server is down.}
    set filename "round2base.html"
    silab:execute $filename $title $info $::round2base proposalA
}

# -------------------------------------------------------------------------

proc silab:round2B {} {
    set title {SILAB Round 2 Proposal B Tests called via TclSOAP}
    set info {
	This page is generated by a Tcl script that uses the TclSOAP client code
	against a list of SOAP servers implementing the SOAP Interoperability Lab
	Round 2 proposal B service. The results are printed as OK or the error is
	shown. The raw XML for the request and the reply is available via links in
	each table. If there is no XML then the error occurred in the TclSOAP client
	code or the server is down.}
    set filename "round2B.html"
    silab:execute $filename $title $info $::round2B proposalB
}

# -------------------------------------------------------------------------

proc silab:round2C {} {
    set title {SILAB Round 2 Proposal C Tests called via TclSOAP}
    set info {
	This page is generated by a Tcl script that uses the TclSOAP client code
	against a list of SOAP servers implementing the SOAP Interoperability Lab
	Round 2 proposal C service. The results are printed as OK or the error is
	shown. The raw XML for the request and the reply is available via links in
	each table. If there is no XML then the error occurred in the TclSOAP client
	code or the server is down.}
    set filename "round2C.html"
    silab:execute $filename $title $info $::round2C proposalC
}

# -------------------------------------------------------------------------

# procname - procedure to execute to perform the tests.

proc silab:execute {filename title info servers procname} {
    global logdir
    global logfile

    # set a global http timeout to avoid overruns of 30 seconds
    SOAP::configure -transport http -timeout 30000

    if {$logdir != {} && ![file isdirectory $logdir]} {
	file mkdir $logdir
    }
    if {$filename != {}} {
        set logfile [open [file join $logdir $filename] w]
    } else {
        set logfile stdout
    }

    puts $logfile "<!doctype HTML public \"-//W3O//DTD W3 HTML 2.0//EN\">\
	    <html><head><link href=\"../tclsoap.css\" rel=\"stylesheet\" type=\"text/css\">\
            <title>$title</title></head>"
    puts $logfile {
<body>
<table class="globaltable">
  <tr><td class="header" width="15%">
     <a href="http://sourceforge.net/">
        <img align="middle" alt="SourceForge Logo" border="0" height="31" width="88"
             src="http://sourceforge.net/sflogo.php?group_id=25970"></a>
 </td>
 <td class="header" width="70%">
    }
    puts $logfile "<h1>$title</h1>"
    puts $logfile {
      </td>
      <td class="logo" width="15%">
        <img src="../tclsoap.gif" alt="TclSOAP Logo" align="middle"
        border="0" height="84" width="57" />
      </td>
  </tr>

  <tr><td class="sidebar">
    <table>
      <tr><td class="sidehead">Results</td></tr>
    }
    
    # Draw the sidebar stuff
    foreach server $servers {
	puts $logfile "<tr><td class=\"sideelt\"><a href=\"#[lindex $server 0]\">[lindex $server 0]</a></td></tr>"
    }

    puts $logfile {
<tr><td class="sidehead">Project</td></tr>
<tr><td class="sideelt"><a href="http://sourceforge.net/projects/tclsoap">Project Page</a></td></tr>
<tr><td class="sideelt"><a href="http://sourceforge.net/project/showfiles.php?group_id=25970">File Releases</a></td></tr>
<tr><td class="sideelt"><a href="../TclSOAP.html">WebPage</a></td></tr>
<tr><td class="sideelt"><a href="http://sourceforge.net/docman/?group_id=25970">Documentation</a></td></tr>